Ecuación de segundo grado

Programa para resolver una ecuación de segundo grado:



CLS
PRINT " RESOLUCION DE UNA ECUACION DE SEGUNDO GRADO"
PRINT " Ax² + Bx + C = 0"
PRINT
INPUT " COEFICIENTE A: ", A
INPUT " COEFICIENTE B: ", B
INPUT " COEFICIENTE C: ", C
PRINT
IF A = 0 THEN
REM A=0
IF B = 0 THEN
REM A=0 Y B=0
IF C = 0 THEN
REM A=0, B=0 Y C=0
PRINT " SIN ECUACION"
ELSE
PRINT C; "= 0, IMPOSIBLE"
END IF
ELSE
REM ECUACION DE PRIMER GRADO
PRINT " ECUACION DE PRIMER GRADO"
PRINT " X="; -C / B
END IF
ELSE
D = B ^ 2 - 4 * A * C
IF D > 0 THEN
PRINT " SOLUCION DOBLE"
PRINT " X1="; (-B + SQR(D)) / (2 * A)
PRINT " X2="; (-B - SQR(D)) / (2 * A)
ELSE
REM D <= 0
IF D = 0 THEN
PRINT " SOLUCION UNICA"
PRINT " X1=X2="; -B / (2 * A)
ELSE
REM D < 0
PRINT " RAIZ IMAGINARIA"
PRINT " X1= "; -B / (2 * A); "+"; ABS(SQR(-D) / (2 * A)); "i"
PRINT " X2= "; -B / (2 * A); "-"; ABS(SQR(-D) / (2 * A)); "i"
END IF
END IF
END IF