Составьте пожалуйста алгоритм решения квадратного уравнения в Паскале

1

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

2014-01-27T12:56:56+00:00
Program alg;

var a, b, c, D, x1, x2 : real;

begin
  write('Введите a, b, c: ');
  readln(a, b, c);

  D := b * b - 4 * a * c;

  if (D >= 0) then begin
    if (D > 0) then begin
      x1 := (-b + sqrt(D)) / (2 * a);
      writeln(x1:0:2);
    end;
   
    x2 := (-b - sqrt(D)) / (2 * a);
    writeln(x2:0:2);
  end
  else
    writeln('Корней нет');
end.