Pascal - Boucles imbriquées

Pascal permet d'utiliser une boucle dans une autre boucle. La section suivante montre quelques exemples pour illustrer le concept.

La syntaxe d'un nested for-do loop La déclaration en Pascal est la suivante -

for variable1:=initial_value1 to [downto] final_value1 do

begin
   for variable2:=initial_value2 to [downto] final_value2 do
   
   begin   
      statement(s);
   end;
end;

La syntaxe d'un nested while-do loop La déclaration en Pascal est la suivante -

while(condition1)do

begin
   while(condition2) do
   
   begin
      statement(s);
   end;
   statement(s);
end;

La syntaxe d'un nested repeat ... until loop Pascal est comme suit -

repeat
   statement(s);
   repeat
      statement(s);
   until(condition2);
until(condition1);

Une dernière remarque sur l'imbrication de boucles est que vous pouvez placer n'importe quel type de boucle à l'intérieur de n'importe quel autre type de boucle. Par exemple, une boucle for peut être à l'intérieur d'une boucle while ou vice versa.

Exemple

Le programme suivant utilise une boucle for imbriquée pour trouver les nombres premiers de 2 à 50 -

program nestedPrime;
var
   i, j:integer;

begin
   for i := 2 to 50 do
   
   begin
      for j := 2 to i do
         if (i mod j)=0  then
            break; {* if factor found, not prime *}
      
      if(j = i) then
         writeln(i , ' is prime' );
   end;
end.

Lorsque le code ci-dessus est compilé et exécuté, il produit le résultat suivant -

2 is prime
3 is prime
5 is prime
7 is prime
11 is prime
13 is prime
17 is prime
19 is prime
23 is prime
29 is prime
31 is prime
37 is prime
41 is prime
43 is prime
47 is prime