Hola, estoy empezando con este lenguaje de programación, y lo primero que estoy haciendo es una calculadora capaz de realizar diversas operaciones. Pero lo que no sé es cómo hacer que al terminar la operación vuelva al principio y me vuelva a preguntar qué operación quiere que haga. Por ahora sólo trabajo con aplicación en consola.
Todo lo que he visto son repeticiones de números, pero no he encontrado lo que busco. Gracias.
Por si lo necesitan les adjunto el código fuente:
PUBLIC SUB Main()
DIM A, B, C, D, E, F, G, H, I, J AS Float
DIM mete AS Variant
DIM suma, resta, mult, divi, pot AS String
DIM P, Q AS String
DIM R, R2, R3, R4, R5, R6, R7, R8 AS Variant
suma = "suma"
resta = "resta"
mult = "mult"
divi = "div"
pot = "pot"
P = "si"
Q = "no"
PRINT "Bienvenido a la interfaz de cálculo. Escribe suma para sumar, resta para restar,"
PRINT "mult para multiplicar, div para dividir o pot para elevar a una potencia..."
INPUT mete
IF mete = suma THEN
PRINT "Escribe el primer número a sumar..."
INPUT A
PRINT "Escribe el segundo número..."
INPUT B
PRINT "¿Algo más?"
INPUT R
IF R = Q THEN
PRINT "El resultado es "; A + B
ELSE IF R = P THEN
PRINT "Escribe el tercer número..."
INPUT C
PRINT "¿Algo más?"
INPUT R2
IF R2 = Q THEN
PRINT "El resultado es "; A + B + C
ELSE IF R2 = P THEN
PRINT "Escribe el cuarto número..."
INPUT D
PRINT "¿Algo más?"
INPUT R3
IF R3 = Q THEN
PRINT "El resultado es "; A + B + C + D
ELSE IF R3 = P THEN
PRINT "Escribe el quinto número..."
INPUT E
PRINT "¿Algo más?"
INPUT R4
IF R4 = Q THEN
PRINT "El resultado es "; A + B + C + D + E
ELSE IF R4 = P THEN
PRINT "Escribe el sexto número..."
INPUT F
PRINT "¿Algo más?"
INPUT R5
IF R5 = Q THEN
PRINT "El resultado es "; A + B + C + D + E + F
ELSE IF R5 = P THEN
PRINT "Escribe el séptimo número..."
INPUT G
PRINT "¿Algo más?"
INPUT R6
IF R6 = Q THEN
PRINT "El resultado es "; A + B + C + D + E + F + G
ELSE IF R6 = P THEN
PRINT "Escribe el octavo número..."
INPUT H
PRINT "¿Algo más?"
INPUT R7
IF R7 = Q THEN
PRINT "El resultado es "; A + B + C + D + E + F + G + H
ELSE IF R7 = P THEN
PRINT "Escribe el noveno número..."
INPUT I
PRINT "¿Algo más?"
INPUT R8
IF R8 = Q THEN
PRINT "El resultado es "; A + B + C + D + E + F + G + H + I
ELSE IF R8 = P THEN
PRINT "Escribe el décimo número..."
INPUT J
PRINT "El resultado es "; A + B + C + D + E + F + G + H + I + J
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ELSE IF mete = resta THEN
PRINT "Escribe el primer número a restar"
INPUT A
PRINT "Escribe el segundo número..."
INPUT B
PRINT "¿Algo más?"
INPUT R
IF R = Q THEN
PRINT "El resultado es "; A - B
ELSE IF R = P THEN
PRINT "Escribe el tercer número..."
INPUT C
PRINT "¿Algo más?"
INPUT R2
IF R2 = Q THEN
PRINT "El resultado es "; A - B - C
ELSE IF R2 = P THEN
PRINT "Escribe el cuarto número..."
INPUT D
PRINT "¿Algo más?"
INPUT R3
IF R3 = Q THEN
PRINT "El resultado es "; A - B - C - D
ELSE IF R3 = P THEN
PRINT "Escribe el quinto número..."
INPUT E
PRINT "¿Algo más?"
INPUT R4
IF R4 = Q THEN
PRINT "El resultado es "; A - B - C - D - E
ELSE IF R4 = P THEN
PRINT "Escribe el sexto número..."
INPUT F
PRINT "¿Algo más?"
INPUT R5
IF R5 = Q THEN
PRINT "El resultado es "; A - B - C - D - E - F
ELSE IF R5 = P THEN
PRINT "Escribe el séptimo número..."
INPUT G
PRINT "¿Algo más?"
INPUT R6
IF R6 = Q THEN
PRINT "El resultado es "; A - B - C - D - E - F - G
ELSE IF R6 = P THEN
PRINT "Escribe el octavo número..."
INPUT H
PRINT "¿Algo más?"
INPUT R7
IF R7 = Q THEN
PRINT "El resultado es "; A - B - C - D - E - F - G - H
ELSE IF R7 = P THEN
PRINT "Escribe el noveno número..."
INPUT I
PRINT "¿Algo más?"
INPUT R8
IF R8 = Q THEN
PRINT "El resultado es "; A - B - C - D - E - F - G - H - I
ELSE IF R8 = P THEN
PRINT "Escribe el décimo número..."
INPUT J
PRINT "El resultado es "; A - B - C - D - E - F - G - H - I - J
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ELSE IF mete = mult THEN
PRINT "Escribe el primer número a multiplicar..."
INPUT A
PRINT "Escribe el segundo número..."
INPUT B
PRINT "¿Algo más?"
INPUT R
IF R = Q THEN
PRINT "El resultado es "; A * B
ELSE IF R = P THEN
PRINT "Escribe el tercer número..."
INPUT C
PRINT "¿Algo más?"
INPUT R2
IF R2 = Q THEN
PRINT "El resultado es "; A * B * C
ELSE IF R2 = P THEN
PRINT "Escribe el cuarto número..."
INPUT D
PRINT "¿Algo más?"
INPUT R3
IF R3 = Q THEN
PRINT "El resultado es "; A * B * C * D
ELSE IF R3 = P THEN
PRINT "Escribe el quinto número..."
INPUT E
PRINT "¿Algo más?"
INPUT R4
IF R4 = Q THEN
PRINT "El resultado es "; A * B * C * D * E
ELSE IF R4 = P THEN
PRINT "Escribe el sexto número..."
INPUT F
PRINT "¿Algo más?"
INPUT R5
IF R5 = Q THEN
PRINT "El resultado es "; A * B * C * D * E * F
ELSE IF R5 = P THEN
PRINT "Escribe el séptimo número..."
INPUT G
PRINT "¿Algo más?"
INPUT R6
IF R6 = Q THEN
PRINT "El resultado es "; A * B * C * D * E * F * G
ELSE IF R6 = P THEN
PRINT "Escribe el octavo número..."
INPUT H
PRINT "¿Algo más?"
INPUT R7
IF R7 = Q THEN
PRINT "El resultado es "; A * B * C * D * E * F * G * H
ELSE IF R7 = P THEN
PRINT "Escribe el noveno número..."
INPUT I
PRINT "¿Algo más?"
INPUT R8
IF R8 = Q THEN
PRINT "El resultado es "; A * B * C * D * E * F * G * H * I
ELSE IF R8 = P THEN
PRINT "Escribe el décimo número..."
INPUT J
PRINT "El resultado es "; A * B * C * D * E * F * G * H * I * J
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ELSE IF mete = divi THEN
PRINT "Escribe el primer número a dividir..."
INPUT A
PRINT "Escribe el divisor..."
INPUT B
PRINT "El resultado es "; A / B
ELSE IF mete = pot THEN
PRINT "Escribe la base de la potencia..."
INPUT A
PRINT "Escribe el exponente de la potencia..."
INPUT B
PRINT "El resultado es "; A ^ B
ENDIF
END