Pascal - Repeat-Until 循环

与在循环顶部测试循环条件的 for 和 while 循环不同，Pascal 中的 repeat ...until 循环在循环底部检查其条件。

repeat ...until 循环与 while 循环类似，不同之处在于，repeat ...until 循环保证至少执行一次。

语法

repeat
   S1;
   S2;
   ...
   ...
   Sn;
until condition;

例如，

repeat
   sum := sum + number;
   number := number - 2;
until number = 0;

请注意，条件表达式出现在循环末尾，因此循环中的语句在测试条件之前执行一次。

如果条件为假，则控制流程跳回重复，并且循环中的语句再次执行。 重复此过程，直到给定条件成立。

流程图

示例

program repeatUntilLoop;
var
   a: integer;

begin
   a := 10;
   (* repeat until loop execution *)
   repeat
      writeln('value of a: ', a);
      a := a + 1
   until a = 20;
end.

当上面的代码被编译并执行时，会产生以下结果 −

value of a: 10
value of a: 11
value of a: 12
value of a: 13
value of a: 14
value of a: 15
value of a: 16
value of a: 17
value of a: 18
value of a: 19

❮ pascal_loops.html