Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
AndHeAgaIN2
20.12.2020 04:43 •
Информатика
Найти дискриминант квадратного уравнения, если коофициент вводится с клавиатуры
Показать ответ
Ответ:
Кузнечик0705
04.10.2020 22:36
Var a, b, c, e, f: integer;
d, x1, x2: real;
begin
write('Введите коэффициент x^2: ');
readln(a);
write('Введите коэффициент x: ');
readln(b);
write('Введите свободный член: ');
readln(c);
d:=b*b-4*a*c;
if (d>=0) then
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b+sqrt(d))/(2*a);
write('Уравнение имеет 2 корня: ');
writeln;
writeln('Первый корень: ',x1:4:2);
writeln('Второй корень: ',x2:4:2);
end
else
writeln('Дискриминант < 0');
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
mehili
04.12.2022 02:13
Дополни предложения. устройства ввода данных - это устройства хранения данных - это устройства вывода данных - это...
dbd2
08.06.2022 01:21
Написать подпрограмму step и с ее составить программу рисования лесенки по диагонали через все поле рисунка. ,...
samirsamir21ozrrps
08.06.2022 01:21
Маша и даша изобрели секретный код для обмена сообщениями, в котором используются только знаки ☆, ■, ◇, ● и ○. сколько различных сообщений, состоящих из 5 знаков,...
Ильяна111
08.06.2022 01:21
Какие современные стили в архитектуре присутствуют в ново-савиновском районе?...
Sonyamay
03.02.2021 04:43
Написать программу, которая определяет отношения между двумя числами. например: 10 10 числа равны 5 7 число 5 миньше 7 24 9 число 24 больше 9...
messiii45
30.06.2022 15:48
»: а) заполните все элементы массива значением x , введённым с клавиатуры. б) заполните массив первыми n натуральными числами, начиная с x (значение x введите с...
zaharsd
23.06.2020 10:51
Vba excel создание макросов 1. создать макрос с именем макрос_f, доступный во всей рабочей книге, в процессе активизации которого отображаются все формулы активного...
мюсьера
12.07.2020 22:59
Вычисли значение выражения в ms excel: (90+175)−2(78: (3+ (ответ округли до сотых)...
YanaAndreewna1
23.07.2022 02:45
Дан фрагмент электронной таблицы. a b c 1 62 = 62/c2 2 4 = a1+a2 = 62*a1 определи значение, записанное в ячейке b1, если оно скопировано с ячейки a1....
жук234
21.07.2022 18:38
Вычисли значение выражения в ms excel: (80+141)−2(77: (7+ (ответ округли до сотых)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
d, x1, x2: real;
begin
write('Введите коэффициент x^2: ');
readln(a);
write('Введите коэффициент x: ');
readln(b);
write('Введите свободный член: ');
readln(c);
d:=b*b-4*a*c;
if (d>=0) then
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b+sqrt(d))/(2*a);
write('Уравнение имеет 2 корня: ');
writeln;
writeln('Первый корень: ',x1:4:2);
writeln('Второй корень: ',x2:4:2);
end
else
writeln('Дискриминант < 0');
readln;
end.