Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
gfdehk
01.07.2022 07:47 •
Информатика
Составить программу в pascal для нахождения корней квадратного уравнения ax^2+bx+c=0
Показать ответ
Ответ:
Алинулька11
01.10.2020 13:27
Uses crt;
var
d, a, b, c, x1, x2: real;
begin
writeln('Введите a, b, c');
readln(a, b, c);
d := b * b - 4 * a * c;
if d > 0 then
begin
x1 := (-b + sqrt(d)) / (2 * a);
x2 := (-b - sqrt(d)) / (2 * a);
writeln('x1 = ', x1:2:2);
writeln('x2 = ', x2:2:2);
end
else if d = 0 then
begin
x1 := -b / (2 * a);
writeln('x = ', x1:2:2);
end
else
writeln('Нет действительных корней');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Катттття
15.10.2022 19:57
Дано 15 чисел найти их сумму qbasic если можно...
Gcxvh
16.10.2021 01:10
Любое ли словесное описание можно заменить табличной информационной моделью? приведите пример...
katyasha0504
18.05.2021 15:55
Установите соответствие Ctrl+ZDelF1Ctrl +C1копирование в буфер2вывод контекстной справки3удаление4отмена предыдущего действия...
prizrak6571
18.11.2022 10:42
Построй четырехугольник, длины двух противоположных сторон которого 5 см и 3 см...
SRALIK
18.11.2022 10:42
Скажите у чехова ссылки были? если были,то годы!...
neznayka1900
18.11.2022 10:42
2: 15 3: 20 4: 25 6: 30 7: 45 8: 50 и вопрос; whats the time? написать по- сколько время. надо!...
Gangstar777437g
18.11.2022 10:42
Вертолет и самолет летят на встречу друг другу: первый - со скоростью v, второй - - со скоростью 3v.какова скорость вертолета относительно самолета?...
belover
18.11.2022 10:42
Записи словосочитания. рядом с каждым словосочетанием напиши антоним к прилагательному. свежий ( утро, булка, рыба, блузка, газета.) мелкий ( бассейн, дождь.); мягкий ( воск,...
dashutka20032
18.11.2022 10:42
Описание и рассказ все надо написать по нарисуйте ваших животных . опишите их. расскажите об их талантах . поделитесь друг с другом правилами ухода за ними....
Макс00796
18.11.2022 10:42
Записать имена прилагательные в краткой форме, в мужском роде, в единственном числе: грубый, умный, седой, сильный....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
d, a, b, c, x1, x2: real;
begin
writeln('Введите a, b, c');
readln(a, b, c);
d := b * b - 4 * a * c;
if d > 0 then
begin
x1 := (-b + sqrt(d)) / (2 * a);
x2 := (-b - sqrt(d)) / (2 * a);
writeln('x1 = ', x1:2:2);
writeln('x2 = ', x2:2:2);
end
else if d = 0 then
begin
x1 := -b / (2 * a);
writeln('x = ', x1:2:2);
end
else
writeln('Нет действительных корней');
end.