case - of

contoh program menggunakan struktur case - of

program persegi_panjang;
uses crt;
var
pjg,lbr,kll,ls,dia:real;
pil:integer;
begin
clrscr;
writeln('menu utama');
writeln('program persegi panjang');
writeln('1.luas persegi panjang');
writeln('2.keliling persegi panjang');
writeln('3.diagonal persegi panjang');
writeln('4.keluar');
write('pilihan anda=');readln(pil);
case pil of
1:begin
clrscr;
write('masukkan panjang=');readln(pjg);
write('masukkan lebar=');readln(lbr);
ls:=pjg*lbr;
write('luas pp=',ls:6:2);
end;
2:begin
clrscr;
write('masukkan panjang=');readln(pjg);
write('masukkan lebar=');readln(lbr);
kll:=2*(pjg+lbr);
write('keliling persegi panjang=',kll:6:2);
end;
3:begin
clrscr;
write('masukkan panjang=');readln(pjg);
write('masukkan lebar=');readln(lbr);
dia:=sqrt((pjg*pjg)+(lbr*lbr));
write('diagonal persegi panjang=',dia:6:2);
end;
else
writeln('matur sembah nuwun');
end;
readln;
end.