program prosedur;
uses
wincrt;
var
pilihan:integer;
ulang:string;
procedure judul;
begin
writeln('program anak putera batam 2009/2010');
writeln('===================================');
end;
procedure menupilihan;
begin
writeln('-----menu pilihan-----');
writeln(' 1. persegi panjang ');
writeln(' 2. segitiga ');
writeln(' 3. lingkaran ');
end;
procedure p_panjang;
var
pa,le,lu:integer;
begin
writeln('prosedur I');
writeln('program persegi panjang');
write('input panjang : ');readln(pa);
write('input lebar : ');readln(le);
lu:=pa*le;
writeln('luas persegi panjang = ',lu);
end;
procedure segitiga;
var
a,ti,lu:real;
begin
writeln('prosedur II');
writeln('program luas segitiga');
write('input alas: ');readln(a);
write('input tinggi : ');readln(ti);
lu:=a*ti/2;
writeln('luas segitiga = ',lu:0:2);
end;
procedure lingkaran;
var
jari,lu,ke:real;
begin
writeln('prosedur III');
writeln('program luas dan keliling lingkaran');
write('input jari-jari : ');readln(jari);
lu:=3.14*jari*jari;
ke:=2*3.14*jari;
writeln('luas lingkaran = ',lu:0:2);
writeln('keliling lingkaran = ',ke:0:2);
end;
begin
ulang:= 'YA';
while (ulang= 'YA') or (ulang= 'ya') do
begin
judul;
menupilihan;
write('silahkan anda pilih (1/2/3) dimenu pilihan: ');readln(pilihan);
case pilihan of
1:p_panjang;
2:segitiga;
3:lingkaran;
end;
write('mau mengulang lagi tekan YA: ');readln(ulang);
end;
readln;
donewincrt;
end.