Program Luas dan Keliling

uses wincrt;

var a,b,c,s,kp,lp,pl,pb,lb,kb,bl,kt:real;

pil:char;

begin

repeat

writeln;

writeln(' Program Bidang Datar');

writeln(' By Tombels');

writeln;

writeln('1. Mencari Keliling dan luas persegi');

writeln('2. Mencari Keliling dan luas balok');

writeln('3. Mencari Keliling dan luas segitiga sama sisi');

writeln('4. Keluar');

writeln('__________');

write('Pilihan : ');readln(pil);

case pil of

'1':begin

clrscr;

writeln('Program mencari Luas dan Keliling persegi');

write('Masukan nilai sisi : ');readln(s);

lp:=s*s;

kp:=4*s;

writeln('Luas persegi tersebut adalah ',lp:6:2,' cm');

writeln('Keliling persegi tersebut adalah ',kp:6:2,' cm');

end;

'2':begin

clrscr;

writeln('Program mencari Luas dan Keliling balok');

write('Masukan panjang balok : ');readln(pb);

write('Masukan lebar balok : ');readln(bl);

lb:=pb*bl;

kb:=(2*pb)+(2*bl);

writeln('Luas balok tersebut adalah ',lb:6:2,' cm');

writeln('Keliling balok tersebut adalah ',kb:6:2,' cm');

end;

'3':begin

clrscr;

writeln('Program mencari luas dan keliling segitiga sama sisi');

write('Masukan alas segitiga : ');readln(a);

write('Masukan Tinggi segitiga : ');readln(b);

c:=0.5*a*b;

kt:=a+a+a;

writeln('Luas segitiga tersebut adalah ',c:6:2,' cm');

writeln('Keliling segitiga tersebut adalah ',kt:6:2,' cm');

writeln;

end;

'4':begin

clrscr;

writeln('Terima kasih telah memakai Aplikasi By Tombels');

end;

end;

until (pil='4');

end.