Procedure

Dalam dunia pemrograman, procedure adalah modul program yang mengerjakan tugas yang spesifik dan menghasilkan efek netto. Suatu efek netto diketahui dengan membandingkan keadaan awal dan keadaan akhir pada pelaksanaan sebuah procedure.

Setiap procedure mempunyai nama yang unik. nama procedure sebaiknya diawali dengan kata kerja.

Contoh:

Program Menukar_Nilai_A_dan_B;

Uses Wincrt;

Var

A,B:real;

Procedure Tukar(Var X,Y:real);

Var

penukar:real;

Begin

penukar:=X;

X:=Y;

Y:=penukar;

End;

Begin

Write ('Masukkan Nilai A=');readln (A);

Write ('Masukkan Nilai B=');readln (B);

Writeln ('Nilai A sebelum ditukar',(A):5:0);

Writeln ('Nilai B sebelum ditukar',(B):5:0);

Tukar(A,B);

Writeln ('Nilai A setelah ditukar',(A):5:0);

Writeln ('Nilai B setelah ditukar',(B):5:0);

End.

Posted in: pacscal,procedure,prosedur