Visual Basic - COMO SACAR EL FACTORIAL DE UN NUMERO, URGENTE!!!!!

Life is soft - evento anual de software empresarial
 
Vista:

COMO SACAR EL FACTORIAL DE UN NUMERO, URGENTE!!!!!

Publicado por VIRI (19 intervenciones) el 26/11/2004 22:01:49
HOLA!!!!!

ESPERO PUEDAN AYUDARME A VER SI EXIXTE ALGUNA FUNCION PARA SACAR EL FACTORIAL DE UN NUMERO.

DE ANTEMANO 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

RE:COMO SACAR EL FACTORIAL DE UN NUMERO, URGENTE!!

Publicado por bla (230 intervenciones) el 27/11/2004 02:41:01
Como tal no existe, pero es fácil crearla:
function fac(n as long) as long
if n=0 then
fac=1
else
fac=n * fac(n-1)
end if
end function
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

RE:COMO SACAR EL FACTORIAL DE UN NUMERO, URGENTE!!

Publicado por Alberto (200 intervenciones) el 27/11/2004 10:18:35
Bien, lla función que te manda bla es correcta, hace uso de la recursividad.
Por mi parte hice una que creo un poquito más didáctica, pero cualquiera de las dos te sirve.

Public Function Factorial(Numero As Integer) As Double
Dim n As Integer
Dim Facto As Double

'en este if que sigue sale sin calcular cuando el N°>100
'se puede ampliar este límite cuidando de no desbordar
'la variable Facto ni la función misma con el resultado.

If Numero > 100 Then Exit Function
Facto = Numero

'aquí repite las multiplicaciones en orden descendente
'por eso el "Step -1" desde el N° inmediato inferior
'a "Numero" hasta 1

For n = Numero - 1 To 1 Step -1
Facto = Facto * n
Next n
Factorial = Facto
End Function

Suerte
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