5,908
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
winstarr 2005-04-14
- 打赏
- 举报
替亏
seekmydoom 2005-04-14
- 打赏
- 举报
Function JC(N:Integer):Integer;
begin
if N=0 then
begin
Result:=1;
Exit;
end;
Result:=N*JC(N-1);
end;
begin
if N=0 then
begin
Result:=1;
Exit;
end;
Result:=N*JC(N-1);
end;
chinaandys 2005-04-14
- 打赏
- 举报
Function JC(N:Integer):Integer;
var
I:Integer;
begin
if N<=0 then exit;
for I:=1 to N do
Result:=Result*I;
end;
var
I:Integer;
begin
if N<=0 then exit;
for I:=1 to N do
Result:=Result*I;
end;
liaoqingpeng 2005-04-14
- 打赏
- 举报
Function JC(N: Integer): Int64;
var
i: Integer
begin
Result := 1;
if N<=0 then Exit;
for i := 2 to N do
Result := Result * i;
end;//考虑两个问题:一是效率;二是溢出
var
i: Integer
begin
Result := 1;
if N<=0 then Exit;
for i := 2 to N do
Result := Result * i;
end;//考虑两个问题:一是效率;二是溢出
崔作非 2005-04-14
- 打赏
- 举报
如楼上朋友那么用函数递归是最简单的。
