Найти действительные корни квадратного уравнения

@Hiyomi · Регистрация: 07.12.2022

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

Найти действительные корни квадратного уравнения ax2+bx+c=0 если имеются 2 корня,то вывести их в порядке возрастания,если корни кратные, то вывести одно значение если нет, то вывести 'NO'.

@Cyborg Drone · 07.12.2022, 19:52

Hiyomi, а поискать готовый ответ по форуму религия не позволила? Прокрутите эту страницу вниз... Нравится? Ещё есть волшебная кнопочка "поиск" в шапке. Не постигаю, зачем задавать вопрос, если можно гораздо быстрее получить ответ, не задавая вопроса?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var
  a, b, c, d, x1, x2: real;
begin
  write('Введите коэффициенты a b c: ');
  readln(a, b, c);
  d := b * b - 4 * a * c;
  write('Корни: ');
  if d < 0 then writeln('NO')
  else
    if d = 0 then writeln(-b / 2 / a)
    else
      begin
        x1 := (-b - sqrt(d) / 2 / a);
        x2 := (-b + sqrt(d) / 2 / a);
        if x1 > x2 then
          begin
            d := x1;
            x1 := x2;
            x2 := d
          end;
        writeln(x1, ' ', x2)
      end
end.

@Hiyomi · 07.12.2022, 20:31 **[ТС]**

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

@Cyborg Drone · 08.12.2022, 02:51

Да понятно всё... Насчёт религии - это поговорка такая, синоним "что Вам помешало?".

Жалко Вашего же времени: в большинстве случаев готовый ответ можно найти за 10 минут. А Вы задаёте вопрос, который обмусоливался на форуме +100500 раз, и ждёте несколько дней, чтобы на него ответили... Ещё и с риском не дождаться ответа вообще, поскольку то, что написано +100500 раз, писать в +100501 раз совершенно в лом.

Новые блоги и статьи Все статьи Все блоги /
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .

@Hiyomi 0 / 0 / 0 Регистрация: 07.12.2022 Сообщений: 2

	Найти действительные корни квадратного уравнения 07.12.2022, 16:25. Показов 405. Ответов 3 Метки Pascal (Паскаль) (Все метки) Найти действительные корни квадратного уравнения ax2+bx+c=0 если имеются 2 корня,то вывести их в порядке возрастания,если корни кратные, то вывести одно значение если нет, то вывести 'NO'. 0

@Hiyomi 0 / 0 / 0 Регистрация: 07.12.2022 Сообщений: 2
	07.12.2022, 20:31 [ТС]
	Прошу прощения, пока не освоился с данным сайтом и очень спешил отправить вопрос, дело вовсе не в религии 0

@Cyborg Drone Модератор 10448 / 5739 / 3407 Регистрация: 17.08.2012 Сообщений: 17,460
	08.12.2022, 02:51
	Да понятно всё... Насчёт религии - это поговорка такая, синоним "что Вам помешало?". Жалко Вашего же времени: в большинстве случаев готовый ответ можно найти за 10 минут. А Вы задаёте вопрос, который обмусоливался на форуме +100500 раз, и ждёте несколько дней, чтобы на него ответили... Ещё и с риском не дождаться ответа вообще, поскольку то, что написано +100500 раз, писать в +100501 раз совершенно в лом. 2