Ratih Handayani

PROGRAM MENGHITUNG LUAS DAN KELILING BANGUN DATAR


uses crt;
var
KD, nm, pp, psg : string;
P, L, S : integer;
Ls, Kel  : real ;
begin
clrscr;

write('Masukan Kode Bangun Datar = ');
readln (KD);

if ( KD= 'PP') then
begin
   nm := 'Persegi Panjang';
   writeln ('Anda Memilih ',nm);
   writeln ('=====================');
   writeln;
   write ('Masukan nilai Panjang = ');
   readln (P);
   write ('Masukan nilai Lebar = ');
   readln (L);
   nm  := 'Persegi Panjang';
   Ls  := P * L ;
   Kel := 2 * P + 2 *L;
end

else if ( KD= 'PSG' ) then
begin
   nm := 'Persegi';
   writeln ('Anda Memilih ',nm);
   writeln ('=====================');
   writeln;
   write ('Masukan nilai Sisi = ');
   readln (S);
   nm := 'Persegi';
   Ls := S * S;
   kel := 4 * S;

end
else
   writeln ('Anda Salah Memasukan Kode = ');

writeln ('Luas ',nm,' = ',Ls:2:0);
writeln ('Keliling ',nm,' = ',Kel:2:0);
readkey;
end.