PROCEDURE dalam PASCAL

Prosedur adalah sub program yang menerima masukan tetapi tidak mempunyai keluaran secara langsung.

Cara mendeklarasikan sebuah prosedur adalah sebagai
berikut :

procedure A; { nama prosedur adalah A }

begin

{ statement }

end;

Pendeklarasian prosedur di atas adalah untuk prosedur yang tidak memerlukan parameter. Parameter adalah data masukan untuk subprogram yang nantinya akan diproses lebih lanjut dalam subprogram tersebut. Dalam Pascal, dikenal dua macam parameter yaitu :

1. parameter nilai (value parameter), dan
2. parameter referensi (reference parameter).

Cara mendeklarasikan parameter tersebut adalah sebagai berikut :

procedure B (X : integer; var Y : integer);
begin
{ statement }
end;

Pada deklarasi prosedur di atas, parameter X adalah parameter nilai sedang parameter Y adalah parameter referensi. Jadi, pendeklarasian parameter referensi didahului oleh reserved word var. Parameter referensi ini nantinya dapat dijadikan sebagai variabelkeluaran dari prosedur.

Untuk lebih memahami penggunaan prosedur dalam Pascal, perhatikan contoh program di bawah ini :

program Prosedur;
uses CRT;
var
    Bil_1, Bil_2, Hasil : integer;
procedure Awal;
begin
      Writeln('Latihan Pascal 2 : Prosedur dan Fungsi');
      Writeln('--------------------------------------');
      Writeln;
      Writeln('Nama : ____________________');
      Writeln('NIM : __________');
      Writeln;
end;
procedure Baca_Data;
begin
      Write('Masukkan bilangan pertama : ');
      Readln(Bil_1);
      Write('Masukkan bilangan kedua : ');
      Readln(Bil_2);
      Writeln;
end;
procedure Kali(A,B : integer);
var
   I : integer;
begin
Hasil := 0;
   for I := 1 to B do Hasil := Hasil + A;
end;
procedure Kalikan(A,B : integer; var C : integer);
var
   I : integer;
begin
   C := 0;
   for I := 1 to B do C := C + A;
end;
begin
ClrScr;
Awal;
Baca_Data;
Kali(Bil_1, Bil_2);
   Writeln(Bil_1:3,' x ',Bil_2:3,' = ',Hasil:5);
Kalikan(Bil_1, Bil_2, Hasil);
   Writeln(Bil_1:3,' x ',Bil_2:3,' = ',Hasil:5);
   Writeln;
   Write('Tekan Enter...');
Readln;
end.

Perhatikan program di atas. Dua prosedur terakhir memiliki kemiripan, bedanya hanya pada jumlah parameter dan variabel hasil perkaliannya. Untuk lebih jelas, jalankan program dan perhatikan apa yang dilakukan oleh dua prosedur tersebut maka akan nampak perbedaan keduanya.

Posted in: Computer, Teknologi