Contoh Function Pemograman Pascal

program funttion2;

uses crt;

                                    {fungsi menentukan nilai tambah}

function tambah(a,b:real):real;

var hasil:real;

begin

hasil:=a+b;

tambah:=hasil;

end;

var a,b:real;      {variabel global}

begin                           {program utama}

write('masukan bilangan I: ');readln(a);

write('masukan bilangan II: ');readln(b);

write(tambah(a,b));

end.    

uses crt;

var p,l,t,luas_permukaan:integer; {VARIABEL GLOBAL}

function lp_balok(p,l,t:integer):integer;

begin

lp_balok:=(4*p*l)+(2*p*t);

end;

{PROGRAM UTAMA}

begin

write('panjang= ');readln(p);

write('lebar= ');readln(l);

write('tinggi= ');readln(t);

luas_permukaan:=lp_balok(p,l,t);

writeln('luas permukaan balok:= ',luas_permukaan);

end.