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

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

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

Код к задаче: «Метод касательных Ньютона - Turbo Pascal (33719)»

textual
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.

12   голосов, оценка 3.750 из 5


СОХРАНИТЬ ССЫЛКУ