Question

Помогите пожалуйста сделать задание на Паскале

Answer 1

===== PascalABC.NET =====

function F(x: real) := x - 1 / (3 + Sin(3.6 * x));

begin

 var (a, b, eps) := (0.0, 0.85, 1e-5);

 var x: real;

 while Abs(F(a) - F(b)) >= eps do

 begin

   x := (a + b) / 2;

   var y := F(x);

   Writeln('Интервал (', a, ',', b, '), x = ', x, ', y =', y);

   if Sign(y) = Sign(F(a)) then

     a := x

   else

     b := x

 end;

 x := (a + b) / 2;

 Writeln('Решение: х = ', x, ', y = ', F(x))

end.