StartprogrammingusingObjectPascal:ForLoop

for 순환문

이 예제와 같이, 카운터를 사용하여 정해진 횟수대로 순환하기 위한 구문을 실행할 수 있습니다.

var
    i: Integer;
    Count: Integer;
begin
    Write('How many times? ');
    Readln(Count);
    for i:= 1 to Count do
        Writeln('Hello there');
    Write('Press enter key to close');
    Readln;
end.

for 순환문 변수에는 Integer, Byte 그리고 Char와 같은 서수 형식을 사용할 것입니다. 이 변수를 루프 변수 또는 루프 카운터라고 부릅니다. 루프 카운터의 값은 임의의 숫자로 초기화할 수 있으며, 루프 카운터의 마지막 값 또한 결정할 수 있습니다. 예를 들어, 5부터 10까지 셀 필요가 있다면, 다음 처럼 합니다.

for i:= 5 to 10 do

아래 수정된 예제와 같이, 순환문을 매번 순환할 때마다 루프 카운터의 값을 표시할 수 있습니다.

var
    i: Integer;
    Count: Integer;
begin
    Write('How many times? ');
    Readln(Count);
    for i:= 1 to Count do
    begin
        Writeln('Cycle number: ', i);
        Writeln('Hello there');
    end;
    Write('Press enter key to close');
    Readln;
end.

참고로 이 시점에서 두개의 구문을 반복할 필요가 있으며, 이러한 이유로 이들 구문을 하나의 구문으로 만들기 위해 begin . . end 키워드를 사용했습니다.