Задан вид квадратного уравнения ах квадрат + bx+c=0, коэффициенты a, b, c. Найти корни уравнения x1, x2.

1. Разработать схему алгоритма программы

2. Составить программу на языке Паскаль по разработанному алгоритму

Var a, b, c, d, x1, x2:real;

begin

writeln ('Решение квадратных уравнений') ;

writeln ('') ;

writeln ('Введите коэффициенты a, b, c:') ;

readln (a, b, c) ;

d:=sqr (b) - 4*a*c;

if d<0 then writeln ('Корней нет') ;

if d=0 then begin x1:=-b / (2*a) ;

writeln ('Один корень:') ;

writeln (x1:4:2) ;

end;

if d>0 then begin

x1:=-b+sqrt (d) / (2*a) ;

x2:=-b-sqrt (d) / (2*a) ;

writeln ('Корни уравнения:') ;

writeln (x1:4:2) ;

writeln (x2:4:2) ;

end;

end.