Pengiriman Parameter Secara Acuan (By Reference)

Disusun Oleh Dosen : Elisawati, S.Kom, M.Kom

Sifat dari pengiriman parameter secara acuan adalah dua arah artinya perubahan dari parameter formal akan mempengaruhi nilai dari parameter nyata. Cara deklarasi di procedure dengan kata cadangan Var seperti berikut :

procedure kali(Var a,b,c : integer); -> parameter formal
    kali(x,y,z); -> parameter nyata

Contoh :

program pengiriman_parameter_secara acuan;
uses crt;
procedure kali(var a,b,c : integer); {parameter formal acuan}
begin
    c:=a*b;
end;
{modul utama}
var
    x,y,z : integer;
begin
    write('nilai x=');readln(x);
    write('nilai y=');readln(y);
    kali(x,y,z); {mengirimkan parameter secara acuawriteln('Nilai z =',z:5);
end.

Contoh penggunaan parameter secara acuan untuk perhitungan faktorial:

program Contoh_penggunaan_parameter_acuan;
uses crt;
procedure faktor(var banyak,hasil : integer);
var
    i : integer;
begin
    hasil := 1;
    for i := 1 to banyak do
    begin
        hasil := hasil*I;
    end;
end;
{modul utama}
var
    n,jumlah : integer;
begin
    write('Berapa faktorial =');readln(n);
    faktor(n,jumlah);
    writeln(n:5,' faktorial adalah =',jumlah:6);
    readln;
end.

Contoh Program dengan penggunaan procedure dgn parameter secara acuan pada perhitungan pangkat lebih besar dari 2 :

program pangkat;
uses crt;
procedure pangkat(var bil,hasil:real;pang:integer);
var
    i : integer;
begin
    hasil :=1;
    for i:= 1 to pang do
    begin
        hasil:=hasil*bil;
    end;
end;
{modul utama}
var
    angka,hasil : real;
    pang : integer;
begin
    clrscr;
    write('bilangan yang dipangkat =');readln(angka);
    write('dipangkatkan =');readln(pang);
    pangkat(angka,hasil,pang);
    write('hasil =',hasil:5:2);
    readln;
end.