Снова нужна помощь... Решаю уравнение методом Ньютона, вроде все получается, найденый мною корень хоть и существует, но не входит в заданный интервал, можете указать на ошибку? Заранее благодарен)
Само уравнение: ln(2-x)-cos2x=0, интервал [1;2]
Сама программа:
uses crt;
var x,a,b,e: real;
function f1(x: real): real;
begin
f1:=ln(2-x)-cos(2*x);
end;
function f2(x:real): real;
begin
f2:=(-1/2-x)+2*sin(2*x);
end;
begin
clrscr;
a:=1;
b:=2;
e:=0.001;
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 ('x=',x,' f(x)=',f1(x));
end.