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

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


textual

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

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



Похожие ответы
  1. Требуется написать программу с функциями. Условия таковы: Даны 3 матрицы А, В и С. Решить уравнение px2+qx+r=0, где p, q, r это минимальные элементы матриц А, В, С.

  1. USSR+USA=РЕАСЕ Заранее говорю огромное спасибо )

  1. 1. Написать программу. 2. Нарисовать блок схему(я могу и сам , там просто) с программой чет трудно. 3. Задание. y = 8 sqrt 8 ^ x. Для х от 1 до 5. 4. Вывести ответ с одним знаком после запятой. Если кто может помогите с этим

  1. Ребят, помогите пожалуйста! Мне нужно решить уравнение ord(x), при этом указать нижнюю, верхнюю границы и шаг. Надо, чтобы вывело "таблицу" значений этой функции.

  1. Решить квадратное уравнение, с помощью цикла. Промежутки - [-5,5] Шаг = 2

  1. Если не сложно, можете помочь 2 уравнения

  1. Подскажите пожалуйста, я чет даже не пойму с чего начать. можно даже на qbasic

  1. Решить неравенство 1 или 2 1) 2) Помогите пожалуйста!!!Добавлено через 12 минут Решить с помощью программы Паскаль!

  1. Решить уравнение методом деления отрезка пополам. Каждый этап решения выводить в файл: sin(1-x)=x на отрезке