Pascal-repeat-until-loop

パスカル-ループまで繰り返す

ループの先頭でループ条件をテストするforおよびwhileループとは異なり、 repeat …​ Pascalのuntil ループは、ループの下部でその状態をチェックします。

繰り返し…​ untilループは、繰り返し…​ ループが少なくとも1回実行されることが保証されるまで。

構文

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

例えば、

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

条件式はループの最後に表示されるため、条件がテストされる前にループ内のステートメントが1回実行されることに注意してください。

条件が偽の場合、制御のフローはジャンプして戻って繰り返し、ループ内のステートメントが再度実行されます。 このプロセスは、指定された条件が満たされるまで繰り返されます。

流れ図

Pascalのループまで繰り返す

例

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