Function Dengan Parameter Acuan

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

Penulisan judul function dengan menggunakan parameter secara acuan adalah sama dengan procedure yaitu ditambah Var pada deklarasi parameter. Dengan demikian nilai parameter acuan ini dapat digunakan sebagai hasil balik.

Syntax :

FUNCTION jumlah(var a,b : integer) : integer;

Contoh :

program pengiriman_parameter_secara_acuan;
function kali(var bil1,bil2,jumlah : integer) : integer;
begin
    kali:=bil1*bil2;
    jumlah:=bil1+bil2;
end;
var
    x,y,z : integer;
begin
    write('bilangan 1=');readln(x);
    write('bilangan 2=');readln(y);
    writeln(x:3,'*',y:3,' = ',kali(x,y,z):5);
    writeln(x:3,'+',y:3,' = ',z);
    readln;
end.