您所在位置：主题：pascal的一个程序
流星菜鸟
[专家分：0] 发布于 2005-08-04 15:35:00
program xu23;
var n:integer;
s:real;
begin
for n:=1 to 1000 do
s:=s+1/n;
writeln('s=',s:5:2);
end.
[size=5]哪位大虾能告诉我这个程序有什么用？[/size]
var n:integer;
s:real;
begin
for n:=1 to 1000 do
s:=s+1/n;
writeln('s=',s:5:2);
end.
[size=5]哪位大虾能告诉我这个程序有什么用？[/size]
