主题：从一加到一百
裴晚辰
[专家分：0] 发布于 2005-04-02 12:33:00
[em2][em18][em18]
能教我从一怎样加到一百?求求你拉[em12][em12][em18][em18][em18][em18][em18][em18][em18][em18][em2][em2][em18][em18][em21][em21][em28]
回复列表 （共20个回复）
沙发
LYFFOX [专家分：230] 发布于 2005-04-02 13:36:00
begin
s=0;
for a=1 to 100 do
s:=s+a;
print s;
end.
板凳
xuzhenyi [专家分：850] 发布于 2005-04-02 14:06:00
BASIC + PASCAL
楼上好厉害阿
什么语言编译器???
var j,k:integer;
begin
j:=0;
for i:= 1 to 100 do
j:=j+i;
writeln(j);
end.
3 楼
gooboy [专家分：20] 发布于 2005-04-02 16:02:00
program 累加；
var i,j:integer;
function s(i:integer;):integer;
var tt,j:integer;
begin
tt:=0;
for j:=1 to i do
tt:=tt+j;
s:=tt;
end;
begin
read(i);
j:=s(i);
writeln(j);
end;
这是个累加器~1+..n=?
4 楼
MK [专家分：110] 发布于 2005-04-02 19:15:00
这么简单都不知道！
var
begin
s:=0;
for i:=1 to 100 do
s:=s+i;
writeln(s);
end.
5 楼
天才少年987987987 [专家分：1420] 发布于 2005-04-02 19:24:00
var a:integer;
begin
a:=5050;
writeln(a);
end.
这样时间复杂度最低！！！！！！！！！！
6 楼
LYFFOX [专家分：230] 发布于 2005-04-02 19:57:00
不要笑
我写的是伪代码
呵呵
7 楼
sd5774188 [专家分：260] 发布于 2005-04-03 11:21:00
大错特错 在for的循环里是不能改变变量的值的
program yb(input,output);
var a,b:integer;
begin
a:=0;
b:=0;
while b<=99 do
begin
b:=b+1;
a:=a+b;
end;
write('a=',a);
end.
已测试
8 楼
mdjqdh [专家分：140] 发布于 2005-04-03 11:58:00
var
begin
s:=0;
for i:=1 to 100 do
s:=s+i;
writeln(s);
end.
没有错误把
楼上的那么麻烦阿
9 楼
裴晚辰 [专家分：0] 发布于 2005-04-04 18:48:00
请说清楚好么?
用循环语句行吗?[em12][em12][em12][em12][em12][em12][em12][em12]
10 楼
yuxiaonsu [专家分：90] 发布于 2005-04-04 18:53:00
行：
var
i,t:integer;
begin
t:=0;
for i:=1 to 100 do t:=t+i;
writeln(t);
end.
我来回复
您所在位置：