PROCEDURE

YAITU:  struktur program yg terdiri dari nama prosedure deklarasi – deklarasi, dan bagian deskripsi.

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

Khoirony