Angela3

Есть у кого нибудь пример(программа) на тему "Метод простых итераций для нелинейного уравнения". f(x)=0 вычисление изолированного корня.Должна быть реализация 2 этапов решения: отделение корней и уточнение приближенного значения корня.... Помогите пож-ста!!!

Добавлено через 7 минут
procedure TForm1.Button1Click(Sender: TObject);
var n:integer;
x0,x,eps,d,y,z,c:real;

begin
memo1.Clear;
memo1.Lines.Add('n x y abs(y-x) exp(y)+y');
n:=0;x0:=-1;c:=-0.1;x:=x0;eps:=0.001;d:=0.01;
repeat
y:=x+c*(exp(x)+x);z:=x;
n:=n+1;
memo1.Lines.Add(FloatToStrf(n,fffixed,2,0)+' '+FloatToStrf(x,fffixed,2,4)+' '+FloatToStrf(y,fffixed,2,4)+' '+
FloatToStrf(abs(y-x),fffixed,2,4)+' '+FloatToStrf((exp(y)+y),fffixed,2,4));
x:=y;
until (abs(z-x)<=eps) and (abs(exp(x)+x)<=d);

end;




вот код программы немного есть...