主题：单数相加
裴晚辰
[专家分：0] 发布于 2005-04-16 09:19:00
在0--100里的单数相加这个程序怎么写?[em12][em12][em18][em19](我不太会,)[em20]
在您留下程序时,请把步骤说一下[em8][em8]好吗?
回复列表 （共18个回复）
沙发
methuselah [专家分：6840] 发布于 2005-04-16 10:18:00
实现高嘶算法吗？
板凳
sd5774188 [专家分：260] 发布于 2005-04-16 18:35:00
program yb(input,output);
var a,b:integer;
begin
a:=-1;
while a<99 do
begin
a:=a+2;
b:=b+a;
end;
write('b=',b);
end.
结果是2500不知道对不对．．．
3 楼
mdjqdh [专家分：140] 发布于 2005-04-16 20:37:00
单数?
1加到99吗?
不明白哦~
4 楼
gooboy [专家分：20] 发布于 2005-04-16 20:45:00
begin
s:=0;
for i:=1 to 100 do
begin
if i mod 2<>0 then
s:=s+i
end;
end.
5 楼
dogdog [专家分：60] 发布于 2005-04-16 22:18:00
a:=1
begin
repeat
s:=s+a
a:=a+2
until a>100
?s
end
6 楼
给她买DOVE [专家分：0] 发布于 2005-04-16 22:25:00
var i,s:integer;
begin
s:=0;
for i:=1 to 100 do
if i mod 2<>0 then s:=s+1;
end.
7 楼
给她买DOVE [专家分：0] 发布于 2005-04-16 22:27:00
上面的忘加写语句了
end.前面加上writeln(s:5);
8 楼
MK [专家分：110] 发布于 2005-04-17 20:21:00
var i,s:integer;
begin
i:=1;s:=0;
repeat
s:=s+i;
i:=i+2;
until i=101;
writeln('s=',s);
end.
9 楼
MK [专家分：110] 发布于 2005-04-17 20:25:00
var i,s:integer;
begin
i:=1;s:=0;（i,s的赋值）
repeat
s:=s+i;（累加）
i:=i+2;（使i一直为单数）
until i=101;（当i为99加完后结束累加）
writeln('s=',s);（打印）
end.
请给分哦！
10 楼
小小的草根 [专家分：0] 发布于 2005-04-19 07:54:00
s:=s+i;（累加）
i:=i+2;（使i一直为单数）
for i:=1 to 100 do
if i mod 2<>0 then s:=s+1
这两种那一个快一些啊
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — 单数相加