Materi X : Parameter dalam Function

Sama dengan prosedur, parameter dalam fungsi dapat dikirimkan secara nilai (by value) atau secara acuan (by reference). Penulisan judul fungsi yang menggunakan parameter dengan pengiriman secara nilai (by value) adalah tampak sebagai berikut:

           

            Function Hitung(A,B : integer) : integer;

Contoh:

Berikut ini akan dibuat suatu fungsi yang akan menghasilkan nilai terbesar dari 2 buah nilai real.

program contohfungsi2;

uses crt;

function Terbesar(X,Y : real) : real;

begin

     if X > Y then

        Terbesar := X

     else

        Terbesar := Y;

end;

var

   Nilai1, Nilai2 : real;

begin

   write('Nilai pertama ? ');

   readln(Nilai1);

   write('Nilai kedua ? ');

   readln(Nilai2);

   writeln('Nilai terbesar adalah’,Terbesar(Nilai1,Nilai2):4:2);

end.

Bila program dijalankan akan didapatkan output:

                        Nilai pertama ? 17.08

           Nilai kedua ? 10.01

           Nilai terbesar adalah  17.08