ANALISE COMBINATORIA / FATORIAL

JB207 31/08/2007 16:00:51
#233647
Boa tarde galera...
Alguem sabe me dizer se o VB6 ja tem funcão pra Fatorial?
Tipo 3! = 1x2x3=6
6! = 1x2x3x4x5x6=720
Abraços.
USUARIO.EXCLUIDOS 31/08/2007 16:53:09
#233665
kra eu fiz uma vez com loop

vo monta aqui e posto para vc
MADMAX 31/08/2007 17:13:28
#233669 Resposta escolhida
ai 3 exemplos

http://www.vbmania.com.br/vbmania/vbmdetail.php?varID=759&TxtSearch=fatorial&CmbSort=&varPagina=1
http://www.vbmania.com.br/vbmania/vbmdetail.php?varID=4040&TxtSearch=fatorial&CmbSort=&varPagina=1
http://www.vbmania.com.br/vbmania/vbmdetail.php?varID=5250&TxtSearch=fatorial&CmbSort=&varPagina=1
FFCOUTO 31/08/2007 17:19:34
#233671
Use a função abaixo. Bom exemplo de recursividade.

Function Fatorial(N As Long) As Double
   If N <= 1 Then
      Fatorial = 1
   Else
      Fatorial = N * Fatorial(N - 1)
   End If
End Function


Para chamar a função

Msgbox Fatorial(100)


Obs.: O número máximo é 170. Usando um número maior gera o erro de overflow.
Tópico encerrado , respostas não são mais permitidas
Voltar