StartprogrammingusingObjectPascal:RepeatUntilLoop

From 흡혈양파의 번역工房
Revision as of 09:57, 21 July 2012 by Onionmixer (talk | contribs) (SPOP repeatuntil순환문 페이지 추가)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to navigation Jump to search

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보다 크다면 순환은 계속될 것입니다.