StartprogrammingusingObjectPascal:FactorialProgramUsingWhileLoop

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

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.

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