program Prosedur

Program Mencari_Luas_dan_Keliling_Bangun_Datar;
uses crt;
var a,b,c,r,p,lb,t,s:integer;
L, K:real;
procedure menu;
begin
writeln (' 1. Segitiga');
writeln (' 2. Lingkaran');
writeln (' 3. Persegi Panjang');
writeln (' 4. Persegi');
end;
procedure segitiga;
begin
writeln ('Menghitung Luas dan Keliling Segitiga');
write ('Panjang a= '); readln (a);
write ('Panjang b= '); readln (b);
write ('Panjang c= '); readln (c);
write ('Tinggi segitiga= '); readln (t);
L:= (a*t)/2;
K:= a+b+c;
write ('Luas segitiga = ',L:0:0); readln;
write ('Keliling segitiga = ',K:0:0); readln;
end;
procedure lingkaran;
const phi=3.14;
begin
writeln ('Menghitung Luas dan Keliling Lingkaran');
write ('Panjang r= '); readln (r);
L:=phi*r*r;
K:=phi*2*r;
write ('Luas lingkaran adalah ',L:0:0); readln;
write ('Keliling lingkaran adalah ',K:0:0); readln;
end;
procedure persegipanjang;
begin
writeln ('Menghitung Luas dan Keliling Persegi Panjang');
write ('p = '); readln (p);
write ('l = '); readln (lb);
L:=p*lb;
K:=(2*p)+(2*lb);
write ('Luas persegi panjang = ',L:0:1); readln;
write ('Keliling persegi panjang = ',K:0:1); readln;
end;
procedure persegi;
begin
writeln ('Menghitung Luas dan Keliling Persegi');
write ('panjang sisi = '); readln (s);
L:= s*s;
K:=4*s;
write ('Luas persegi= ',L:0:2); readln;
write ('Keliling persegi= ',K:0:2); readln;

end;

var pil:char;
begin

repeat

clrscr;
textcolor (green);
writeln (' ============================================================');
writeln (' = program Menghitung Luas dan Keliling Suatu Bangun datar =');
writeln (' ============================================================');
readln;
writeln (' Nama : Lia Amaliyah');
writeln (' Kelas : IV A');
Writeln (' MatKul : Program Komputer (Procedure)');readln;
writeln (' Pilih menu berikut ini:');
menu;readln;
writeln(' ^^ Silahkan Pilih Bangun Datar yang akan dihitung ^^ ');
write(' masukkan pilihan anda: ');readln(pil);
else
writeln ('pilihan yang anda masukkan salah');

case pil of
'1': begin segitiga;end;
'2': begin lingkaran; end;
'3': begin persegipanjang;end;
'4': begin persegi;end;
end;
write ('mau pilih menu lagi? [yes/ no] '); readln (pil);

pil:= upcase (pil);
until (pil<> 'Y');

readln;

end.

P