Apúntate...


Consultas, desarrollo de programas y petición de presupuestos:

martes, 21 de agosto de 2012

REPEAT....UNTIL

Esta orden se utiliza para especificar un ciclo condicional que se ejecuta al menos una vez.
Este ciclo se presenta en algunas circunstancias en las que se ha de tener la seguridad de que una determinada acción se ejecutara una o más veces, pero al menos una vez.

Sintaxis
                  Repeat
...’ instrucciones
Until Expresión-condicion


El bucle se repite hasta que la Expresión-condicion es cierta.


Ejemplo:
Contar cuantos  digitos de un número


Dim x As
Integer
Dim cant As Integer
Print "Contador de digitos de un numero"

Print "Teclea un numero, y contare los digitos que tenga"

Input x
Repeat
x = x / 10
cant += 1
Until (x = 0)
Print "El numero tiene: "; cant; " digitos"


Ejemplo II:
Pedir un número, y  omprobar si un numero esta entre el intervalo del 10 al 20, y sino seguir pidiendolo.

Dim num As Integer
Repeat
Print "Dame un numero:"
Input num
Until ((num >= 10) And (num <= 20))
Print "numero dentro del rango (10 a 20)"


Para más información:
http://gambaswiki.org/wiki/lang/repeat?l=es&nh
http://gambaswiki.org/wiki/lang/until?l=es&nh

Descarga de ejemplos: Enlace

No hay comentarios:

Publicar un comentario en la entrada

A falta de donativos... un poco de publicidad