Usubterráneo. Sin embargo, su suerte cambia cuando - RetroWiki.es

NOTA: Los programas los verifico en un Spectrum y en GWBasic, pero al usar solo
instrucciones estándar del BASIC, deben funcionar en cualquier máquina, si tenéis
cualquier problema, contactar conmigo y os pasaré las correcciones necesarias para
vuestra máquina.
n la entrada anterior presentamos la
entrada/salida, con las instrucciones INPUT y
EPRINT, y el uso general de variables, pero el
programa se iba ejecutando siempre linealmente,
siguiendo lo que se denomina su flujo. Cualquier
alteración en el recorrido del programa se denomina
un control del flujo, y es lo que veremos en este
artículo.
La instrucción de control de flujo más sencilla es el IF,
que tiene una pregunta, y en función de si se cumple o
no hace una u otra cosa. La sintaxis de esta instrucción
es IF condición THEN acción
·Condición es una pregunta, si el resultado de la
pregunta se cumple (es cierto), entonces se ejecuta la
acción, si no se cumple (es falso), entonces se pasa
directamente a la siguiente línea del programa. Por
ejemplo la pregunta puede ser si el contenido de
variable es igual a un valor o al contenido de otra
variable, si es diferente, si es mayor o menor.
·Acción es una instrucción que se ejecutará solo si se
cumple la condición. Hay versiones del BASIC que
permiten ejecutar varias instrucciones, como el
Spectrum.
Vamos con un ejemplo, que es lo más sencillo para
aclarar las cosas, pediremos dos números y una
operación, y en función de ella sacaremos el
resultado:
210 INPUT valor1
220 PRINT
230 PRINT "Introduzca el segundo valor: ";
240 INPUT valor2
250 PRINT
260 PRINT "Que operacion desea (1=+, 2=-, 3=*,
4=/): ";
270 INPUT operacion
280 PRINT
290 PRINT
300 REM Presentar el resultado
310 IF operacion=1 THEN PRINT "Suma: ";
valor1+valor2
320 IF operacion=2 THEN PRINT "Resta: "; valor1valor2
330 IF operacion=3 THEN PRINT "Producto: ";
valor1*valor2
340 IF operacion=4 THEN PRINT "Division: “;
valor1/valor2
En la línea 260 pedimos un número, que representa la
operación a ejecutar, y luego en las líneas 310 a 340
preguntamos si la operación introducida es la que
espero, entonces imprimo el resultado, si no es la que
espero no hago nada. Podemos hacer lo mismo con
resultados alfabético, solo cambia esto (recordar que
en el Spectrum hay que poner o$ en lugar de
operacion$
260 PRINT "Que operacion desea (+ - * /): ";
270 INPUT o$
280 PRINT
290 PRINT
100 REM --------------------------- 300 REM Presentar el resultado
110 REM Calculadora. J.A.Vaque 2011 310 IF o$=”+” THEN PRINT "Suma: "; valor1+valor2
120 REM --------------------------- 320 IF o$=”-“ THEN PRINT "Resta: "; valor1-valor2
130 REM 330 IF o$=”*” THEN PRINT "Producto: ";
140 REM Preparar la pantalla valor1*valor2
150 CLS 340 IF o$=”/” THEN PRINT "Division: “; valor1/valor2
160 PRINT "Calculadora simple. Version 2.0"
170 PRINT "*******************************"
180 PRINT
190 REM Introducir valores
200 PRINT "Introduzca el primer valor: ";
La instrucción tiene una variante, IF condición
THEN acción1 ELSE acción2, se ejecuta la acción1
si se cumple la condición, o la acción 2 si no se
cumple. Por ejemplo podemos usar: