program persegipanjang;
uses wincrt;
var
p,l,t:byte;
ls,kel,vol:integer;
procedure Hitung_Luas;
begin
ls:=p*l;
writeln('Luas :',ls);
end;
procedure Hitung_Keliling;
begin
kel:=(2*p)+(2*l);
writeln('keliling:',kel);
end;
procedure hitung_volume;
begin
vol:=p*l*t;
writeln('volume:',vol);
end;
begin
clrscr;
writeln('hitung luas dan persegi panjang');
writeln;
write('Masukan panjang :');readln(p);
write('masukan lebar :');readln(l);
write('masukan tingi:');readln(t);
writeln;
Hitung_luas;
Hitung_keliling;
Hitung_volume;
readln;
end.
Function
program persegipanjang;
Uses wincrt;
Function Luas(p,l:integer):integer;
Begin
Luas:=p*l;
end;
var
Pj,lbr:integer;
begin
clrscr;
writeln('menghitung luas persegi panjang');
writeln;
write('masukan panjang:');readln(pj);
write('masukan lebar:');readln(lbr);
write('luasnya=',luas(pj,lbr));
readln;
end.
FUNCTION 2
program persegipanjang;
Uses wincrt;
Function Luas(p,l:integer):integer;
Begin
Luas:=p*l;
end;
Function Volume(p,l,t:integer):integer;
begin
Volume:=p*l*t;
end;
var
Pj,lbr,tg:integer;
begin
clrscr;
writeln('menghitung luas persegi panjang');
writeln;
write('masukan panjang:');readln(pj);
write('masukan lebar:');readln(lbr);
write('masukan tinggi:');readln(tg);
write('luasnya=',luas(pj,lbr));
Writeln;
write('volume=',volume(pj,lbr,tg));
readln;
end.
Posting Komentar