![](/logo_grey.gif)
Последние записи
- Сравнение языков на массивах. Часть 2
- wprintf как напечатать кириллицу
- Взаимодействие через командную строку
- Сравнение языков на массивах. Часть 1
- Сравнение языков по скорости
- Чтение огромных xml-файлов
- Как в Python+Selenium webdriver открыть новую вкладку в уже открытом браузере?
- Lazarus, проверка существования строки таблице
- BASM и record, обращение к полям записи
- Web PHP Framework Symfony
![](http://programmersclub.ru/slurm3.jpg)
Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk
![](http://programmersclub.ru/katajpg.jpg)
Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
25th
Сен
На заданном отрезке найти все корни уравнения f(x)=0 с точностью e
Posted by obzor under Pascal
На заданном отрезке найти все корни уравнения f(x)=0 с точностью e
Уравнение: 1 / sin(x) — 2 ^ x + 0.5 = 0
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.
Случайные статьи
Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту
![пеллетные котлы](http://programmersclub.ru/respective.jpg)
пеллетные котлы
![пеллетный котел](http://programmersclub.ru/emtas.jpg)
Пеллетный котел Emtas
![форум программистов](http://programmersclub.ru/banf336х280.gif)
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)