Onionmixer: 예문수정

2013-04-04T05:50:22Z

예문수정

New page

==for 순환문을 사용한 곱셈표==

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

<syntaxhighlight lang="pascal">
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;
</syntaxhighlight>

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

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

<syntaxhighlight lang="pascal">
for i:= 12 downto 1 do
</syntaxhighlight>

[[Category:StartprogrammingusingObjectPascal]]

Onionmixer: SPOP for순환문을사용한곱셈표 페이지 추가

2012-07-21T09:31:46Z

SPOP for순환문을사용한곱셈표 페이지 추가

New page

===for 순환문을 사용한 곱셈표===

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

<syntaxhighlight lang="pascal">
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.
</syntaxhighlight>

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

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

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

StartprogrammingusingObjectPascal:MultiplicationTableUsingForLoop - Revision history

Onionmixer: 예문수정

Onionmixer: SPOP for순환문을사용한곱셈표 페이지 추가