Hans

Hampir sama dengan Procedure, Namun function harus dideklarasikan dengan tipenya. Tipe deklarasi akan menunjukkan nilai yang dihasilkan fungsi. Fungsi diawali dengan kata FUNCTION. Paramater yang dikirim dari modul utama ke PROCEDURE atau FUNCTION disebut sebagai parameter nyata (actual parameter) dan parameter ada yang ditulis pada judul procedure atau function disebut dengan parameter formal. Didalam pascal parameter dapat dikirim secara nilai atau secara acuan.

Mendefinisikan sebuah Fungsi

Dalam pascal, sebuah fungsi di definisikan menggunakan kata FUNCTION.

function name(argument(s): type1; argument(s): type2; ...): function_type;
  local declarations;
  begin
   ...
   < statements >
   ...
   name:= expression;
  end;

Contoh

(* function returning the max between two numbers *)
  function max(num1, num2: integer): integer;
  var
   (* local variable declaration *)
   result: integer;
  begin
   if (num1 > num2) then
      result := num1
   
   else
      result := num2;
   max := result;
  end;

Memanggil Function

Untuk memanggil function, caranya sama dengan memanggil procedure.

program exFunction;
  var
   a, b, ret : integer;

  (*function definition *)
  function max(num1, num2: integer): integer;
  var
   (* local variable declaration *)
   result: integer;

  begin
   if (num1 > num2) then
      result := num1
   
   else
      result := num2;
   max := result;
  end;

  begin
   a := 100;
   b := 200;
   (* calling a function to get max value *)
   ret := max(a, b);
   
   writeln( 'Max value is : ', ret );
  end.

Ketika kode diatas di compiled dan dijalankan, akan menghasilkan :

Max value is : 200