Quick basic
9) Do..loop
- DO WHILE...LOOP:
Este tipo de bloque es muy parecido a WHILE...WEND, ya que la condición regularmente se conoce por adelantado, y existe la posibilidad de que nunca se ejecute el ciclo. Mientras la condición sea verdadera, el ciclo se ejecutará. Este tipo de bloque proporciona una forma más potente que WHILE...WEND.
Sintaxis:
DO WHILE (condición)
instrucción1
instrucción2
instrucción3
[EXIT DO]
....
instrucciónn
LOOP
La sentencia EXIT DO nos permite salir de un bloque DO en cualquier momento.
Ejemplo:
x
=
0
'Inicializamos
la variable
CLS
PRINT "El
valor de x al empezar el ciclo es";
x
DO WHILE
x
<
10
x
=
x
+
1
? "Luego
x vale";
x;
"..."
LOOP
Cuando LOOP encuentra a la condición falsa se termina el ciclo.
- DO...LOOP WHILE:
En este tipo de ciclos las instrucciones se ejecutarán por lo menos 1 vez, ya que la condición se evalúa cuando se termina de ejecutar el bloque de instrucciones. Se ejecutara el ciclo mientras la condición sea verdadera.
Sintaxis:
DO
instrucción1
instrucción2
instrucción3
[EXIT DO]
....
instrucciónn
LOOP WHILE (condición)
Veamos el siguiente ejemplo:
CLS
COLOR
10
'Verde
brillante
PRINT TAB(20);
"CALCULO
DE LA VELOCIDAD DE UN VEHÍCULO"
COLOR
7
: PRINT 'Color
gris normal
DO 'Hacer...
INPUT "Distancia
recorrida por el vehículo (km):
",
d
INPUT "Tiempo
en recorrerla (h):
",
t
v
=
d
/
t
PRINT "La
velocidad con que viajó el vehículo es";
v;
"km
/ h"
PRINT
INPUT "¿Desea
calcular otra vez (si = 1, no = 0)";
desea
LOOP WHILE
desea
=
1
'Mientras
desea = 1
- DO UNTIL...LOOP:
La palabra UNTIL (hasta que) nos dice que mientras la condición No sea verdadera, el bucle se ejecutará. O lo que es lo mismo, hasta que la condición sea verdadera, el ciclo se ejecutará.
Sintaxis:
DO UNTIL
(condición)
instrucción1
instrucción2
instrucción3
[EXIT DO]
....
instrucciónn
LOOP
Veamos el siguiente ejemplo:
CONST
pi
=
3.1416
CLS
COLOR
10
PRINT TAB(28);
"PERIMETRO
DE CIRCULOS"
COLOR
7
: PRINT : PRINT
INPUT "Cuántos
perímetros va a calcular:
",
n
PRINT
DO UNTIL
c
=
n
INPUT "Radio:
",
radio
p
=
2
*
pi
*
radio
PRINT "El
perímetro es:";
p
PRINT
c
=
c
+
1
LOOP
Al crearse la variable c (contador) esta asume un valor de 0 por lo que:
· Si el
número de perímetros a calcular n
es 0, entonces la condición se hace verdadera antes de entrar al ciclo
(en efecto 0 = 0) y por tanto el ciclo no se ejecutará.
· Si n es positiva, el ciclo se
ejecutará n veces hasta que la
condición sea verdadera.
· Si n es negativa, el bucle se
hace infinito.
- DO...LOOP UNTIL:
En este tipo de bucles, las sentencias se ejecutarán al menos una vez y hasta que la condición sea verdadera.
Sintaxis:
DO
instrucción1
instrucción2
instrucción3
[EXIT DO]
....
instrucciónn
LOOP UNTIL (condición)
Ejemplo:
DO
'Cabecera
CLS
COLOR
10
PRINT TAB(25);
"CALCULO
DE LA ENERGÍA CINÉTICA"
PRINT : PRINT : COLOR
7
'Entrada
de datos
INPUT "Introduzca
la masa del cuerpo (kg):
",
m
INPUT "Velocidad
con que viaja (m / s):
",
v
'Cálculo
del resultado
ec
= (m
*
v
^
2)
/
2
'Fórmula
de la energía cinética
'Salida
del resultado
PRINT "La
energía cinética del cuerpo es de";
COLOR
15
: PRINT
ec;
COLOR
7
: PRINT "Joules"
'Ver
si otro cálculo
PRINT
INPUT "Otro
cálculo (si = 1, no = 0)",
otro
LOOP UNTIL
otro
=
0
Para mas información escribe DO y luego presiona F1.
Descargar gratis los programas y compiladores necesarios para aprender a programar
¿Buscas algo?