[ Course Documents ] : [ Implementing Subprograms ]

Previous Contents Next Keyword Index

Example Factorial Program (2)

    program p;
        var v : int;

        function fac(n: int): int;
        begin
            if n <= 1 then
                fac := 1
            else
                fac := n * fac(n--1);
        end;

    begin
        v := fac(3);
        print(v);
    end.