StartprogrammingusingObjectPascal:RepeatUntilLoop

repeat until 순환문

정한 횟수만큼 반복하는 for 순환문과는 다르게 repeat 순환문은 카운터가 없습니다. 각각의 상태가 일어나기까지(True를 되돌림) 순환하고, 그 다음에는 다음 구문으로 진행합니다.

예제:

var
    Num: Integer;
begin
    repeat
        Write(‘Please input a number : ’);
        Readln(Num);
    until Num <= 0;
    Writeln('Finished, Press enter key to close');

    Readln;

end.

앞의 예제에서, 프로그램은 순환문으로 진입하고 사용자에게 숫자를 입력하라고 요구합니다. 만약 숫자가 0보다 작거나 같다면, 순환문을 빠져나갈 것입니다. 만약 입력한 값이 0보다 크다면 순환은 계속될 것입니다.