program sederhana caseofelse & repeat

arif zainurrohman

program caseofrepeat;
uses wincrt;
const
sete = 1/2;
phi = 3.14;
var
pil:byte;
a,t,p,l,r,luas:real;
lagi:char;
begin
repeat
clrscr;
writeln('pilihan');
writeln('1.Menghitung luas segitiga');
writeln('2.Menghitung luas persegi panjang');
writeln('3.Menghitung luas lingkaran');
writeln('pilih (1/2/3) ?');readln(pil);
clrscr;
case pil of
1:begin
write('panjang alas : ');readln(a);
write('tinggi       : ');readln(t);
luas:=sete*a*t;
writeln;
writeln('luas segitiga : ',luas:0:2);
end;
2:begin
write('panjang : ');readln(p);
write('lebar   : ');readln(l);
luas:=p*l;
writeln;
writeln('luas persegi panjang : ',luas:0:2);
end;
3:begin
write('jari - jar lingkaran : ');readln(r);
luas:=phi*sqr(r);
writeln;
writeln ('luas lingkaran : ',luas:0:2);
end;
else begin
writeln ('pilihan salah');
writeln('pilih 1,2, atau 3');
end;
end;
writeln ('ingin ulang ? (y/t)');readln(lagi);
if lagi ='t' then
clrscr;
gotoxy(30,10);
writeln (' TERIMA KASIH ');
until (lagi='t');
end.


Kota Pempek , 24 Maret 2012


akhukum fillah arif zainurrohman