Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
tetyanavasil
10.03.2020 09:16 •
Информатика
Составить программу для решения квадратного уравнения a*x*x+b*x+c=0
Показать ответ
Ответ:
zahcar629
07.10.2020 10:17
Var
a, b, c, D: integer;
x, x2: real;
begin
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
write('Введите c: ');
readln(c);
D := sqr(b) - 4 * a * c;
if D > 0 then begin
x := (-b - sqrt(D)) / 2 * a;
x2 := (-b + sqrt(D)) / 2 * a;
writeln('x1 = ', x, newline, 'x2 = ', x2);
end;
if D < 0 then writeln('Корней нет.');
if D = 0 then begin
x := (-b) / 2 * a;
writeln('x = ', x);
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
122599baikal
16.02.2021 04:21
Только 3 задания дам если можете 4 тоже зделайте мне нужна 3 задания если вы бла бла вам бан по быстрей...
Ксееее
13.01.2021 07:19
Определите значение на выходе данной схемы при А=0 и В=1...
ккк127
14.02.2021 21:06
за рік курка з їдає k кг зерна, а гуска на 12 кг більше, ніж курка, а качка на 14 кг більше, ніж гуска. Скільки кг крупи з їли вони разом?...
pauline2504
19.03.2020 03:52
Part 1. Look at questions and answer?...
chackandrew
19.03.2020 03:52
Какую проблему поднимает Айзек Азимов в рассказе Профессия ?...
azbyka1234567890
19.03.2020 03:52
Какой выигрыш в силе дает сочетание двух блоков (подвижного и неподвижного)?Груз какого веса можно поднять при подвижного блока, если тянуть верёвку с силой 0,2...
shlyakhovdaniik
23.11.2021 17:29
Порівняльна характеристика Сомка і Брюховецького ...
12853
13.12.2021 03:28
Решите Уравнение системы линейных уравнений с 2 переменными...
lushayir
13.12.2021 03:28
- Якби мені подарували слона, то…во для тех у кого огрмная фантазия)...
Яна00311
13.12.2021 03:28
Бадью массой 120 кг поднимают на высоту 6 м при подвижного блока, действуя с силой 7200 Н. Определите КПД....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a, b, c, D: integer;
x, x2: real;
begin
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
write('Введите c: ');
readln(c);
D := sqr(b) - 4 * a * c;
if D > 0 then begin
x := (-b - sqrt(D)) / 2 * a;
x2 := (-b + sqrt(D)) / 2 * a;
writeln('x1 = ', x, newline, 'x2 = ', x2);
end;
if D < 0 then writeln('Корней нет.');
if D = 0 then begin
x := (-b) / 2 * a;
writeln('x = ', x);
end;
end.