StartprogrammingusingObjectPascal:MultiplicationTableUsingForLoop

for 순환문을 사용한 곱셈표

곱셈표 프로그램의 for 순환문 버전은 더 쉽고 더 명확합니다.

Program MultTableWithForLoop;

{$mode objfpc}{$H+}

uses
    {$IFDEF UNIX}{$IFDEF UseCThreads}
    cthreads,
    {$ENDIF}{$ENDIF}
    Classes
    { you can add units after this };

var
    x, i:  Integer;
begin
    Write(‘Please input any number: ’);
    Readln(x);
    for i := 1 to 12 do
        Writeln(x,  ‘ * ‘, i , ‘ = ‘ , x * I);
    
    Writeln(‘Press enter key to close’);
    Readln;
end.

Writeln 구문을 12번 작성하는 대신, 12번 실행하는 순환문 안에 한번 작성했습니다.

이 구문으로 to 키워드 대신 downto 키워드를 사용하여 뒤 방향으로 반복하는 for 순환 구문을 만들 수 있습니다.

for i:= 12 downto 1 do