Форум программистов, компьютерный форум, киберфорум
Наши страницы
С++ для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
Сфня
0 / 0 / 0
Регистрация: 23.11.2013
Сообщений: 49
1

Найти корни уравнений ax^3+bx^2+cx=0 и y^3-ay^2-b=0, используя процедуру. Есть ли у этих уравнений совпадающие корни?

13.02.2014, 22:16. Просмотров 757. Ответов 8
Метки нет (Все метки)

Помогите пожалуйста решить данную задачу, на тему программирование с использованием процедур.
Просто сам не врубаюсь(
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.02.2014, 22:16
Ответы с готовыми решениями:

Найти корни уравнений
копался в старых файлах и нашел, как еще в шк писал штучку на паскакале для...

Найти корни кубических уравнений
Найти корни уравнений ax^3+bx^2+cx=0 и y^3-ay^2-b=0, используя процедуру. Есть...

Как вывести корни уравнений на экран?
Помогите пожалуйста дописать задачу. Как вывести корни уравнений на экран?? ...

Сколько из данных квадратных уравнений имеют вещественные корни?
Даны 3 квадратных уравнения ... Сколько из них имеют вещественные корни? ...

Функция: найти все корни, используя метод касательных
Здравствуйте,помогите с программой пожалуйста. Суть задачи такова :для функции ...

8
S_el
2220 / 1683 / 354
Регистрация: 15.12.2013
Сообщений: 6,685
14.02.2014, 10:40 2
Что дано?
0
Сфня
0 / 0 / 0
Регистрация: 23.11.2013
Сообщений: 49
14.02.2014, 11:45  [ТС] 3
Найти корни уравнений ax^3+bx^2+cx=0 и y^3-ay^2-b=0, используя процедуру. Есть ли у этих уравнений совпадающие корни?
0
S_el
2220 / 1683 / 354
Регистрация: 15.12.2013
Сообщений: 6,685
14.02.2014, 23:13 4
Цитата Сообщение от Сфня Посмотреть сообщение
Найти корни уравнений ax^3+bx^2+cx=0 и y^3-ay^2-b=0, используя процедуру. Есть ли у этих уравнений совпадающие корни?
Спасибо,но это я и в 1-ом посте прочел.Коэффициенты вводит пользователь?Задаются рандомно?Считываются с файла?
1
Сфня
0 / 0 / 0
Регистрация: 23.11.2013
Сообщений: 49
15.02.2014, 14:40  [ТС] 5
S_el, оу извиняюсь, желательно коэффициенты вводились пользователем)
0
S_el
2220 / 1683 / 354
Регистрация: 15.12.2013
Сообщений: 6,685
15.02.2014, 22:52 6
Показывайте ваши наработки.
0
Сфня
0 / 0 / 0
Регистрация: 23.11.2013
Сообщений: 49
16.02.2014, 17:23  [ТС] 7
S_el, я пытался но ничего вообще идей нету(
0
HighPredator
5689 / 2008 / 723
Регистрация: 10.12.2010
Сообщений: 5,774
Записей в блоге: 3
16.02.2014, 18:19 8
Лучший ответ Сообщение было отмечено Сфня как решение

Решение

Можно было и нагуглить...
C++
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
/* Cubic equation solution. Real coefficients case.
 
   int Cubic(double *x,double a,double b,double c);
   Parameters:
   x - solution array (size 3). On output:
       3 real roots -> then x is filled with them;
       1 real + 2 complex -> x[0] is real, x[1] is real part of 
                             complex roots, x[2] - non-negative 
                             imaginary part.
   a, b, c - coefficients, as described 
   Returns: 3 - 3 real roots;
            1 - 1 real root + 2 complex;
            2 - 1 real root + complex roots imaginary part is zero 
                (i.e. 2 real roots). 
*/
 
#include <math.h>   /* for sqrt(), fabs(), pow(), cos(), acos(). */
#define M_PI (3.141592653589793)
#define M_2PI (2.*M_PI)
 
int Cubic(double *x,double a,double b,double c) {
  double q,r,r2,q3;
  q=(a*a-3.*b)/9.; r=(a*(2.*a*a-9.*b)+27.*c)/54.;
  r2=r*r; q3=q*q*q;
  if(r2<q3) {
    double t=acos(r/sqrt(q3));
    a/=3.; q=-2.*sqrt(q);
    x[0]=q*cos(t/3.)-a;
    x[1]=q*cos((t+M_2PI)/3.)-a;
    x[2]=q*cos((t-M_2PI)/3.)-a;
    return(3);
  }
  else {
    double aa,bb;
    if(r<=0.) r=-r;
    aa=-pow(r+sqrt(r2-q3),1./3.); 
    if(aa!=0.) bb=q/aa;
    else bb=0.;
    a/=3.; q=aa+bb; r=aa-bb; 
    x[0]=q-a;
    x[1]=(-0.5)*q-a;
    x[2]=(sqrt(3.)*0.5)*fabs(r);
    if(x[2]==0.) return(2);
    return(1);
  }
}
С алголиста.
1
Сфня
0 / 0 / 0
Регистрация: 23.11.2013
Сообщений: 49
16.02.2014, 20:31  [ТС] 9
один вопрос 'winMain@16', что за ошибка?

Добавлено через 19 минут
HighPredator, спасибо) а что эта ошибка означает?)
0
16.02.2014, 20:31
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.02.2014, 20:31

Найти корни уравнений. Используя методы прямоугольников, трапеций, Симпсона и тд.
Помогите пожалуйста с решением! Ато вообще ничего не понимаю в Паскале 1....

Найти корни уравнений
Если делать с помощью polyroots, нужно ли складывать коэффициенты перед...

Найти корни уравнений
Прошу Вас помочь с написанием программки, учусь заочно, поэтому мне никто не...


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

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

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