Kann mir mal bitte jemand helfen .. ich soll eine Wurzelberechnung nach Heron Algorhytmus für meinen Info Kurs schreiben aber das Programm funktioniert nicht... es hengt sich immer auf:
procedure TForm1.Button1Click(Sender: TObject);
var w,a,b,F,x,y: Real;
begin
memo1.Clear;
w:=strtofloat(edit1.text);
F:=w;
b:=w;
a:=1;
Repeat
begin
memo1.Lines.Add(floattostr(x));
x:=(a+b)/2;
y:=F/x;
a:=x;
b:=y;
end;
until x=y;
end;
end.
Könnte es sich bitte mal jemand angucken und sagen was ich falsch gemacht habe...
m.f.G
Esther
