Составьте программу вычисления корней квадратного уравнения по данным значениям его коэффициентов
Составьте программу вычисления корней квадратного уравнения по данным значениям его коэффициентов.
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.