Qbasic parte 2


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

OPERADORSIGNIFICADO
=Igual que
<Menor que
>Mayor que
<=Menor igual que
>=Mayor igual que
<>Distinto que

OPERADORES LOGICOS

XYNOT XX AND YX OR YX XOR YX EQV YX IMP Y
VVFVVFVV
VFFFVVFF
FVVFVVVF
FFVFFFVV

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