Question

Elabore um programa para calcular as raízes de uma equação de segundo grau, mas verifique nesta versão que delta deverá ser um valor positivo, para poder calcular e visualizar as raízes reais da equação. Caso contrário, visualize uma mensagem explicando que não serão calculadas as raízes.

Answer 1

Estou usando a linguagem pascal
program segundograu;
var a,b,c,d,x1,x2: real;
begin
writeln('digite o valor de a');
readln(a);
writeln('digite o valor de b');
readln(b);
writeln('digite o valor de c');
readln(c);
d:=(b*b)-4*a*c;
while d<0 do
begin
writeln('essa equação não possui solução real');
writeln('digite os valores de coeficientes novamente');
readln (a,b,c);
end;
x1:= (-b+sqrt(d))/2*a;
x2:= (-b-sqrt(d))/2*a;
writeln ('o valor de x1 é:',  x1:2:2);
writeln('o valor de x2 é:',  x2:2:2);
readln;
end.