Programa para resolver ecuaciones de segundo grado
Pascal/Turbo Pascal
11.219 visualizaciones desde el 14 de Marzo del 2019
Este programa es para resolver ecuaciones de segundo grado en pascal
Iniciar sesiónCrear cuenta
Crear cuentaCrear cuenta(1)PROGRAM ECUACION_DE_SEGUNDO_GRADO;
USES CRT;
VAR
a,b,c: Integer;
X1,X2:REAL;
begin
ClrScr;
Textcolor (13);
WRITELN (' ');
WRITELN('ESTE PROGRAMA CALCULA LAS RAICES DE LA FORMULA GENERAL PARA EC. DE 2DO GRADO');
WRITELN;
WRITELN('aX^2 + bX + c');
WRITELN('PROPORCIONE LOS DATOS NECESARIOS');
WRITELN;
Textcolor(11);
WRITELN('CUAL SERA EL VALOR DE a= ');READ(a);
WRITELN;
WRITELN('CUAL SERA EL VALOR DE b= ');READ(b);
WRITELN;
WRITELN('CUAL SERA EL VALOR DE C= ');READ(c);
X1:=(-b + (SQRT(b))/(2*a));
X2:=(-b - (SQRT(b))/(2*a));
Textcolor(47);
WRITELN('LA RAIZ X1 ES IGUAL A = ',X1:2:3);
READLN (X1);
WRITELN('LA RAIZ X2 ES IGUAL A = ',X2:2:3);
READLN(X2);
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.