Código de Visual Basic - Fast Factorial

Fast Factorial

Visual Basic

(6)

Publicado el 26 de Abril del 2004 por Paco Meza

14.704 visualizaciones desde el 26 de Abril del 2004

Código que calcula el factorial de un número.

Versión 1
(6)

Publicado el 26 de Abril del 2004

gráfica de visualizaciones de la versión: Versión 1

14.705 visualizaciones desde el 26 de Abril del 2004

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

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

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

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

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

4 de Noviembre del 2005

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

2 de Junio del 2006

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