ejemplos de FOR, PASCAL

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;

Var      m : char;

            n : integer;

Begin

      Repeat

            Begin

                Write ('a e i o u');

                Write ('1 2 3 4 5');

            End;

      Until keypressed

End.