Pemanggilan Parameter dalam Procedure

1. Pemanggilan Secara Nilai(By Value)
Pemanggilan ini bersifat searah, nilai di prosedur berubah tetapi nilai di bagian pernyataan tidak berubah.
Contoh Program:
Procedure hitung(x,y,z:byte);
begin
z:=x+y;
writeln('Nilai X= ',x);

writeln('Nilai Y= ',y);
writeln('Nilai Z= ',z);
end;

var a,b,c:byte;
begin
a:=5;b:=7;c:=3;
hitung(a,b,c);
writeln('Nilai A= ',a);
writeln('Nilai B= ',b);
writeln('Nilai C= ',c);
readln;
end.

2. Pemanggilan Secara Acuan (By Reference)
Pemanggilan ini bersifat dua arah (bolak-balik), bila nilai di prosedur berubah maka nilai di bagian pernyataan ikut berubah.
Contoh Program:
Procedure hitung(var x,y,z:byte);
begin
z:=x+y;
writeln('Nilai X= ',x);
writeln('Nilai Y= ',y);
writeln('Nilai Z= ',z);
end;

var a,b,c:byte;
begin
a:=5;b:=7;c:=3;
hitung(a,b,c);
writeln('Nilai A= ',a);
writeln('Nilai B= ',b);
writeln('Nilai C= ',c);
readln;
end.