Program Mtk Sederhana

uses wincrt;

var a,t,c:real;

    s,k,p,l,b:integer;

    s2,k2,p2,l2,b2:integer;

    pil:char;

begin

repeat

writeln;

writeln('       ============================');

writeln('       Program Matematika Sederhana');

writeln('       ============================');

writeln('                      By Tombels');

writeln;

writeln('1.Mencari luas segitiga');

writeln('2.Mencari luas persegi');

writeln('3.Mencari luas balok');

writeln('4.Mencari keliling persegi');

writeln('5.Mencari keliling balok');

writeln('6.Keluar');

writeln('_________');

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

case pil of

'1':begin

clrscr;

write('Masukan tinggi segitiga : ');readln(t);

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

c:=a*t*0.5;

writeln('Luas sagitiga = ',c:6:2);

end;

'2':begin

clrscr;

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

k:=s*s;

writeln('Luas persegi = ',k);

end;

'3':begin

clrscr;

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

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

b:=p*l;

writeln('Luas balok = ',b);

end;

'4':begin

clrscr;

write('Masukan sisi persegi : ');readln(s2);

k2:=s2*4;

writeln('Keliling persegi = ',k2);

end;

'5':begin

clrscr;

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

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

b2:=((2*p2)+(2*l2));

writeln('Keliling balok = ',b2);

end;

'6':begin

clrscr;

writeln('Thanks dah pake program by Tomi');

end;

end;

until (pil='6');

end.