На заданном отрезке найти все корни уравнения f(x)=0 с точностью e

Posted by obzor under Pascal

На заданном отрезке найти все корни уравнения f(x)=0 с точностью e

Уравнение: 1 / sin(x) — 2 ^ x + 0.5 = 0

newerow1989

function step2(chislo,stepen:real):real;
begin
   Result:=exp(stepen*ln(chislo));
end;

function f(x:real):real;
begin
   f:=1/Sin(x*pi/180)-step2(2,x)+0.5;
end;

const e=0.00001;
      a=-10;
      b=10;
      dx=0.01;
var x,y:real;

procedure del2(a,b:real);
var c,fa,fb,fc,de:real;
begin
   Repeat
      c:=(a+b)/2;
      fa:=f(a);
      fb:=f(b);
      fc:=f(c);
      If fa*fb>0 then
         Exit;
      If fa*fc>0 then
         a:=c;
      If fb*fc>0 then
         b:=c;
      de:=Abs(b-a);
   Until e>de;
   Writeln(c:5:8,'   ',f(c):5:8);
end;

begin
   x:=a-dx;
   Repeat
      x:=x+dx;
      del2(x,x+dx);
   Until x>=b;
   Readln;
end.

тема на форуме

Случайные статьи

• Отследить переход в спящий режим
• Искусство изменеия GTA
• Функция min
• Рассылка. Выпуск 72.
• Русская инструкция к WinHex
• Проверка значений строки в Excel?
• Номера клавиш и её имя
• Сохранить массив байтов в файл
• Библиотека для работы с регэкспами в Delphi
• Выключить приложение, у которого ничего нет.