Программа находит все интервалы, на которых расположены корни и уточняет решения

@Eskel_ · Регистрация: 24.04.2013

Студворк — интернет-сервис помощи студентам

Доброго времени суток.
Что-то я завис с программой, помогите, пожалуйста.

Составить одну программу, которая работает полностью автоматически: достаточно ввести в программу функцию и запустить. Программа находит все интервалы, на которых расположены корни и уточняет решения. После того, как очередной интервал найден, программа выводит его на экран и, применяя метод перебора с нужным шагом, уточняет решение.
Пример:
Интервал [-2;-1,5]
Решение: -1.7201
Интервал [1,5;2]
Решение: 1.7201

Решить требуется следующее уравнение:
x^3 + 3x^2 - 9x - 20 = -8sin(x) + 8cos(x).

Три корня: -4.488; -2.100; 2.363

Не могу доделать программу, у меня находит один левый интервал и один корень, а дальше что-то застрял.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
const eps = 0.0001;
var x, delta: real;
function f(x: real): real;
begin
     f := (x*x*x) + (3*x*x) - (9*x) - 20 + (8*sin(x)) - (8*cos(x));
end;
begin
x := -5;
delta := 1;
while f(x) * f(x + delta) > 0 do
      x := x + delta;
Writeln('x = ',(x+(delta/2)):6:3);
delta := 2 * eps;
while f(x) * f(x + delta) > 0 do
x := x + delta;
writeln((x+eps):6:3);
end.

Заранее большое спасибо за помощь.

@Kordn · 16.03.2014, 01:01

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
const
  eps = 0.0001;
  alpha = 1;
  interval = 5;
 
var
  x, delta: real;
 
function f(x: real): real;
begin
  f := (x * x * x) + (3 * x * x) - (9 * x) - 20 + (8 * sin(x)) - (8 * cos(x));
end;
 
begin
  x := -interval;
  repeat
    delta := alpha;
    while (f(x) * f(x + delta) > 0) and (x <= interval) do
      x := x + delta;
    if x <= interval then
    begin
      Writeln('Интервал [', x:6:3, ';', (x + delta):6:3, ']');
      delta := 2 * eps;
      while f(x) * f(x + delta) > 0 do
        x := x + delta;
      writeln('Решение: ', (x + eps):6:3);
      x := x + delta;
    end;
  until x > interval;
end.

Новые блоги и статьи Все статьи Все блоги /
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .