Es una estructura de control que permite la repetición de una serie determinada de sentencias. Se le llama también bucle o lazo.

El cuerpo del ciclo o bucle contiene las sentencias que se repiten. Pascal proporciona tres estructuras o sentencias de control para especificar la repetición: while, repeat, for.

Nos ocuparemos de estudiar el ciclo FOR y el ciclo REPEAT.

3.4.1 La sentencia FOR

En numerosas ocasiones se puede desear un bucle que se ejecute un número determinado de veces, y cuyo número se conozca por anticipado. Para aplicaciones de este tipo se utiliza la sentencia FOR.

La sentencia FOR requiere que conozcamos por anticipado el número de veces que se ejecutan las sentencias que se encuentran dentro del ciclo.  El ciclo for se incremente automáticamente.

Sintaxis:

For variable := valor inicial to valor final do

       Sentencia;                      

Ejemplos:

1.

For c := 1 to 5 do

      Begin

            Write (`aa´);

            Write (`BB´)

      End;

Al ejecutarse, visualiza:

AaBBaaBBaaBBaaBBaaBB

For Caracter := `A´ to `Z´ do

       WriteLn (Caracter);

3. 4. 1. 1 Decremento del contador FOR (Downto)

El contador del ciclo se puede decrementar de uno en uno en lugar de incrementar. La sintaxis es la siguiente:

For variable := valor inicial downto valor final do

       Sentencia;          

Ejemplos:

For C :=  5 downto 1 do

      Begin

            Write (`C´);

            Writeln

      End;

Lo anterior produce la siguiente salida:

5

4

3

2

1

También podemos encontrar ciclos FOR anidados:

For m := 1 to 10 do

   begin

      For n := 10 downto 2 do

            WriteLn (m,n)

   end;

3.4.2 La sentencia REPEAT

Es una variante de la sentencia while. La sentencia REPEAT especifica un ciclo condicional que se repite hasta que la condición se hace verdadera.

El diagrama de flujo se representa de la siguiente manera:

El seudocódigo se representa así:

Repetir

       Sentencias

Hasta_que condición           

Sintaxis:

Repeat

      Begin

            Sentencia 1;

            Sentencia 2;

            ...

            ...

            ...

            Sentencia n;

      End;

Until expresion lógica

Ejemplo:

(* El siguiente programa imprime las secuencias de caracteres hasta que se presione cualquier tecla *)

 Uses   wincrt;

            n : integer;

Begin

      Repeat

            Begin

                Write ('a e i o u');

                Write ('1 2 3 4 5');

            End;

      Until keypressed

End.