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

Question

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

Comments

Язык какой?

---

Паскаль

---

сейчас

Answer 1

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');   <br>                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.