主题：出个小题目,来者加分
捕杀章鱼
[专家分：30] 发布于 2008-11-07 13:44:00
用递归的方法求1+2+3+...+100的值[em12]
回复列表 （共23个回复）
11 楼
日奈森亚梦 [专家分：150] 发布于 2009-04-09 21:03:00
program rnsym;
var
s,i:integer;
begin
s:=0;
for i:=1 to 100 do;
s:=s+i;
writeln(s);
end.
12 楼
woshizhu [专家分：30] 发布于 2009-04-15 20:55:00
program digui;
var s,i:integer;
begin
for i:=1 to 100 do
s:=s+i;
writeln(s);
end.
13 楼
hxy_anhui [专家分：320] 发布于 2009-05-27 18:22:00
var s,n:longint;
function a(n:integer):longint;
if n=1 then a:=1 else a:=n+a(n-1);
end;
begin
writeln(a(100));
end.
14 楼
youyrsw1995 [专家分：30] 发布于 2009-06-12 17:53:00
program dg;
var i,m:integer;
begin
for i:=1 to 100 do
m:=m+i;
write(m);
end.
15 楼
东方神奇 [专家分：50] 发布于 2009-07-10 18:12:00
program abc;
var s,i:integer;
begin
for i:=1 to 100 do
s:=s+i;
writeln(s);
end.
16 楼
东方神奇 [专家分：50] 发布于 2009-07-10 18:13:00
顶
顶顶
顶顶顶
顶顶顶顶
17 楼
tzhlryy [专家分：270] 发布于 2009-08-01 10:36: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.
18 楼
chengyongxun [专家分：0] 发布于 2009-08-02 00:02:00
var i,m:integer;
begin
m:=0;
for i:=1 to 100 do
m:=m+i;
write(m);
end.
为了养成良好的编程习惯，最好在循环语句前把叠加变量m赋0
19 楼
tzhlryy [专家分：270] 发布于 2009-08-02 16:19: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.
20 楼
天天和和 [专家分：1420] 发布于 2009-08-19 11:52:00
var s,n:longint;
function a(n:integer):longint;
if n=1 then a:=1 else a:=n+a(n-1);
end;
begin
writeln(a(100));
end.
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — 出个小题目,来者加分