帕斯卡 - 巢狀迴圈

帕斯卡允許在另一個迴圈內使用一個迴圈。以下是來說明這一概念的幾個示例。

帕斯卡中 巢狀 for-do 迴圈 語句的語法如下 -

for variable1:=initial_value1 to [downto] final_value1 do

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

帕斯卡中 巢狀 while-do 迴圈 語句的語法如下 -

while(condition1)do

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

帕斯卡中 巢狀 repeat ... until 迴圈 語句的語法如下 -

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