Bien, volvemos con este pequeño cursillo de Qbasic, después de un número (en el cual la programación practicamente brilló por su ausencia) y ahora si, a ver este juguete.
En este número vamos a ver el tema de selecciones, pero antes de eso debemos saber cuales son los operadores relacionales y lógicos que utiliza Qbasic.
OPERADORES RELACIONALES
OPERADOR | SIGNIFICADO |
= | Igual que |
< | Menor que |
> | Mayor que |
<= | Menor igual que |
>= | Mayor igual que |
<> | Distinto que |
OPERADORES LOGICOS
X | Y | NOT X | X AND Y | X OR Y | X XOR Y | X EQV Y | X IMP Y |
V | V | F | V | V | F | V | V |
V | F | F | F | V | V | F | F |
F | V | V | F | V | V | V | F |
F | F | V | F | F | F | V | V |
Ahora sí podemos pasar a los que nos compete.
SI...ENTONCES...FIN SI
En Qbasic la estructura del si tal cosa, tal otra es la siguiente:
IF cond THEN
instrucciones...
ELSE
instrucciones...
END IF
Un ejemplo de esto sería:
INPUT "Ingrese nota: ",nota
IF nota>6 THEN
PRINT "Aprobado"
ELSE
PRINT "Desaprobado"
END IF
Es evidente que podemos utilizar los Si...Entonces de manera anidada, lo cual podemos ver en este ejemplo:
INPUT "Ingrese nota: ",nota
IF nota<4 THEN
PRINT "Reprobó"
ELSE
IF nota>7 THEN
PRINT "Promoción"
ELSE
PRINT "Regular"
END IF
END IF
Tambiñen podríamos usar el ELSEIF que es como un IF que va inmediatamente después de un ELSE, lo cual son ahora la1 de la mañana y no estoy muy lúcido para los ejemplos.
SELECCIONAR CASO
Como ya lo sabrán, por lo general es muchísimo mejor contar con una estructura SELECCIONAR CASO antes que tener mucho IF anidados. En QBasic se escribe así:
SELECT CASE var
CASE IS = 1
instrucciones
CASE IS = n 'Donde n es un número (tengan en cuenta que esto es como es la estructura)
instrucciones
CASE ELSE 'Si es otra opción
instrucciones
END SELECT
Un pequeño ejemplo de esto es el siguiente:
INPUT "Ingrese nota (1 a 5): ",nota
SELECT CASE nota
CASE IS=1
PRINT "Un 1, ponete a estudiar burro"
CASE IS=2
PRINT "Un 2, que examen de mierda"
CASE IS=3
PRINT "Un 3, el 50% safaste"
CASE IS=4
PRINT "Un 4, Bastante bien"
CASE IS=5
PRINT "Un 5 felicitaiones"
CASE ELSE
PRINT "Fijate donde apretas idiota"
END SELECT
Bueno, por esta ocación es suficiente, epsero onerme las pilas para seguir escribiendo sobre programación, porque habrán notado que en el número anterior no estaba muy inspirado en eso
Ingwe