主题：从一加到一百
裴晚辰
[专家分：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个回复）
11 楼
xuzhenyi [专家分：850] 发布于 2005-04-04 19:58:00
7楼的
你学的是什么语言
哪门子歪理
12 楼
裴晚辰 [专家分：0] 发布于 2005-04-06 12:20:00
[em2][em2][em2][em2][em2]谢谢,[em10][em10][em10][em10]可我还是不太懂
你们能把步骤说清楚吗[em10][em10][em18][em10][em10]求求你们了[em2][em8]
13 楼
hbn245 [专家分：0] 发布于 2005-04-09 17:55:00
It't so easy
var i,ss:integer;
begin i=0;
for ss:=1to100
i:=i+ss;
write(i)
end
14 楼
cskeleton [专家分：10] 发布于 2005-04-11 19:34:00
5050
var i,j:integer;
begin
for i:=1 to 100 do
j:=i+j;
writeln(j);
end.
15 楼
sunny88 [专家分：0] 发布于 2005-04-15 09:43:00
begin
read(x);
s=0;
begin
for 1 to 100 do
S:=S+x
end;
writeln('s',s)
end.
16 楼
yeshengxin [专家分：0] 发布于 2005-04-15 15:16:00
搞错没，这么容一都不知道
program aaa;
var
he,i:integer;
begin
for i:=1 to 100 do
he:=i+he;
writeln(he);
end.
17 楼
裴晚辰 [专家分：0] 发布于 2005-04-16 09:11:00
[em8][em8][em8][em8][em8]我刚学
18 楼
mdjqdh [专家分：140] 发布于 2005-04-16 20:18:00
用1 个变量从1 循环到100 累加入 另一个变量 就可以
19 楼
smallboat [专家分：60] 发布于 2005-04-17 09:36:00
第 7 楼的错了
在Turbo Pascal 7.0之前如果改变For循环的循环变量会引起错误，但在7.0重视可以改变其循环变量值的，如
for i:=1 to 10 do begin
writeln(i);
if i=5 then i:=9;
end;
输出结果是
1
2
3
4
5
10
至于从1家到100用累加
program aaa;
var i,s:integer;
begin
s:=0
for i:=1 to 100 do s:=s+1;
writeln(s);
end.
20 楼
泡泡糖 [专家分：230] 发布于 2005-05-04 08:32:00
可以用循环，从1循环到100，然后累加起来就可以了。
program lt;
var i,s:integer;
begin
for i:=1 to 100 do s:=s+i;
writeln(s);
end.
我来回复
您所在位置：