パスカル-入れ子ループ

Pascalでは、1つのループを別のループ内で使用できます。次のセクションでは、概念を説明するためのいくつかの例を示します。

Pascalの*ネストされたfor-do loop *ステートメントの構文は次のとおりです-

for variable1:=initial_value1 to [downto] final_value1 do

begin
   for variable2:=initial_value2 to [downto] final_value2 do

   begin
      statement(s);
   end;
end;

Pascalの*ネストされたwhile-do loop *ステートメントの構文は次のとおりです-

while(condition1)do

begin
   while(condition2) do

   begin
      statement(s);
   end;
   statement(s);
end;

ネストされた繰り返しの構文… loop * Pascalが次のようになるまで-

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

ループの入れ子に関する最後の注意点は、他の種類のループの中に任意の種類のループを配置できることです。たとえば、forループはwhileループ内に配置することも、その逆にすることもできます。

例

次のプログラムは、ネストされたforループを使用して、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.

上記のコードをコンパイルして実行すると、次の結果が生成されます-

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

Pascal-nested-loops

パスカル-入れ子ループ

例