Главная » Помощь в учебе » Школьные знания, ответы и решения школьных заданий » Информатика

Составьте программу вычисления корней квадратного уравнения по данным значениям его коэффициентов

Нашли ошибку? Напишите нам
0.0/5, Голосов: 0

Учебник по Информатике 9 класс Семакин

Составьте программу вычисления корней квадратного уравнения по данным значениям его коэффициентов.    
Program z_6;
var a, b, c, D, x1, x2: real;
begin
readln(a, b, c);
D:=sqr(b) - 4*a*c;
writeln ('D=', D);
if D<0 then writeln ('Корней нет')
else if D=0 then
   begin
      x1:=(-b)/(2*a);
      writeln ('x=', x1)
      end
      else
   begin
      x1:=(-b+sqrt(D))/(2*a);
      x2:=(-b-sqrt(D))/(2*a);
      writeln ('x1='x1, ' x2=', x2)
      end
end.