АС
Александр Скачков
Помогите пожалуйста составить программу на паскале.
Решить нелинейное уравнение методом касательных (Ньютона) . Погрешность Е=0.0001; уравнение 1.8*x^2 - sin(10*x) = 0
Решить нелинейное уравнение методом касательных (Ньютона) . Погрешность Е=0.0001; уравнение 1.8*x^2 - sin(10*x) = 0
var x,z:real;
begin
x:=1;
repeat z:=x; x:=x-(1.8*x*x-sin(10*x))/(3.6*x-10*cos(10*x)) until abs(x-z)<1e-4;
writeln('x=',x:0:4); readln
end.