dkdkdkdddddd

Anidamiento

Al igual que las instrucciones alternativas, las instrucciones repetitivas también se pueden anidar, permitiendo las siguientes combinaciones de anidamiento:
while en whilewhile en repeat...until
while en for
repeat...until en repeat...until
repeat...until en for
repeat...until en while
for en for
for en while
for en repeat...until
De ellas, vamos a estudiar, comoejemplo, la combinación:
for en repeat...until


Bucle for en repeat...until

En Pascal, para anidar un bucle for en un bucle repeat...until, se utiliza la sintaxis:

 repeat

   /* Inicio delanidamiento */
   for  :=  to  do
      begin
         
      end
   /* Fin del anidamiento */

 until ;
 

Ejemplo 1: Se quiere escribir un programa que muestre por pantalla la tabla demultiplicar de un número entero introducido por el usuario. El proceso debe repetirse mientras que el usuario lo desee:

   Introduzca un numero entero: 7

   La tabla de multiplicar del 7 es:

   7 *1 = 7
   7 * 2 = 14
   7 * 3 = 21
   7 * 4 = 28
   7 * 5 = 35
   7 * 6 = 42
   7 * 7 = 49
   7 * 8 = 56
   7 * 9 = 63
   7 * 10 = 70

   ¿Desea ver otra tabla (s/n)?: s

   Introduzca unnumero entero: -12

   La tabla de multiplicar del -12 es:

   -12 * 1 = -12
   -12 * 2 = -24
   -12 * 3 = -36
   -12 * 4 = -48
   -12 * 5 = -60
   -12 * 6 = -72
   -12 * 7 = -84
   -12 * 8= -96
   -12 * 9 = -108
   -12 * 10 = -120

   ¿Desea ver otra tabla (s/n)?: n

 

En Pascal, para resolver este problema se puede escribir:
program EJE13221;

uses Crt;

var
   Seguir: Char;
   I, Numero : Integer;

begin
   ClrScr;

   repeat
      WriteLn;
      Write( '   Introduzca un numero entero: ' );
      ReadLn( Numero );

      WriteLn;
      WriteLn( '   Latabla de multiplicar del ',
               Numero, ' es:' );
      WriteLn;

      { Inicio del anidamiento }
      for I := 1 to 10 do
         WriteLn( '   ', I, ' * ', Numero,
         ...