Pascal - 嵌套循环

---

Pascal 允许在一个循环内使用另一个循环。以下部分显示了一些示例来说明该概念。

Pascal 中嵌套 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;   

Pascal 中嵌套 while-do 循环语句的语法如下 -

while(condition1)do

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

嵌套的重复...直到循环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