Algoritmo para ler os coeficiente de uma equação do segundo grau e escrever as suas raízes.

// algoritmo para ler os coeficiente de uma equação do segundo grau e escrever as suas raízes.

program equacao_2_grau;

var a,b,c,x1,x2,Delta:real ;

begin

writeln('digite os coficientes -> A,B e C');

readln(a,b,c);

if (a<>0)

then

begin

Delta:=(b*b-4*a*c);

if Delta>0 then

begin

x1:=(-b-sqrt(Delta))/(2*a); //sqrt = raiz quadrada

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

writeln('As raizes da equacao sao: ');

writeln('X1=',x1:2:2,' e ','X2=',x2:2:2)

end else if delta=0 then begin

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

writeln('as raizes sao iguais e possuem valor= ');

writeln('X1=',x1:2:2,' e ','X2=',x2:2:2)

end else

writeln('a equacao nao tem raizes!');

end

else

begin

writeln('a equacao nao eh do segundo grau!!!');

end;

readln;

end.