Ayuda con Qbasic porfavor!!

Archivado
Hola!, pues resulta que estoy con el maldito qbasic y me han mandado a hacer una calculadora para ecuaciones de segundo grado -.- pero no que me pasa que siempre me da error la muy ¬¬. Porfavor si podriais decirme donde fallo os lo agradecera de verdad.
Imagen


PD: no pretendo que me lo hagais ni mucho menos, pues probablemente el maestro me preguntara y me interesa bastante saber mi fallo, nada más.
Lo primero, sin acritud, es que Por favor va separado xDD
Los if no tienes que terminarlos con ¿end if?

Por cierto yo en vez de if D>0 If D<0 haría If D>0. ELSE. Tal que así...
If D>0 THEN
PRINT "Vamos a calcular eso parcero"
PRINT -B+ SQR(D) / (2*A)
PRINT +B - SQR(D) / (2*A)
ELSE
PRINT "Esto es muy complicado para ti mejor empieza de nuevo"
END IF
END
REM La mejor Calculadora de Ec de 2§ Grado
CLS
10


PRINT "vamos a calcular!!! Ax^2 + Bx + C = 0"
INPUT "Dime A Porfavor", A
INPUT "Dime B Porfavor", B
INPUT "Finalmente Dime C Porfavor", C

D = (B ^ 2) - 4 * A * C

IF D > 0 THEN

PRINT "Vamos a Calcular eso parcero"
PRINT -B + SQR(D) / (2 * A)
PRINT -B - SQR(D) / (2 * A)
ELSE

D = 0
PRINT "Vamos!!!"
PRINT -B / (2 * A)

END IF

IF D < 0 THEN
PRINT "Eso es muy complicado para ti, dejemos eso pendiente"
END IF

INPUT "Si has terminado Marca 1 ", X

IF X = 1 THEN
CLS

GOTO 10

END IF


END


Gracias viciomovil !!! ya esta me has salvado la vida!

PD: lo del porfavor es una gran cagada xro es que contanto anabolismo genetica y su puta madre no estoy yo.. xD (aunque tu sabras mas que yo xD)
2 respuestas
Archivado
Volver a General