您所在位置：主题：帮个忙看哪儿错了
dqliuqf
[专家分：0] 发布于 2006-06-20 16:36:00
求1+1/2+1/3+..........1/100的程序?
program ll;
var i,s:real;
begin
s:=0;
for i:=1 to 100 do
s:=s+1/i;
write(s)
end.
大家看看我哪儿错了,运行结果是怎么是0呢.
program ll;
var i,s:real;
begin
s:=0;
for i:=1 to 100 do
s:=s+1/i;
write(s)
end.
大家看看我哪儿错了,运行结果是怎么是0呢.
