program FORMULA_GENERAL_CUADRATICA;
uses crt;
var
A,B,C,H,H2: real;
begin
clrscr;
writeln('Escribe el valor de A: ');
readln(A);
writeln('Escribe el valor de B: ');
readln(B);
writeln('Escribe el valor de C: ');
readln(C);
H:=(-b+(sqrt(b*b-4*a*c))/2*a);
H2:=(+b-(sqrt(b*b-4*a*c))/2*a);
writeln('El resultado 1 es: ',H);
writeln('El resultado 2 es: ',H2);
readkey;
end.
Comentarios sobre la versión: 1.0 (0)
No hay comentarios