FoxPro/Visual FoxPro - visual foxpro - realizar un programa que realize el factorial de un numero

   
Vista:
Imágen de perfil de jesus alberto ortiz perez

visual foxpro - realizar un programa que realize el factorial de un numero

Publicado por jesus alberto ortiz perez jesusalbertoortizperez@gmail.com (1 intervención) el 04/03/2016 20:57:42
realizar un programa que realize el factorial de un numero
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 José Luis

visual foxpro - realizar un programa que realize el factorial de un numero

Publicado por José Luis (16 intervenciones) el 04/03/2016 21:34:24
Jesús:

Una forma de realizar lo que solicitas es la 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 que te sea de utilidad.
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