var
i:Integer;
m,s,t:Real;
begin
i:=1;
s:=1;
m:=0;
repeat
m:=m+i;
t:=1/m;
s:=s+t;
i:=i+1;
until(i<=0.0001);
Edit1.Text:=FloatToStr(s);
end;end.
用delphi7编写1+1/(1+2)+1/(1+2+3)+.....哪里错了?很急
i:Integer;
m,s,t:Real;
begin
i:=1;
s:=1;
m:=0;
repeat
m:=m+i;
t:=1/m;
s:=s+t;
i:=i+1;
until(i<=0.0001);
Edit1.Text:=FloatToStr(s);
end;end.
用delphi7编写1+1/(1+2)+1/(1+2+3)+.....哪里错了?很急
这个不会成立呀, i:=1; i:=i+1;
你看会成立吗