В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
danilkuzin201
danilkuzin201
10.01.2020 22:55 •  Информатика

Написать программу паскаль с клавиатуры вводится три числа- коэффициент квадратного уравнения. сколько решений имеет уравнение !

Показать ответ
Ответ:
Мelissa205
Мelissa205
09.10.2020 11:34

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25



var

 a,b,c: integer;

 x,d: real;

begin

 repeat

   write('Введите коэффициент a (a<>0): ');

   readln(a);

 until a<>0;

 write('Введите коэффициент b: ');

 readln(b);

 write('Введите коэффициент c: ');

 readln(c);

 d:=b*b-4*a*c;

 writeln('Решение уравнения:');

 if d=0 then

   writeln('Корень один: х = ',-b/2/a) else

 if d<0 then

   writeln('Корней на множестве действительных чисел нет') else  

 begin

   writeln('Корней два:');

   writeln('1-й корень: x1 = ',(-b-sqrt(d))/2/a);

   writeln('2-й корень: x1 = ',(-b+sqrt(d))/2/a);

 end;

 readln;

end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота