Código de Visual Basic - Fast Factorial

Fast Factorialgráfica de visualizaciones


Visual Basic

estrellaestrellaestrellaestrellaestrella(6)
Publicado el 26 de Abril del 2004 por Paco Meza
13.501 visualizaciones desde el 26 de Abril del 2004. Una media de 21 por semana
Código que calcula el factorial de un número.

Versión 1
estrellaestrellaestrellaestrellaestrella(6)

Publicado el 26 de Abril del 2004gráfica de visualizaciones de la versión: Versión 1
13.502 visualizaciones desde el 26 de Abril del 2004. Una media de 21 por semana
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

Si alguno de los archivos de descarga no funciona, comentanos aquí el error.




Comentarios sobre la versión: Versión 1 (6)

Federico
28 de Abril del 2004
estrellaestrellaestrellaestrellaestrella
Me parece mucho más simple hacer:
Public Function Fact(n As Integer) As Double
If n <= 1 Then Fact = 1 Else: Fact = n * Fact(n - 1)
End Function
Y en sólo una línea de código calculás recursivamente el factorial de un número...
Demasiado splash y help y gráficos para algo tan simple como calcular el factorial de un número, estás desperdiciando talento.
Saludos
Responder
alberto
29 de Abril del 2004
estrellaestrellaestrellaestrellaestrella
Quizas si tenga demasiado splash, y otras cosas, y el código quedaría mucho mas claro como tu dices, pero como tú dices pero consumiría muchos recursos para enteros altos y sería mas lento, de todas formas el código queda mas claro de esta manera:

Dim cont As Integer
Dim foc As Double

foc = 1
Label2.Caption = "1"
For cont = 2 To CInt(Me.txtm.Text)
foc = foc * cont
Label2.Caption = cont & "*" & Label2.Caption
Next cont
labresul.Caption = foc

Responder
ESTEBAN
19 de Septiembre del 2004
estrellaestrellaestrellaestrellaestrella
Private Sub Cmd_Calcular_Click()
Resultado = 1
For i = 2 To Txt_numero.Text
Resultado = Resultado * i
Next i
Lbl_Resultado = Resultado
End Sub
.................................. :P
Responder
POLA
28 de Octubre del 2004
estrellaestrellaestrellaestrellaestrella
Demasiado código para nada, sobra la mitad. Qué pasa si el usuario teclea letras? que falla. Qué pasa si el usuario teclea un numero demasiado largo? que falla.
Conclusión no vale para nada.
Responder
sebastian maiocco
04 de Noviembre del 2005
estrellaestrellaestrellaestrellaestrella
hay un mito que si entendes las cosas de matematica son un capo, un genio...por favor!!!!!!!!!!!!!!!!!!!!!!.....la matematica es un conjunto de reglas que si las seguis es muy sencillo calcular....ahhh, cais me olvido, codigo muy muy malo
Responder
Patricio Vera
02 de Junio del 2006
estrellaestrellaestrellaestrellaestrella
Me van a disculpar, pero las críticas hechas al código de "paco" no tienen mucho fundamento porque ninguno aporta nada mejor. Me explico. Los códigos "aportados" como corrección a paco, llegan al mismo resultado... ninguno calcula el factorial de una crifra superior a 170. Moraleja: Para hablar y comer pescado... hay que tener mucho cuidado.
Responder

Comentar la versión: Versión 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios

http://lwp-l.com/s1041