StartprogrammingusingObjectPascal:MultiplicationTableUsingForLoop: Difference between revisions
Jump to navigation
Jump to search
Onionmixer (talk | contribs) (SPOP for순환문을사용한곱셈표 페이지 추가) |
Onionmixer (talk | contribs) (예문수정) |
||
| (One intermediate revision by the same user not shown) | |||
| Line 1: | Line 1: | ||
==for 순환문을 사용한 곱셈표== | |||
곱셈표 프로그램의 for 순환문 버전은 더 쉽고 더 명확합니다. | 곱셈표 프로그램의 for 순환문 버전은 더 쉽고 더 명확합니다. | ||
<syntaxhighlight lang="pascal"> | <syntaxhighlight lang="pascal"> | ||
program MultTableWithForLoop; | |||
{$mode objfpc}{$H+} | {$mode objfpc}{$H+} | ||
| Line 16: | Line 16: | ||
var | var | ||
x, i: | x, i: Integer; | ||
begin | begin | ||
Write( | Write('Please input any number: '); | ||
Readln(x); | Readln(x); | ||
for i := 1 to 12 do | for i:= 1 to 12 do | ||
Writeln(x, | Writeln(x, ' * ', i, ' = ', x * i); | ||
Writeln( | Writeln('Press enter key to close'); | ||
Readln; | Readln; | ||
</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