荔园在线
荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: Chengal (浩气冲天), 信区: Visual
标 题: delphi递归实现n！
发信站: 荔园晨风BBS站 (Mon Jul 14 22:55:46 2003), 站内信件
在implemtation 下面加入以下函数：
function count(n:integer):integer;
begin
if n=1 then
result:=1 //else前面不要;
else
result:=count(n-1)*n;
end;
--
※ 来源:·荔园晨风BBS站 bbs.szu.edu.cn·[FROM: 192.168.36.4]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接：深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店