Наглядно продемонстрировать признаки какого-либо органа человека можно с
197
481
Ответы на вопрос:
Var a, b, c, d, x1, x2, t: real; begin writeln('программа для решения неравенства ax^2 + bx + c > 0'); write('введите коэффициенты a, b, c: '); readln(a, b, c); if a = 0 then begin if b = 0 then begin if c > 0 then writeln('(-∞; +∞)') else writeln('ø') end else if b > 0 then writeln('(', -c / b : 0 : 3, '; +∞)') else writeln('(-∞; ', -c / b, ')') end else begin d : = b * b - 4 * a * c; if d = 0 then begin x1 : = -b / (2 * a); if a > 0 then writeln('(-∞; ', x1, ') u (', x1, '; +∞)') else writeln('ø') end else if d > 0 then begin x1 : = (-b - sqrt(d)) / (2 * a); x2 : = (-b + sqrt(d)) / (2 * a); if x1 > x2 then begin t : = x1; x1 : = x2; x2 : = t end; if a > 0 then writeln('(-∞; ', x1, ') u (', x2, '; +∞)') else writeln('(', x1, '; ', x2, ')') end else begin if a > 0 then writeln('(-∞; +∞)') else writeln('ø') end end end.
Популярно: Информатика
-
marijamz201622.03.2021 08:08
-
dani6108.11.2020 16:47
-
mariyakohtuk16.12.2021 17:25
-
cako200409.05.2020 21:20
-
бабелон29.08.2022 06:38
-
Dasha07Dasha17.06.2023 21:07
-
Hope473645745629.03.2023 07:20
-
лыл307.10.2020 09:07
-
tarasIT02.06.2020 10:29
-
hkkk1gonso30.01.2020 00:11