По заданным коэффициентам найти корни уравнения если D>0)) ПРОГРАММА ПАСКАЛЬ) помогите...

Question

По заданным коэффициентам найти корни уравнения если D>0)) ПРОГРАММА ПАСКАЛЬ) помогите решить,плииз)))уравнение квадратное

Comments

Квадратное уравнение?

Answer 1

Var a,b,c,d,x1,x2:real;
begin;
readln(a);
readln(b);
readln(c);
d:=sqr(b)-4*a*c;
if d>0 then
begin;
   x1:=(-b+sqrt(d))/(2*a);
   x2:=(-b-sqrt(d))/(2*a);
   writeln('x1=',x1);
   writeln('x2=',x2);
end;
if d=0 then
begin;
  x1:=-b/(2*a);
  writeln('x1=',x1);
end;
if d<0 then writeln('Нет действительных решений');<br>end.

Comments

спасибо__