PROCEDURE
CONTOH:
Program persegi panjang;
Uses
wincrt;
Var
P,L : byte ;
Ls, kel : integer;
Procedure
hitung _luas; DEKLARASI
Begin
LS
: P*LWriten (‘luas : ‘,LS );
End
Procedure
hitung_keliling;
Begin
Kel := (2+p) + (2+L);
Writeln Keliling :’, kel ;
End;
Begin
CLRSCR;
Writeln (Hitung PP’);
Writeln; PROGRAM
UTAMA
Write (‘menentukan
panjang :’) ; readln (p);
Write (‘menentukan
Lebar :’) ; readln (L);
Writeln;
Hitung Luas;
Hitung_keliling;
Readln;
End
Komentar
Posting Komentar