Ejemplos+básicos+de+bucles+FOR

=__**Ejemplos básicos de bucles FOR**__=

**Bucles FOR normal** code format="pascal" PROGRAM FOR1 ; VAR i : Integer ; BEGIN i := 32 ; { no es necesaria esta inicialización } WriteLn ('  Antes del bucle: ', i) ; FOR i := 1 TO 5 DO     WriteLn ('Dentro: ', i) ; WriteLn ('Al salir del bucle: ', i)  END. code

**Bucles FOR que no se ejecuta : Limite inferior > Limite Superior** code format="pascal" PROGRAM FOR2 ; VAR i : Integer ; BEGIN i := 32 ; { no es necesaria esta inicialización } WriteLn ('  Antes del bucle: ', i) ; FOR i := 16 TO 5 DO     WriteLn ('Dentro: ', i) ; WriteLn ('Al salir del bucle: ', i)  END. code

**Bucles FOR en el que dentro del bucle se modifica el Limite Superior** En el ejemplo el bucle se repetirá 3 veces, no 6 pues el Limite Inferior y el Limite Superior se evalúan sólo una vez, justo antes de ejecutar el bucle FOR code format="pascal" PROGRAM FOR3 ; VAR i, A : Integer ;

BEGIN i := 32 ; { no es necesaria esta inicialización } A := 3 ;

FOR i := 1 TO A DO      BEGIN WriteLn ('Dentro: ', i) ; A := 6 ; END ;

WriteLn ('Al salir del bucle i: ', i)   WriteLn ('Al salir del bucle A: ', LimSup ) END. code

**Bucles FOR: Sumar los 5 primeros números impares** **Bucles FOR en el que dentro del bucle se modifica la variable de control: NO SE DEBE HACER NUNCA** En el ejemplo el bucle NO SE REPETIRA 5 VECES La variable de control tomará los valores: 1 y 4 code format="pascal" PROGRAM FOR4A ; VAR i : Integer ; iSumaImpares : Integer ; BEGIN iSumaImpares := 0 ; FOR i := 1 TO 5 DO      BEGIN WriteLn ('Dentro: ', i) ; iSumaImpares := iSumaImpares  + i ; i := i + 2 ; END ;

WriteLn ('La suma de los 5 primeros impares es: ', iSumaImpares ) END. code

**Bucles FOR: Sumar los 5 primeros números impares** **Bucles FOR en el que dentro del bucle se utiliza otra variables auxiliar que si se modifica (no la variable de control)** En el ejemplo el bucle SI SE REPETIRA 5 VECES La variable de control tomará los valores 1, 2, 3, 4, 5 La iNum (al inicio de cada iteración) tomará los valores 1, 3, 5, 7, 9 code format="pascal" PROGRAM FOR4B ; VAR i, iNum : Integer ; iSumaImpares : Integer ; BEGIN iNum := 1 ; iSumaImpares := 0 ; FOR i := 1 TO 5 DO      BEGIN WriteLn ('Dentro: ', i) ; iSumaImpares := iSumaImpares  + iNum ; iNum := iNum + 2 ; END ;

WriteLn ('La suma de los 5 primeros impares es: ', SumaImpares ) END. code