Onionmixer: 오타수정

2013-04-04T05:57:10Z

오타수정

New page

==while 순환문을 사용한 팩토리얼 프로그램==

<syntaxhighlight lang="pascal">
var
Fac, Num, i: Integer;
begin
Write('Please input any number: ');
Readln(Num);
Fac:= 1;
i := num;
while i > 1 do
begin
Fac:= Fac * i;
i:= i - 1;
end;
Writeln('Factorial of ', Num ,' is ', Fac);
Writeln('Press enter key to close');
Readln;
end.
</syntaxhighlight>

''while'' 순환문은 루프 카운터가 없기 때문에 변수 ''i''를 루프 카운터처럼 동작하게끔 사용했습니다. 루프 카운터 값은 팩토리얼 값을 얻기 위한 수로 초기화 했으며, 순환할 때마다 감소했습니다. ''i''가 1에 도달하면 순환문의 동작을 멈출 것입니다.

[[Category:StartprogrammingusingObjectPascal]]

Onionmixer: SPOP while순환문을사용한팩토리얼프로그램 페이지 추가

2012-07-21T10:04:10Z

SPOP while순환문을사용한팩토리얼프로그램 페이지 추가

New page

===while 순환문을 사용한 팩토리얼 프로그램===

<syntaxhighlight lang="pascal">
var
Fac, Num, i: Integer;
begin
Write('Please input any number: ');
Readln(Num);
Fac:= 1;
i := num;
while i > 1 do
begin
Fac:= Fac * i;
i:= i - 1;
end;
Writeln('Factorial of ', Num ,' is ', Fac);
Writeln('Press enter key to close');
Readln;
end.
</syntaxhighlight>

''while'' 순환문은 루프 카운터가 없고, 이러한 이유로 변수 ''i''를 루프 카운터처럼 동작하게끔 사용했습니다. 루프 카운터 값은 팩토리얼 값을 얻기 위한 수로 초기화 했으며, 순환할 때마다 감소했습니다. ''i''가 1에 도달하면 순환문의 동작을 멈출 것입니다.
[[Category:StartprogrammingusingObjectPascal]]

StartprogrammingusingObjectPascal:FactorialProgramUsingWhileLoop - Revision history

Onionmixer: 오타수정

Onionmixer: SPOP while순환문을사용한팩토리얼프로그램 페이지 추가