[Anfänger]Kontrollstrukturen und Schleifen

[Estaaaa]

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

[Namenloser]

Mach bitte einen eigenen Thread auf, hier geht es um DenSchubs Tutorial.

[DenSchub]

Danke ihr beiden, habe es verbessert!