Rabu, 09 Januari 2013

PROGRAM PROSEDUR MENGHITUNG LUAS

uses crt;
var pil : string;

PROCEDURE LUAS_TABUNG ;
var luas : real ;
    r, t : integer;
begin
write ('jari-jari : '); readln (r);
write ('tinggi : '); readln (t);
luas := 3.14*r*r*t;
write ('luas tabung : ',luas:0:0);
end;

PROCEDURE LUAS_SEGIEMPAT ;
var luas4, s : integer;


begin
write ('panjang sisi : '); readln (s);
luas4 := s*s;
write ('luas segiempat : ',luas4);
end;

PROCEDURE LUAS_PERSEGI_PANJANG ;
var luaspp, p, l : integer;
begin
write ('panjang : '); readln (p);
write ('lebar : '); readln (l);
luaspp := p*l;
write ('luas persegi panjang : ',luaspp);
end;

begin
clrscr;
writeln ('1. hitung luas tabung  ');
writeln ('2. hitung luas segi empat ');
writeln ('3. hitung luas persegi panjang ');
write ('pilihan anda 1, 2 atau 3 : '); readln (pil);
if pil = '1' then LUAS_TABUNG
else if pil = '2' then LUAS_SEGIEMPAT
else if pil = '3' then LUAS_PERSEGI_PANJANG;
readln;
end.

Tidak ada komentar: