Um programa com a fórmula resolvente de equações do 2º grau incorporada.
Este programa calcula b^2-4ac (a parte dentro da raíz quadrada). Se este valor for menor que 0 então a equação é impossível no conjunto real. Caso for igual ou maior a 0, então o programa vai calcular as soluções (x1 e x2) e apresentá-las ao utilizador, arrendondadas às centésimas.
Código:
Program Calculo_polinomial_2o_grau ;
var a,b,c,x1,x2,delta: real;
var esc: string;
Begin
repeat
writeln('------------------------');
writeln('----EQUAÇÕES 2o GRAU----');
writeln('------------------------');
writeln('');
write('Inserir valor de A: '); readln(a);
write('Inserir valor de B: '); readln(b);
write('Inserir valor de C: '); readln(c);
writeln('');
delta:=((b*b)-(4*a*c));
if delta<0 then
begin
writeln('Solução: Impossível.');
writeln('');
end
else
begin
x1:=(-b+sqrt(delta))/(2*a);
x2:=(-b-sqrt(delta))/(2*a);
if x1=x2 then
begin
writeln('Solução: x1=x2=',x1:6:2);
writeln('');
end
else
begin
writeln('Solução: x1=',x1:6:2);
writeln(' x2=',x2:6:2);
writeln('');
end;
end;
until 1<>1;
End.