Function

   Function merupakan suatu garis besar sama dengan procedure yang membedakannya adalah nama fungsi harus dideklarasikan dengan type datanya.function juga merupakan suatu bagian program yang mengerjakan satu tugas dan hasilnya biasanya hanya satu.suatu function merupakan proses pehitungan yang menghasilkan suatu nilai.

Contoh function:

Uses crt;

Function kecil(a.b: integer):integer;

If a<b then

Kecil:= a

Else

Kecil:=b

End;

Var

A,b:integer;

Begin

Clrscr;

Write(‘nilai bilangan 1 = ‘) ; readln (a);

Writeln;

Write(‘nilai bilangan2 = ‘) ; readln (b);

Writeln;

Write(‘nilai bilangan terkecil = ‘) kecil (a,b):5);

Raedln;

End.