Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
danilbobr
0 / 0 / 0
Регистрация: 22.11.2014
Сообщений: 1
#1

Найти все решения заданного уравнения на промежутке - Turbo Pascal

25.11.2014, 17:37. Просмотров 525. Ответов 1
Метки нет (Все метки)

Найти все решения заданного вам уравнение на интервале[-5;5] с точностью 0,001
http://www.cyberforum.ru/pascal/thread1439488.html
Вот само уравнение x^3+3x^2-9x-20=-8sinx+8cosx
Написать на языке Pascal. Ребят, вообще не втупляю, как делать.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.11.2014, 17:37
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти все решения заданного уравнения на промежутке (Turbo Pascal):

Найти все простые числа в промежутке от 1 до n.
Найти все простые числа в промежутке от 1 до n.

В промежутке [m,n] найти все палиндромы и подсчитать их количество
9. В промежутке найти все палиндромы и подсчитать их количество.

Вычислить все корни уравнения, заданного выражением
Помогите пожалуйста решить задачу....условие:Вычислить все корни...

Найдите все целые решения уравнения на отрезке [0,1000] и выведите их в порядке возрастания
Вводятся 4 числа: a, b, c и d. Найдите все целые решения уравнения ax3 + bx2 +...

Найти все нечётные числа в промежутке числовой последовательности
Найти все нечётные числа в промежутки числовой последовательности от A до...

1
Cyborg Drone
Модератор
5249 / 3116 / 2432
Регистрация: 17.08.2012
Сообщений: 10,068
28.11.2014, 13:25 #2
Лучший ответ Сообщение было отмечено как решение

Решение

Самое тупое решение: преобразовываем выражение к виду

x3+3x2-9x-20+8(sin(x)-cos(x))=0

пробегаемся по интервалу с шагом 0.001 и смотрим, где функция меняет знак. Там и решения.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
function f(x: real): real;
begin
  f := x * x * x + 3 * x * x - 9 * x - 20 + 8 * (sin(x) - cos(x))
end;
 
var i, k: integer;
    u, v: real;
begin
  k := 0;
  for i := -4999 to 5000 do
    begin
      u := f((i - 1) / 1000);
      v := f(i / 1000);
      if ((u < 0) and (v >= 0)) or ((u > 0) and (v <= 0))
        then begin
          inc(k);
          writeln('x(', k, ') = ', i / 1000:6:3)
        end
    end;
  readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.11.2014, 13:25
Привет! Вот еще темы с решениями:

Найти все четные числа в промежутке числовой последовательности
1.Найти все четные числа в промежутки числовой последовательности от А до В....

Найти все нечётные числа в промежутке числовой последовательности
1.Найти все нечётные числа в промежутки числовой последовательности от А до...

Найти действительные корни заданного уравнения
Квадратное уравнение определено его коэффициентами a, b, c. Найти...

Для заданного числа a найти корень уравнения
Для заданного числа a найти корень уравнения f(x)=0, где ____(2ax+abs(a-1)...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru