Составить программу в Паскале

Заданы числа k, a, b. Проверить, попадают ли вещественные корни уравнения x^2+ax+b=0
в интервал (-k; k).

1

Ответы и объяснения

  • Sky09
  • профессор
2014-03-15T07:59:51+00:00
Uses crt;
var q: integer;
   x1,x2,a,b,k: real;
begin
     q:=0;
     write('k='); readln(k);
     write('a='); readln(a);
     write('b='); readln(b);
     x1:=(-a+sqrt(a*a-4*b))/2;
     x2:=(-a-sqrt(a*a-4*b))/2;
     if (x1>-k) and (x1<k) then inc(q);
     if (x2>-k) and (x2<k) and (x2<>x1) then inc(q);
     if q>0 then write('попадают')
        else write('не попадают');
end.
Как же так... для каких чисел не работает?
уже нашла ошибку. в х2 после корня должен стоять минус
все работает, спасибо)
перед корнем то есть*
ой, опечатка вышла. извини, пожалуйста)