Ich muss für die Schule ein Programm schreiben was Wurzeln nach Heron berechnet ... Ich versuche es als aber es klapp nicht und das Programm was ich geschreiben habe hängt sich auf.. :
Delphi-Quellcode:
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;
Kann mir bitte jemand helfen und sagen was an dem Programm falsch ist ... wäre sehr dankbar darüber weis echt nicht merh weiter..
Esther
[edit=Luckie]Sourcecode formatiert. Das nächste mal bitte selber machen. Mfg, Luckie[/edit]