1， Pascal 函数的定义格式

pascal 函数的定义语法格式:

FUNCTION 函数名(形式参数表):函数类型;
    VAR 函数的变量说明;
    BEGIN
            函数体;
    END;

2，Pascal 函数定义调用示例

 order_self.pas 代码：

PROGRAM example01;
        var i:integer;
                s:longint;

        FUNCTION order_self(n:integer): longint;
                VAR     i:integer;
                        s:longint;
                BEGIN
                        s:=1;
                        for i:=1 to n do
                                s:=s*i;

                        order_self:=s;
                END;
        BEGIN
                s:=0;
                for i:=1 to 10 do
                        s:= s+order_self(i);

                writeln('s =', s);
        END.

$ sudo apt install fp-compiler

$ fpc order_self.pas

3，编译运行

4，函数的汇编语言分析

$ fpc -a order_self.pas

-a ：生成汇编语言文件 order_self.s: