Quick basic
8) While..wend
CONST
pi
=
3.1416
CLS
PRINT TAB(30);
"AREA
DE 5 CIRCULOS"
PRINT
contador
=
0
'Inicializamos
el contador
WHILE
contador
<
5
'Inicio
del ciclo. Contador < 5 porque empezamos en cero
INPUT "Radio:
",
radio
PRINT "El
área es:
";
pi
*
radio
*
radio
PRINT
contador
=
contador
+
1
'El
contador se incrementa en 1
WEND 'Seguir
En este tipo de ciclos o bucles generalmente el valor de la condición ya ha sido inicializado desde antes de entrar al ciclo (contador = 0) y se incrementa dentro del ciclo (contador = contador + 1). El ciclo se ejecutará mientras la condición sea verdadera, por lo que si desde antes de entrar al bucle la condición ya es falsa, el programa no ejecutará el ciclo.
Ejemplo de un bucle WHILE...WEND que no se ejecutará:
x
=
0
CLS
WHILE
x
=
1
'Mientras
x = 1... pero como x = 0 y no igual a 1...
PRINT "HOLA"
x
=
x
+
1
WEND
PRINT "Fin
del programa"
También podemos caer en ciclos infinitos. Esto es, ciclos que no tengan fin y terminarán nunca:
Ejemplo de un bucle WHILE...WEND infinito:
x
=
1
'Inicializamos
la variable
CLS
WHILE
x
=
1
'Mientras
x = 1...
PRINT "HOLA"
WEND
PRINT "Fin
del programa"
Para poder salir de un bucle infinito, presiona las teclas CTRL + (*).
En efecto el programa anterior entrará en el ciclo ya que la condición es verdadera (x = 1), pero x siempre será igual a 1 ya que no hay nada que la modifique dentro del bucle y así poder dar una salida.
No necesariamente tiene que ser un incremento el que nos dé la salida. Si usamos un contador, también podemos incrementarlo como queramos.
Ejemplo:
salir
=
0
'Inicializamos
la variable
CLS
WHILE
salir
=
0
'Mientras
salir = 0...
PRINT "HOLA"
INPUT "¿Quieres
salir (si = 1, no = 0)";
salir
PRINT
WEND 'seguir
PRINT "Fin
del programa"
Para mas información escribe WHILE y luego presiona F1.
Descargar gratis los programas y compiladores necesarios para aprender a programar
¿Buscas algo?