Brauche Hilfe beim Heron Algorhytmus

[Estaaaa]

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]

[marabu]

Herzlich willkommen in der Delphi-PRAXiS, Esther.

Der Heron-Algorithmus hat nichts in deiner Behandlungsroutine für das Ereignis OnClick des Buttons zu suchen.

Lies dich mal hier ein: klick

Und wenn du hier nach Heron suchst, bekommst du auch eine recht überschaubare Menge an Treffern.

Freundliche Grüße vom marabu

[Luckie]

Problem wird das sein:
until x=y; Du vergleichst hier zwei Fließkommawerte. Aufgrund von Rundungsfehlern und der internen Darstellung von Fließkommazahlen im Rechner sollte man aber keine Fließkommazahlen auf Gleichheit prüfen. Siehe dazu: http://www.michael-puff.de/Artikel/2...liesskomma.php

[calculon]

Desweiteren brauchst du in einem repeat - until - Block kein begin und end...