Усовершенствованный метод итераций

[pavloff_049]

Здравствуйте, помогите пожалуйста!
суть вопроса, составил задачу на "усовершенствованный метод итераций", все запускается, корень находит но отличный от того который должен получится.
условия задачи: уравнение F(x)=10*x-e^x=0; интервал определить графически; использовать подпрограмму функцию для приведенной функции F(x);
по графику определил корень который должен получится: х=3.57715

вот мой код

PHP код:

program z3;
uses crt;
function f(xN:real):real;
begin
f :=10*(xN)-(Exp(xN));
end;
procedure nIter(xN,xNm1:real; var xNp1,A:real);
var
func:real;
begin
A:=0;
func:=0;
func := f(xN);
A := 1/((1-(func-xN)/(xN-xNm1)));
xNp1 := xN + A*(func - xN);
end;

var
func,xN,Eps,xNm1,xNp1,gE,al:real;
iter: integer;

begin clrscr;
writeln('xNm1=');readln(xNm1);
Eps:=0.00001;
xN := f(xNm1);
xNp1:=f(xN);
iter := 1;
writeln('iteraci9: ',iter,'; xN: ',xN:2:4,'; E: ',Abs(xN-xNm1):2:4);
while(Abs(xN-xNm1)>=Eps) do
begin
nIter(xN,xNm1,xNp1,al);
xNm1 := xN;
xN := xNp1;
inc(iter);
writeln('iterator: ',iter,'; xN: ',xN:2:4,'; E: ',Abs(xN-xNm1):2:4,' a=',al:2:5,' f(x)=',f(xN):2:4);
end;
writeln('Otvet: ',xN:2:4);
end. 


[Somebody]

Метод итераций используется для уравнений вида
f(x) = x
Если уравнение
10*x-e^x=0
То функция в проге должна быть
11*x-e^x