FoxPro/Visual FoxPro - foxpro - Obtener el factorial de un numero

f = Factorial(10)

FUNCTION Factorial(n)

LOCAL i, r     && It is conventional to use lnI and lnR for variables, rather than single digits

    r = 1

    FOR i = n TO 1 STEP -1

        r = r * n

    NEXT  && Can also use "ENDFOR" here instead of "NEXT"

    RETURN r

ENDFUNC

N = 1

Do While N > 0

   Clea

   @ 2,2 say "Factorial de: " Font "arial",14 style "BT"

   @ 2,30 Get N Picture "###" Font "arial",14 style "BT"

   Read

   If N > 0

      Fin = 0

      Factorial = "1"

      For Fin = 2 to n

         Factorial = Factorial+"*"+alltrim(str(fin))

      EndFor

      @ 4,4 Say "Factorial de "+alltrim(str(n))+" = "+factorial+" = "+alltrim(trans(&factorial,"@z ###,###,###,###"))  Font "arial",14 style "BT"

      Read

   EndIf

EndDo