Bucles+FOR+anidados

=__**Bucles FOR anidados**__=

**Bucles FOR anidados**

code format="pascal" I   J
 * Ejemplo de ejecución:**

1   1     1    2     1    3     2    1     2    2     2    3 code code format="pascal" PROGRAM ForAnid ; VAR i, j: Integer ; BEGIN WriteLn ('I':5, 'J':5) ; WriteLn ('---') ;

FOR i := 1 TO 2 DO      FOR j := 1 TO 3 DO           WriteLn (i:5, j:5) ; Readln ; END. code

**Bucles FOR anidados: Crear rectángulo con números**

code format="pascal" Anchura: 4 Altura: 2 Rectangulo 1   1    2    2    3    3    4    4 code code format="pascal" PROGRAM Rectangulo ; VAR i, j, iAnch, iAlt: Integer ; BEGIN Write ('Anchura: ') ; ReadLn (iAnch) ; Write ('Altura: ') ; ReadLn (iAlt) ; Writeln ; WriteLn ('Rectángulo') ; FOR i := 1 TO iAlt DO     BEGIN FOR j := 1 TO iAnch DO          Write (i:5) ;
 * Ejemplo de ejecución:**

Writeln ; END ; ReadLn ; END. code **Bucles FOR anidados: Crear triángulo con números**

code format="pascal" Altura del triangulo: 4 Triangulo 1   2    2    3    3    3    4    4    4    4 code code format="pascal" PROGRAM Triangulo ; VAR i, j, iAlt: Integer ; BEGIN Write ('Altura: ') ; ReadLn (iAlt) ;
 * Ejemplo de ejecución:**

Writeln ; WriteLn ('Altura del triangulo'); FOR i := 1 TO iAlt DO     BEGIN FOR j := 1 TO i DO         Write (i:5) ;

Writeln ; END ; ReadLn ; END. code **Bucles FOR anidados: Crear triángulo con números**

code format="pascal" Altura del triangulo: 4 Triangulo 1   1    1    1    2    2    2    3    3    4 code code format="pascal" PROGRAM Triangulo ; VAR i, j, iAlt: Integer ; BEGIN Write ('Altura del triangulo: ') ; ReadLn (iAlt) ;
 * Ejemplo de ejecución:**

Writeln ; WriteLn ('Triangulo'); FOR i := 1 TO iAlt DO      BEGIN FOR j := iAlt DOWNTO i DO          Write (i:5) ;

Writeln ; END ; ReadLn ; END. code **Bucles FOR anidados: Crear triángulo con números**

code format="pascal" Altura del triangulo: 4 Triangulo 1   2    3    4    5    6    7    8    9   10 code code format="pascal" PROGRAM Triangulo ; VAR i, j, iAlt, iValor: Integer ; BEGIN Write ('Altura del triangulo: ') ; ReadLn (iAlt) ;
 * Ejemplo de ejecución:**

Writeln ; WriteLn ('Triangulo'); iValor := 0 ; FOR i := 1 TO iAlt DO      BEGIN FOR j := iAlt DOWNTO i DO          BEGIN iValor := iValor + 1 ; Write (iValor:5) ; END ; Writeln ; END ; ReadLn ; END. code