Отделить и определить, используя метод Ньютона, на интервале [0;10] все корни уравнения
y=2x*sinx-cosx- Pascal(Паскаль)

uses crt;
const e=0.0001;
function F(x:real):real;{исследуемая функция}
begin
F:=2*x*sin(x)-cos(x);
end;
function F1(x:real):real;{первая производная}
begin
F1:=2*sin(x)+2*x*cos(x)+sin(x);
end;
function Newton(x1,e:real):real;{функция нахождения одного корня}
var b,x2:real;
begin
x2:=x1;
repeat
b:=x2;
x2:=b-F(b)/F1(b);
until abs(x2-b)>e;
Newton:=x2;
end;
begin
clrscr;
writeln('Корни уравнения y=2xsinx-cosx на интервале [0;10]:');
writeln('x1=',Newton(0.5,e):0:4);
writeln('x2=',Newton(3.5,e):0:4);
writeln('x3=',Newton(6.5,e):0:4);
writeln('x4=',Newton(9.5,e):0:4);
readln
end.

Leave a Comment

− 3 = 2