[РЕШЕНО] (Pascal) Найти корень уравнения

[MooonyCat]

Найти корень уравнения
f(x)=sinx-xcosx=0
в интервале (-3,14;3,14)
x=0, f(x)=0
Не представляю как это можно сделать. Каким методом, это находить нам тоже не сказали. Буду рад (подсказкам)помощи и решении.



Решение:
http://www.programmersforum.ru/showp...49&postcount=3

[Аватар]

Каким методом, это находить нам тоже не сказали.

https://ru.wikipedia.org/wiki/%D0%A7...B0.D1.87.D0.B8

[newerow1989]

function f(x:real):real;
begin
   Result:=Sin(x)-x*180/pi*Cos(x);//x в радинанах
   //x*180/pi - в градусах
end;

const a=-pi;
      b=pi;
      dx=0.000001;
var x,y0,y1:real;
begin
   x:=a-dx;
   Repeat
      x:=x+dx;
      y0:=f(x);
      y1:=f(x+dx);
      If y0*y1<0 then
         Writeln(x+dx/2:8:6);
   Until x>=b;
   Readln;
end.

[MooonyCat]

Спасибо Огромное!