Проверяем решение квадратного неравенства при помощи компьютера

         Проверить решение квадратных неравенств можно при помощи программы, написаной на языке PASCAL
         Данная программа написана для решения неравенства ах^2+bx+c≥0.
Данную программу можно изменить для решения неравенства другого знака.

          Скопируйте данный код  в программу PascalABC и нажмите "выполнить программу" или F9.

var a, b, c, x1, x2, min, max, d: real;
begin
writeln('Введите коэффиценты квадратного неравенства:');
readln(a,b,c);
d:=sqr(b)-4*a*c;
if d<0
then
if a<0
then writeln('Решения нет!')
else writeln('Решение на всей области определения!');
if d=0
then
if a>0
then writeln('Решение на всей области определения!')
else writeln('x = ', -b/(2*a));
if d>0
then
begin
x1:= (-b+sqrt(d))/(2*a);
x2:= (-b-sqrt(d))/(2*a);
if x1<x2
then
begin
min:= x1;
max:= x2;
end
else
begin
min:= x2;
max:= x1;
end;
if a>0
then writeln('(-беск; ', min, ') U (', max, '; +беск)')
else writeln('(', min, '; ', max, ')');
end;
end.

         Проверить решение системы неравенств можно на данном ресурсе 

ЗАМЕЧАНИЕ! 

         Данные способы не помогут вам научиться решать квадратные неравенства. Таким образом можно сделать всего лишь самопроверку.