Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
DЕNA
02.10.2022 12:10 •
Информатика
Составить программу в pascal для нахождения корней квадратного уравнения ax^2+bx+c=0
Показать ответ
Ответ:
noname0002
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 оценок)
Популярные вопросы: Информатика
хорошистка552
19.07.2022 12:39
Задання1. Разработайте скрит с анимацией и событиями, используя костюмы и сцену.КостюмыSharleновый костюм роком та кемКетепоСцена...
VortexYT
18.04.2022 11:41
Неверно утверждение 1 записбудет включает в себя несколько полей 2 поле включает в себя несколько записем 3 каждое поле базы данных имеет свой размер 4 каждое поле имеет имя...
asyltas123
24.09.2022 09:08
Сор по информатике 5класс 3четверть тема скретч...
indyouk014
07.09.2022 12:04
Дан массив 3х4 с элементами целого типа. написать программу для вычисления количества элементов в массиве, которые являются натуральными трехзначными числами. язык с/с++...
Papitto
31.01.2022 22:53
Array58. Дан массив А размера N. Сформировать новый массив В того же раз- мера по следующему правилу: элемент Вк равен сумме элементов массиваА с номерами от 1 до К.можно через с++?...
lizaivleva201
24.08.2022 03:46
Вставьте слова ,,всё,, ,, не все,, так чтобы высказывания стали истинными числа простые...
тима156
14.01.2023 13:04
Дано уравнение x^2+3+m=0. при каком значении m: один из корнеи уравнения будет в 2 раза больше другого?...
waleruwka
14.01.2023 13:04
You (have) a nice time last saturday?...
шрщорзо
14.01.2023 13:04
Втечение недели витя читал по 9 страниц в день. за это же время коля прочитал на 15 страниц больше чем витя. сколько страниц прочитал коля за неделю?...
Умницв
05.12.2022 06:50
Пловец переплывает реку, двигаясь относительно воды со скоростью 0,4 м/с прямо по направлению к берегу. определить модуль скорости пловца относительно берега, если скорость течения...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.