Newton-Verfahren und Abweichungen

[Mathematiker]

Hallo,

Code:

eps:=strtofloat(edit7.text);
  repeat
    xalt:= x;
    ergebnis:=Newton(a,b,c,d,e,x);
    x:= ergebnis;
    memo1.lines.add(inttostr(count) +': ' +floattostr(ergebnis));
    count := count+1;
  until abs(x-xalt)<eps;

Beste Grüße
Mathematiker