Parameter global

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.

Khoirony