Estructura Repeat

 La sentencia repeat es otra estructura repetitiva, la cual ejecuta al menos una vez su bloque repetitivo, a diferencia del while que podía no ejecutar el bloque.

Esta estructura repetitiva se utiliza cuando conocemos de antemano que por lo menos una vez se ejecutará el bloque repetitivo.
La condición de la estructura está abajo del bloque a repetir, a diferencia del while que está en la parte superior.

Finaliza la ejecución del bloque repetitivo cuando la condición retorna verdadero, es decir en forma inversa al while (repeat/until se lee repetir hasta que sea verdadero).

El bloque de operaciones se repite HASTA que la condición sea Verdadera.
Si la condición retorna Falso el bloque se repite nuevamente.

Es importante analizar y ver que las operaciones se ejecutan como mínimo una vez.

En el lenguaje Pascal/Delphi la estructura repeat la codificamos con la siguiente sintaxis:

repeat
    <Operación(es)>
until <Condición>;

No requiere que las instrucciones estén encerradas en un begin/end, debido que comienza con la palabra "repeat" y finaliza con la palabra "until".

Problema 1

Escribir un programa que solicite la carga de un número entre 0 y 999, y nos muestre un mensaje de cuántos dígitos tiene el mismo.
Finalizar el programa cuando se cargue el valor 0.

Diagrama de flujo:

No hay que confundir los rombos de las estructuras condicionales con los de las estructuras repetitivas repeat.

En este problema por lo menos se carga un valor. Si se carga un valor mayor o igual a 100 se trata de un número de tres cifras, si es mayor o igual a 10 se trata de un valor de dos dígitos, en caso contrario se trata de un valor de un dígito. Este bloque se repite hasta que se ingresa en la variable valor el número 0 con lo que la condición de la estructura repeat retorna verdadero y sale del bloque repetitivo finalizando el programa.

La ejecución del programa finaliza cuando en la variable "valor" se ingresa el valor 0, con dicho valor la condición del until retorna verdadero.