StartprogrammingusingObjectPascal:MultiplicationTableUsingForLoop: Difference between revisions

From 흡혈양파의 번역工房
Jump to navigation Jump to search
(SPOP for순환문을사용한곱셈표 페이지 추가)
 
(예문수정)
 
(One intermediate revision by the same user not shown)
Line 1: Line 1:
===for 순환문을 사용한 곱셈표===
==for 순환문을 사용한 곱셈표==


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


<syntaxhighlight lang="pascal">
<syntaxhighlight lang="pascal">
Program MultTableWithForLoop;
program MultTableWithForLoop;


{$mode objfpc}{$H+}
{$mode objfpc}{$H+}
Line 16: Line 16:


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


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


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


<syntaxhighlight lang="pascal">
<syntaxhighlight lang="pascal">
for i:= 12 downto 1 do
for i:= 12 downto 1 do
</syntaxhighlight>
</syntaxhighlight>
[[Category:StartprogrammingusingObjectPascal]]
[[Category:StartprogrammingusingObjectPascal]]

Latest revision as of 05:50, 4 April 2013

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