program persegi_panjang;
uses wincrt;
var
p,l:byte;
luas,keliling:integer;
procedure hitung_luas;
begin
luas:=p*l;
writeln('luas : ',luas);
end;
procedure hitung_keliling;
begin
keliling:=(2*p)+(2*l);
writeln('keliling : ',keliling);
end;
begin
clrscr;
writeln('=========================================================');
writeln('program untuk menghitung luas dan keliling persg pnjng :');
writeln('=========================================================');
writeln;
write('masukkan panjang :');readln(p);
write('masukkan lebar :');readln(l);
writeln;
hitung_luas;
hitung_keliling;
readkey;
end.
Tidak ada komentar:
Posting Komentar