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;

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

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

for i:= 12 downto 1 do