Program Fungsi Turbo Pascal

Program fungsi pada Turbo Pascal hampir sama dengan deklarasi procedure, hanya saja fungsi harus dideklarasikan dengan tipenya.

Bentuk penulisan fungsi dengan parameter by Value adalah sebagai berikut :

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

Berikut merupakan contoh program fungsi menghitung data terkecil:

program fungsi;

uses wincrt;

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

begin

     if X<Y then

     terkecil:=X

     else

     terkecil:=Y;

     end;

var data1, data2 : real;

begin

     write('Data pertama : ');

     readln(data1);

     write('Data kedua   : ');

     readln(data2);

     writeln;

     write('Nilai terkecil adalah ',terkecil(data1,data2):3:2);

end.

Semoga bermanfaat :)