Необходимо найти один корень трансцендентного уравнения f(x) = 0 предложенным методом на указанном промежутке - PascalABC.NET

Формулировка задачи:

Метод Ньютона x^4+0.8x3−0.4x2−1.4x−1.2=0, x ∈ [−1.2, −0.5]. Примеры процедур для методов половинного деления, Ньютона и секущих приведены в приложении. Для методов половинного деления и секущих необходимо конкретизировать функцию вычисления f(x), для метода Ньютона необходимо аналитически вычислить производную f’(x) и конкретизировать функцию g(x) = f(x)/f’(x).

Решение задачи: «Необходимо найти один корень трансцендентного уравнения f(x) = 0 предложенным методом на указанном промежутке»

Листинг программы

const e=0.0001;//точность
function f(x:real):real;
begin
f:=x*x*x*x+0.8*x*x*x-0.4*x*x-1.4*x-1.2;
end;
function g(x:real):real;
begin
g:=(x*x*x*x+0.8*x*x*x-0.4*x*x-1.4*x-1.2)/(4*x*x*x+2.4*x*x-0.8*x-1.4);
end;
var x,b:real;
begin
x:=(-0.5-1.2)/2;//первое приближение в середине интервала
repeat
b:=x;
x:=b-g(b);
until abs(x-b)<e;
write('X=',x:0:4);
end.

Объяснение кода листинга программы

Объявляются константа e, которая задает требуемую точность вычислений, и функция f(x), которая представляет собой выражение для корня трансцендентного уравнения.
Объявляется функция g(x), которая вычисляет приближение корня уравнения на основе текущей оценки x.
Объявляются переменные x и b, которые используются для хранения текущего приближения и предыдущего приближения к корню соответственно.
Переменная x инициализируется первым приближением в середине интервала, где уравнение f(x) равно нулю.
В цикле while повторяется следующая последовательность действий: a. Переменная b присваивается текущее значение x. b. Значение x обновляется как b - g(b), т.е. как приближение к корню, рассчитанное на основе предыдущего приближения b. c. Цикл продолжается, пока изменение x относительно b не станет меньше заданной точности e.
После выхода из цикла while выводится значение x с заданной точностью.