Function tanpa parameter

Disusun Oleh Dosen : Elisawati, S.Kom, M.Kom

Suatu function tanpa parameter berarti nilai balik yang akan dihasilkan merupakan nilai yang sudah pasti. Jika pada function dengan parameter, parameternya digunakan untuk input pada function dan function akan memberikan hasil balik sesuai dengan parameter yang diberikan sehingga bisa diatur dari program pemanggil. Sedang pada function tanpa parameter hasil dari function tidak dapat diatur. Sehingga function tanpa parameter jarang digunakan.

Contoh :

function tiga : integer;
    begin
        tiga:=3;
    end;
begin
    writeln(tiga);
end;

Jadi hasil : 3

Function type string untuk membuat garis, ini juga merupakan contoh function tanpa parameter.

uses crt;
    function garis : string;
begin
    garis:=' -------- ';
end;
{modul utama}
begin
    writeln(garis);
    writeln('pascal');
    writeln(garis);
    readln;
end.

Contoh :

program pangkat_dgn_function;
uses crt;
function pangkat(bil :real; pang: integer) : real;
var
    hasil : real;
    i : integer;
begin
    hasil := 1;
    for i:= 1 to pang do
        begin
            hasil:= hasil*bil;
        end;
    pangkat:=hasil;
end;
var
    hitung,bil : real;
    pang : integer;
begin
    write('bilangan =');readln(bil);
    write('pangkat=');readln(pang);
    hitung:= 2*pangkat(2,3);
    writeln(bil:5:2,' pangkat',pang:5,' = ',pangkat(bil,pang):6:2);
    writeln('2 * (2 pangkat 3) =',hitung:6:2);
    readln;
end.