Question

Помогите с составлением программы на языке паскаль. Условие:

Составьте программу нахождения корней квадратного уравнения ax²+bx+c=0,заданного своими коэффициентами a,b,c.

Корни квадратного уравнения находятся по формуле x₁,₂=-b±√D/2a.

Где дискриминант D=b²-4ac.

P.S Заранее спасибо.

Answer 1

var a,b,c,D: real;

begin

writeln('программа решения квадратного уравнения ax^2+bx+c=0');

write('a=');

readln(a);

write('b=');

readln(b);

write('c=');

readln(c);

D:=b*b-4*a*c;

if a=0 then write('a=0 => уравнение вырождается в линейное => x=-c/b=',-c/b)  

else if D>0 then begin

writeln('x1=',(-b+sqrt(D))/(2*a));

writeln('x2=',(-b-sqrt(D))/(2*a));

end else if D=0 then writeln('x1=x2=',-b/(2*a))

else writeln('уравнение не имеет действительных корней');

end.