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

Решение уравнения ax^2+bx+c=0 (a,b,c) принадлежит R

11.09.2017, 20:40. Просмотров 775. Ответов 1
Метки нет (Все метки)

Нужно написать программу для решения уравнения ax^2+bx+c=0 , но сложность в том, что коэффициенты (a,b,c) МОГУТ быть равны 0.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.09.2017, 20:40
Ответы с готовыми решениями:

Определить тип уравнения, указать метод решения, общее решение дифференциального уравнения
дано дифференциальное уравнение первого порядка: (x+y+1)dx+(x-y2+3)dy=0....

Алгоритмизация решения уравнения для банковского IT-шника (или просто решение уравнения)
Добрый день. Нужна помощь (в идеале) с алгоритмизацией решения уравнения или...

Найти решение уравнения, изоклинную и интегральную кривые, решение задачи Коши
Помогите пожалуйста! а) Найти решение вида: x=a,y=b,y=kx+b...

Найти общее решение или частное решение уравнения первого порядка
Помогите решить: 2*x*sqrt(1-y^2)=y' * (1+x^2). Я не понимаю как решить это,...

Найти общее решение дифференциального уравнения I порядка и частное решение.
помогите пожалуйста!!!! Найти общее решение дифференциального уравнения I...

1
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3909 / 2565 / 2086
Регистрация: 22.11.2013
Сообщений: 7,181
12.09.2017, 00:25 2
Лучший ответ Сообщение было отмечено allods как решение

Решение

Модифицировать квадратное уравнение, добавив проверку того, что первый коэффициент не равен нулю

Добавлено через 16 минут
Хотя, если правильно путаю, должно быть достаточно:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var a, b, c, d: Real;
begin
  Write('ax^2 + bx + c = 0;  a b c: '); ReadLn(a,b,c);
  if a=0 then
    if b=0 then
      if c=0
      then WriteLn('x-любое число')
      else WriteLn('действительных корней нет')
    else
      if c=0
      then WriteLn('x=0')
      else WriteLn('x=',-c/b)
  else begin
    d:=b*b-4*a*c;
    if d<0 then
      WriteLn('действительных корней нет')
    else if d>0 then
      WriteLn('x1=',(-b-sqrt(d))/2/a,' x2=',(-b+sqrt(d))/2/a)
    else
      WriteLn('x1=x2=',-b/(2*a));
  end;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.09.2017, 00:25

Найти общее решение дифференциального уравнения II порядка и частное решение.
помоги пожалуйста!!! Найти общее решение дифференциального уравнения II...

Найти общее решение дифференциального уравнения и частное решение, удовлетворяющее начальному условию
y={y}_{0} при x={x}_{0},y(0)=1 y'-3x^2y={e}^{2x+x^3} y=uv y'=u'v+uv' ...

Найти общее решение дифференциального уравнения и частное решение.
Найти общее решение дифференциального уравнения и частное решение,...


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

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

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