Pascal Tutorial

Функциите - FUNCTION се дефинираат на следниот начин:

function IME (lista_na_parametri:tip_na_parametri) : tip_na_rezultat;

lista_na_parametri - чии вредности ги добива од местото на повикувањето.

function zbir(m:integer):integer;
    var i,zb:integer;
    begin
        zb:=0;
        for i:=1 to m do
            zb:=zb+i;
        zbir:=zb;
end;

Комплетен пример со функција:

program tret;
var n,rez:integer;

    function fakt(m:integer):integer;
        var i,fkt:integer;
        begin
            fkt:=1;
            for i:=1 to m do
                fkt:=fkt*i;
            fakt:=fkt;
        end;

begin
    readln(n);
    rez:=fakt(n);
    writeln(rez);
end.