主题：SOS!SOS!
蓝色漂流瓶~-~
[专家分：0] 发布于 2007-12-16 10:40:00
输入N,用递归求1+2+3+4+~ ~ ~ ~ ~ ~ ~ ~+N
回复列表 （共3个回复）
沙发
Lovely哆啦 [专家分：1360] 发布于 2007-12-16 10:46:00
var s,t:integer;
function fac(n:integer):integer;
begin
if n=1 then fac:=1 else fac:=fac(n-1)+n;
end
begin
read(t);
s:=fac(t);
write(s);
end.
'感慨一下:递归好难啊!
脑细胞死了不少!
板凳
angwuy [专家分：2280] 发布于 2007-12-16 15:52:00
无聊~
有简单方法不用,非要用递归
3 楼
cylr2014 [专家分：0] 发布于 2008-01-13 20:45:00
简单
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — SOS!SOS!