Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Var
a,b,c,d:real;
    begin
        writeln(a,b,c ?);
        readln(a,b,c);
        d:=sqr(b)-4*a*c;
            if d<0 then  writeln(d<0);   
                if d>0 then       
                     writeln(x1= ,((-b)+sqrt(d))/(2*a),  x2= ,((-b)-sqrt(d))/(2*a)) ;         
                         if d=0 then             
                            writeln(x1= ,(-b)/(2*a)); 
end.