ECUACION CUADRATICA.
Determina la solución o soluciones para ecuaciones de segundo grado ingresando los coeficientes a, b y c de la ecuación cuadrática ax2+bx+c=0.
5 CLS : CLEAR
10 PRINT "RESOLUCION DE ECUACIONES DE SEGUNDO GRADO"
20 PRINT "ax^2+bx+C=0"
30 INPUT "a="; A
40 INPUT "b="; B
50 INPUT "c="; C
60 D = B * B - (4 * A * C)
70 SX = -B / (2 * A)
80 IF D >= 0 THEN GOTO 100
90 IF D < 0 THEN GOTO 130
100 FY = (SQR(D)) / (2 * A)
110 PRINT "S1="; SX + FY
120 PRINT "S2="; SX - FY
125 END
130 FZ = (SQR(-D)) / (2 * A)
140 PRINT "S1="; SX; "+"; FZ; "i"
150 PRINT "S2="; SX; "-"; FZ; "i"
160 END
Nota: Algunas, como las FX-850P o FX-880P ya tienen este pograma incorporado en las librerías.