Pascal : Apa itu procedure dalam PASCAL?

Procedure adalah suatu program yang terpisah dalam block tersendiri yang berfungsi
sebagai subprogram (program bagian). Penggunaan prosedur diawali dengan kata
cadangan procedure di dalam bagian deklarasi procedure. Pemanggilan procedure
dengan menggunakan judul procedure.

Variabel yang di buat di dalam suatu procedure sifatnya adalah local, yang berarti nilai yang ada dalam variable hanya dapat digunakan oleh procedure tersebut saja dan tidak dapat digunakan oleh procedure yang lain.

Pada program terstruktur banyak menggunakan procedure karena :
- Sebagai penerapan program yang modular yaitu memecah kode program yang rumit menjadi sub kode program- program bagian yang lebih sederhana dalam bentuk procedure.
- Untuk beberapa perintah yang sering digunakan berulang, cukup dituliskan sekali dalam procedure dan dapat dipanggil sewaktu-waktu.

Macam jenis procedure dalam bahasa pemograman PASCAL :
1. Procedure tanpa parameter.
contoh :
 *
procedure Layar;
begin
   clrscr;
   writeln ('PENGGENALAN PROCEDURE PASCAL');
   writeln ('----------------------------');
end;

*
procedure Hitung;
var
   a,b,c : integer;
begin
   write('Nilai a =');readln(a);
   write('Nilai b =');readln(b);
   c:=a+b;
   writeln('hasilpenjumlahan=',c:5);
   readln;
end;

2. Procedure dengan parameter.
Pada procedure dengan parameter, pengiriman parameter secara nilai (by value), parameter formal akan berisi nilai yang dikirimkan dari parameter nyata dan nilai parameter tersebut akan local diprocedure yang dikirim. sifat dari pengiriman nilai ini adalah satu arah, sehingga perubahan nilai dari parameter formal tidak akan mempengaruhi nilai parameter nyata.
contoh :
*
procedure Kali (a,b : integer);
var
   hasil : integer;
begin
   hasil :=a*b;
   writeln('Hasil =', hasil:6);
end;


3. Procedure dengan parameter sebagai acuan.
Sifat dari pengiriman parameter secara acuan adalah dua arah artinya perubahan dari parameter formal akan mempengaruhi nilai dari parameter nyata.
contoh :
*
procedure Swap (var a,b : integer);
var c : integer;
begin
   c := b;
   b := a;
   a := c;
end;


***** SEMOGA BERMANFAAT *****