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

   
Vista:

foxpro - Obtener el factorial de un numero

Publicado por Nathanael nathannba2424@gmail.com (16 intervenciones) el 02/03/2016 14:26:36
Hola, necesito que me digan como puedo crear un programa que me diga el factorial de cualquier numero en foxpro, con un numero introducido por el usuario
Si pueden con columna y fila ej: @5,10 say
Mas o menos asi.
Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de xve

foxpro - Obtener el factorial de un numero

Publicado por xve (74 intervenciones) el 02/03/2016 16:02:08
Haber si te sirve este código:

1
2
3
4
5
6
7
8
9
10
11
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

Coméntanos, ok?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

foxpro - Obtener el factorial de un numero

Publicado por xve nathannba2424@gmail.com (16 intervenciones) el 02/03/2016 17:05:40
Que es eso y como funciona. Lo puse asi mismo pero no sale nada mas.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de xve

foxpro - Obtener el factorial de un numero

Publicado por xve (74 intervenciones) el 02/03/2016 20:36:03
La variable "r" contiene el resultado de la función factorial()

Has indicado que quieres hacer con dicho resultado? imprimirlo, mostrarlo en un cuadro de texto, ...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

foxpro - Obtener el factorial de un numero

Publicado por xve nathannba2424@gmail.com (16 intervenciones) el 02/03/2016 21:15:34
No es para imprimir sino para que aparesca en el mismo programa.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de José Luis

foxpro - Obtener el factorial de un numero

Publicado por José Luis jlplatag@gmail.com (16 intervenciones) el 04/03/2016 23:30:55
El código que te propongo es el siguiente:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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


Espero sea de utilidad

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar