16,749
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
designonline 2004-12-04
- 打赏
- 举报
是啦。。数字大的话怎么解决，换成float??
ICMGDCHN 2004-12-03
- 打赏
- 举报
算法本来就这样,具体实现的话,比如DES,RSA的实现也是这个算法,只不过是把结果放在一个字符数组里保存而已.至于大数运算,我倒也挺想讨论一下的
ppayun 2004-12-03
- 打赏
- 举报
阶乘有专门的算法，楼上的写法数字稍大就溢出了。
以前论坛中有关于阶乘算法的讨论，你找找看。
以前论坛中有关于阶乘算法的讨论，你找找看。
ICMGDCHN 2004-12-03
- 打赏
- 举报
递归:
function fact(n:integer):integer;
begin
if (n=0) or (n=1) then
result:=1
else result:=n*fact(n-1);
end;
非递归:
function fact(n:integer);integer;
var
i:integer;
tmp:integer;
begin
tmp:=1;
for i:= n downto 1 do
tmp:=tmp*i;
result:=tmp;
end;
function fact(n:integer):integer;
begin
if (n=0) or (n=1) then
result:=1
else result:=n*fact(n-1);
end;
非递归:
function fact(n:integer);integer;
var
i:integer;
tmp:integer;
begin
tmp:=1;
for i:= n downto 1 do
tmp:=tmp*i;
result:=tmp;
end;
