Решить невырожденное квадратное неравенство - Pascal ABC

Формулировка задачи:

Решить невырожденное (т.е. а не равно 0) квадратное неравенство ax2+bx+c>0

Код к задаче: «Решить невырожденное квадратное неравенство - Pascal ABC»

textual
var a,b,c,d,x1,x2,x:real;
begin
repeat
writeln('Введите коэффициенты a,b,c:');
readln(a,b,c);
if a=0 then writeln('Это не квадратный трехчлен, повторите ввод.');
until a<>0;
d:=b*b-4*a*c;
if d>0 then
 begin
  x1:=(-b+sqrt(d))/(2*a);
  x2:=(-b-sqrt(d))/(2*a);
  if x1>x2 then
   begin
    x:=x1;
    x1:=x2;
    x2:=x;
   end;
 end;
if a>0 then
 begin
  if d>0 then write('x<',x1:0:1,' or x>',x2:0:1)
  else write('x-любое число');
 end
else
 begin
  if d>0 then write('x>',x1:0:1,' and x<',x2:0:1)
  else write('Решений нет');
 end;
end.

7   голосов, оценка 4.429 из 5


СОХРАНИТЬ ССЫЛКУ