函数的实现 Function GetMax(i,j:Integer):Integer; begin if i>j then begin result:=i; end else begin result:=j; end; end; 函数的使用 k1:=1; k2:=3; max=GetMax(k1,k1);//结果由返回值获得过程的实现 Procedure GetMax(i,j:Integer;var max:Integer);//参数前加var,表示地址引用 begin if i>j then begin max:=i; end else begin max:=j; end; end; 过程的使用 k1:=1; k2:=3; GetMax(k1,k1,max);//过程无返回值,若需返回内容可通过地址引用的参数var max返回
procedure test()
begin
end;void test()
{
}
Function GetMax(i,j:Integer):Integer;
begin
if i>j then
begin
result:=i;
end else
begin
result:=j;
end; end;
函数的使用
k1:=1;
k2:=3;
max=GetMax(k1,k1);//结果由返回值获得过程的实现
Procedure GetMax(i,j:Integer;var max:Integer);//参数前加var,表示地址引用
begin
if i>j then
begin
max:=i;
end else
begin
max:=j;
end; end;
过程的使用
k1:=1;
k2:=3;
GetMax(k1,k1,max);//过程无返回值,若需返回内容可通过地址引用的参数var max返回