FOR...TO...DO

...

var xo,xi,ro,y : real;

n,i : integer;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

  xo:=1;

  repeat

      ro:=strtofloat(edit1.Text);

  until (ro > 0);

  n:=strtoint(spinedit2.text);

  for i:=1 to n do

    begin

    xi:=(xo+(ro/xo))/2;

    xo:=xi;

    label5.Caption:='Näherungswert x nach dem Heronverfahren: '+ floattostr(xo);

    end;

  Label7.caption:='Die Zahl '+ floattostr(ro)+ ' hat die Quadratwurzel '+ floattostrF(sqrt(ro),ffFixed,10,4)+' .';

  y:=xo*xo;

  label8.caption:='=> Probe : '+ floattostr(y);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

  close;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

  spinedit2.Text :='5';

  edit1.Text     :='';

  label5.caption :='';

  label7.caption :='';

  label8.caption :='';

end;

end.

NEU Komponente SPINEDIT