Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
allods
0 / 0 / 0
Регистрация: 11.09.2017
Сообщений: 1
#1

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

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

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

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

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

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

Найти решение уравнения, изоклинную и интегральную кривые, решение задачи Коши - Дифференциальные уравнения
Помогите пожалуйста! а) Найти решение вида: x=a,y=b,y=kx+b y'=\frac{y^2-4}{xy},\\ y'=x-y+2 б) Какая кривая является одновременно...

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

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

1
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3749 / 2446 / 1306
Регистрация: 22.11.2013
Сообщений: 6,785
12.09.2017, 00:25 #2
Модифицировать квадратное уравнение, добавив проверку того, что первый коэффициент не равен нулю

Добавлено через 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
Привет! Вот еще темы с ответами:

Найти общее решение дифференциального уравнения и частное решение. - Дифференциальные уравнения
Найти общее решение дифференциального уравнения и частное решение, удовлетворяющее начальным условиям. y''-6y'+9y=9x^2-12x+2, y(0)=1;...

найти общее решение предварительно найдя частное решение неоднородного уравнения методом неопр. коэффициентов - Дифференциальные уравнения
(y''')-4*(y')=3*(x^2)

Решение дифференциального уравнения (частное решение) - Дифференциальные уравнения
дано уравнение: y''+y'=\frac{1+{e}^{x}+{e}^{x}*x}{{e}^{x}} Нашел общее решение: y''+y'=0 {\lambda }^{2}+\lambda =0 ...

Найти общее решение линейного дифференциального уравнения 1 порядка. Найти частное решение,удовлетворяющее начальному ус - Дифференциальные уравнения
Найти общее решение линейного дифференциального уравнения 1 порядка. Найти частное решение,удовлетворяющее начальному условию y(x0)=y0 ...


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

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

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