Метод Ньютона

[Poli-007]

Определить метод касательных f(x)=0. f(x)=x^2-10*x+8, E=0.01, принадлеж. отрезку [9;10]

[Mad_Cat]

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