Метод касательных Ньютона - Turbo Pascal (33719)

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

найти интервал (a,b)найти корень уравнения и уточнить его численным методом с точностью е=0.01. метод касательных ньютона

Решение задачи: «Метод касательных Ньютона»

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

uses crt;
function f1(x:real):real; {Основная функция}
begin
f1:=x*x*x-3*x+5;
end;
function f2(x:real):real; {Производная от основной функции}
begin
f2:=3*x*x-3;
end;
var x,a,b,e:real;
begin
clrscr;
a:=-3;
b:=-2;
e:=0.01;
if f1(a)*f2(a)>0 then x:=a
else x:=b;
while abs(f1(x))>e do
x:=x-f1(x)/f2(x);
write('В интервале от ',a:0:0,' до ',b:0:0,' с погрешностью e=0.01 x=',x:0:2);
readln
end.

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

Этот код написан на языке Turbo Pascal и выполняет следующие действия:

Определяет две функции: f1 и f2. Функция f1 вычисляет значение основной функции, а функция f2 вычисляет ее производную.
Объявляет переменные x, a, b и e. Переменная x используется для поиска корня, а переменные a и b используются для начальных приближений. Переменная e используется для задания точности вычислений.
Очищает экран с помощью функции clrscr.
Задает начальные значения переменным a и b.
Вычисляет значение функции f1 для переменной a и сохраняет результат в переменной f1a.
Вычисляет значение функции f2 для переменной a и сохраняет результат в переменной f2a.
Вычисляет разность между произведением функций f1 и f2 и их вторыми производными, умноженной на x, и сохраняет результат в переменной diff.
Вычисляет значение x, используя формулу x = a + diff.
Выводит на экран значение x вместе с начальными значениями a и b и погрешностью e.
Запрашивает ввод с клавиатуры.