Factorial

[sakira1983]

Hola soy novata en la materia me podrín ayudar a ¿como se calcula un factorial?Lo he intentado con do while pero nada.Gracias.Uso VB6.

[lucasiramos]

Hola. Lo pude armar en un Do While, el número del que queres saber el factorial estaría almacenado en text1.text, vos si lo tenes en una variable o en una BD, reemplazalo por ese valor. Aqui va...

Código:

Dim Total As Double
Dim N As Integer
 
If Text1.Text = 0 Then
MsgBox "1"
Else
If Text1.Text < 0 Then
	 MsgBox "El nº debe ser positivo!"
Else
	 N = CInt(Text1.Text) - 1
	 Total = Text1.Text
	 Do While N <> 0
		 Total = Total * N
		 N = N - 1
	 Loop
 
	 MsgBox Total
End If
End If

Total sería el resultado del cálculo. El factorial de 0 es uno (no me preguntes por qué, soy analista de sistemas no profesor de matemáticas jeje), asi que tambien esta validado.

Espero que te sirva el código. Saludos. Lucas

[cgomez]

Buenas, el factorial es un problema recursivo en definición así que una buena solución es realizar una función recursiva capaz de calcular el factorial de N (siendo N un número mayor o igual que cero)

Aquí te dejo la función factorial:

Código:

Public Function factorial(ByVal num As Integer) As Long
    Dim result As Long
    
    If num = 0 Then
        result = 1
    Else
        result = num * factorial(num - 1)
    End If
    
    factorial = result
End Function

Devuelve un valor Long aplicando el factorial de un número N pasado como parámetro a la función.

Saludos