Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
En el cálculo de la raíz cuadrada no solo se calcula b , además de que esta se eleva al cuadrado se acampaña de -4ac. De todas manera comparto un código.
Uses crt;
var a,b,c,d,e,f,g : real;
begin
Clrscr;
writeln('Calculo de raices cuadradas');
writeln('forma aX^2 + bx +c = 0');
writeln('escribe a'); read(a);
writeln('escribe b'); read(b);
writeln('escribe c'); read(c);
d:= b*b - 4*a*c;
if d >= 0 then
begin
e:= (-b + sqrt(d))/(2*a);
f:= (-b - sqrt(d))/(2*a);
writeln;
writeln('resultado #1: ',e:2:2);
writeln('resultado #2: ',f:2:2);
writeln;
end
else
begin
e:= -b/(2*a);
f:= sqrt(-d)/(2*a);
writeln('caso de raices imaginarias');
writeln;
writeln('resultado #1: ',e:2:2,' + ', f:2:2,'i');
writeln('resultado #2: ',e:2:2,' - ', f:2:2,'i');
writeln;
end;
writeln('presione cualquier tecla para salir');
readln(g);
end.
Comentarios sobre la versión: 1.0 (1)
Uses crt;
var a,b,c,d,e,f,g : real;
begin
Clrscr;
writeln('Calculo de raices cuadradas');
writeln('forma aX^2 + bx +c = 0');
writeln('escribe a'); read(a);
writeln('escribe b'); read(b);
writeln('escribe c'); read(c);
d:= b*b - 4*a*c;
if d >= 0 then
begin
e:= (-b + sqrt(d))/(2*a);
f:= (-b - sqrt(d))/(2*a);
writeln;
writeln('resultado #1: ',e:2:2);
writeln('resultado #2: ',f:2:2);
writeln;
end
else
begin
e:= -b/(2*a);
f:= sqrt(-d)/(2*a);
writeln('caso de raices imaginarias');
writeln;
writeln('resultado #1: ',e:2:2,' + ', f:2:2,'i');
writeln('resultado #2: ',e:2:2,' - ', f:2:2,'i');
writeln;
end;
writeln('presione cualquier tecla para salir');
readln(g);
end.