主题：出个小题目,来者加分
捕杀章鱼
[专家分：30] 发布于 2008-11-07 13:44:00
用递归的方法求1+2+3+...+100的值[em12]
回复列表 （共23个回复）
沙发
tyflovewsl [专家分：230] 发布于 2008-11-07 15:31:00
program xx;
function add(x):integer;
begin
if x=1 then add:=1
else add:=x+add(x-1);
end;
begin
writeln(add(100));
end.
板凳
无所不能 [专家分：270] 发布于 2008-11-08 09:47:00
一个循环就行了
program as;
var i,m:integer;
begin
for i:=1 to 100 do
m:=m+i;
write(m);
end.
3 楼
小地小地 [专家分：300] 发布于 2008-11-08 10:09:00
2楼你注意
递归
书上有的
不认真看书
论坛不欢迎
4 楼
黑暗中的光芒 [专家分：10] 发布于 2008-11-10 18:31:00
………………………………
5 楼
DYF213 [专家分：90] 发布于 2008-11-13 19:41:00
弱智
6 楼
不能说的秘密 [专家分：30] 发布于 2008-11-14 12:19:00
[quote]一个循环就行了
program as;
var i,m:integer;
begin
for i:=1 to 100 do
m:=m+i;
write(m);
end.
7 楼
小王子的爱 [专家分：10] 发布于 2008-11-15 10:24:00
哥哥俺不懂不过俺可以帮你顶贴
8 楼
快乐战士 [专家分：110] 发布于 2008-11-19 18:48:00
汗，还有别的题目吗？？？？？？？？
9 楼
pupu [专家分：50] 发布于 2009-01-20 19:26:00
[quote][quote]一个循环就行了
program as;
var i,m:integer;
begin
for i:=1 to 100 do
m:=m+i;
write(m);
end.
[/quote]
[em1]
10 楼
jyz8125226 [专家分：50] 发布于 2009-01-24 22:50:00
好题，仅次于灌水
另外，应该是递推，虽然递归也对
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — 出个小题目,来者加分