11.6.pas

来自「delphi renyuanguanlixinxioxitong」· PAS 代码 · 共 22 行

program Project1;
{$APPTYPE CONSOLE}
function P1:Integer; // 该函数将作为sum函数的第一个参数
begin
Writeln('P1');
Result:=0;
end;
function  P2:Integer; // 该函数将作为sum函数的第二个参数
begin
Writeln('P2 ');
Result:=1;
end;
//参数的传递方式采用pascal 方式
function Sum(N1:Integer;N2:Integer):Integer;pascal;
begin
Result:=N1+N2;
end;
begin
writeln(Sum(P1,P2));
readln;
end .