循环求解连加问题、新手上路。

procedure TForm1.Button1Click(Sender: TObject);
Var m:Integer;
  i,j:Real;
begin

  m:=1;
  i:=1;
  j:=1;
  Repeat
  j:=j*1.0/m;
  i:=i+j;
  m:=m+1;
  until(j<=0.00001);
  Edit1.Text:=FloatToStr(i);
end;

end.
  在前面不是把i,j定义为实型了吗 ？ 为什么要把1分别赋值给m、i、j ？ 求解。

临时变量要附初始值的，否则值未知，可能造成不会预知的结果。