Program Newton;

VAR xp,E,x0:REAL; X: REAL;

Function f(x:real): real;

Begin

f:= x*x-x-2;

End;

Function df(x:real): real;

Begin

df:= 2*x-1;

End;

Begin

writeln('введите начальное приближение х и точность');

Read(x0,e);

x:=x0;

REPEAT

xp:=x;

x:=x-f(x)/df(x);

UNTIL ABS(x-xp)<E;

writeln('корень уравнения =', x);

END.

В данной программе используется подпрограмма функция f, которая вычисляет левую часть исходного уравнения:

а также подпрограмма функция df, которая вычисляет значение дифференциала:

^.

Переменная xp используется в программе для сохранения предыдущего значения х.