Onionmixer: SPOP 팩토리렁프로그램 페이지 추가

2012-07-21T09:32:39Z

SPOP 팩토리렁프로그램 페이지 추가

New page

===팩토리얼 프로그램===

수학에서 팩토리얼은 숫자를 1로 감소시키면서 각각의 이전의 수를 곱한 것입니다. 예를 들어 3! = 3 * 2 * 1 = 6 입니다.

<syntaxhighlight lang="pascal">
var
Fac, Num, i: Integer;
begin
Write('Please input any number: ');
Readln(Num);
Fac:= 1;

for i:= Num downto 1 do
Fac:= Fac * i;

Writeln('Factorial of ', Num ,' is ', Fac);
Writeln('Press enter key to close');
Readln;
end.
</syntaxhighlight>
[[Category:StartprogrammingusingObjectPascal]]

StartprogrammingusingObjectPascal:FactorialProgram - Revision history

Onionmixer: SPOP 팩토리렁프로그램 페이지 추가