View source for StartprogrammingusingObjectPascal:FactorialProgramUsingWhileLoop

===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]]