Prosedur (Procedure) adalah suatu program terpisah dalam blok tersendiri yang berfungsi sebagai yang berfungsi sebagai subprogram (program bagian).
CONTOH program procedure:
Program Prosedur;
Uses CRT;
Procedure Tanya_Hitung;
Var
X,Y : Real;
Begin
Clrscr;
Write('Nilai X ?');
readln(X);
Y := X * X;
Writeln('Nilai Y = ',Y:6:2);
Readln;
End;
Begin
Tanya_Hitung;
End.
Tidak ada komentar:
Posting Komentar