Quick basic
10) For..next
sentencia
[EXIT FOR ]
NEXT [contador]
La sentencias se ejecutan hasta que el contador llegue a su valor final. Si omitimos la palabra STEP el contador se incrementa por default en 1. EXIT FOR sirve para salir del bloque FOR en cualquier momento.
Veamos el siguiente ejemplo:
CLS
COLOR
10
PRINT TAB(30);
"ÁREA
DE TRIÁNGULOS"
PRINT : COLOR
7
INPUT "CUÁNTAS
ÁREAS DESEA CALCULAR:
",
n
PRINT
FOR
contador
=
1
TO
n
COLOR
7
PRINT "TRIÁNGULO
#:";
: COLOR
15
: PRINT
contador
INPUT "Base:
",
b
INPUT "Altura:
",
h
a
= (b
*
h)
/
2
PRINT "El
área es";
: COLOR
15
: PRINT
a
PRINT
NEXT
contador
Para explicar mejor, escribe el siguiente programa tal como se te muestra abajo:
CLS
FOR
x
=
1
TO
10
PRINT "Hola"
NEXT
x
Te encontrarás con que la frase Hola aparece en una lista 10 veces seguidas en la pantalla. Ahora vamos a mirar como funciona este programa.
x es una variable y tomará el valor 1. Cada vez que el comando NEXT x es alcanzado, el programa comprobará que la variable x es 10. Si no es 10 el programa regresará donde estaba el comando FOR. Siempre que la variable x no sea 10 el regresará y sumará 1 al numero que tenía. Si tú modificas la orden FOR para que llegue hasta 20, NEXT comprobará que x ha alcanzado el valor de 20.
Por ejemplo:
FOR
x
=
1
TO
10
1,2,3,4,5,6,7,8,9,10 se detiene el programa
FOR
x
=
1
TO
20
1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20 se detiene el programa
Si escribieses un programa como éste:
CLS
FOR
x
=
1
TO
10
NEXT
x
Este programa todavía hará lo mismo pero no ejecutará nada, porque no hay nada entre FOR y NEXT.
No necesariamente tenemos que contar de uno en uno. Para ello se emplea la orden STEP. Por ejemplo, podemos escribir los número pares del 1 al 20 así:
CLS
FOR
n
=
2
TO
20
STEP
2
PRINT
n
NEXT
n
O podemos contar hacia atrás:
CLS
FOR
x
=
10
TO
0
STEP
-1
PRINT
x
NEXT
x
También podemos tener ciclos FOR
anidados, en donde cada FOR
se termina con el NEXT que le
queda más cerca.
Por
ejemplo, podríamos escribir la tabla de multiplicar completa así:
FOR
tabla =
1 TO
10
FOR factor
= 1
TO 10
PRINT tabla;
"x";
factor; "vale:";
PRINT tabla
* factor
NEXT factor
PRINT : 'línea en blanco entre tablas
NEXT tabla
Para mas información escribe FOR y luego presiona F1.
Descargar gratis los programas y compiladores necesarios para aprender a programar
¿Buscas algo?