pascle语言,FOR语句

方法1：
program math01；
var
i:integer;
r:real;
begin
r:=0;
for i:=1 to 100 do
r:=r+1/i;
write(r)
end.

方法2：
program math02；
var
i:integer;
r:real;
begin
r:=0;
for i:=100 downto 1 do
r:=r+1/i;
write(r)
end.

此问题时二者皆可，普遍情况下两者是等价的，有时特殊情况下，应使用第二种

var
i:longint;
s:double;
begin
s:=0;
for i:=1 to 100 do
s:=s+1/i;
writeln(s);
end.