Função Fatorial

[Guest - Bruno -]

oiii

preciso de ajuda com função fatorial , o que é função fatorial, é assim é o numero vezes seus anteriores, por exemplo 4 * 3 * 2 * 1 , ou 6 * 5 * 4 * 3 *2 * 1. Preciso fazer isso para numeros de 1 a 99 , como posso fazer?

Precisu de ajuda msmo!!

flo

[Graymalkin]

Você pode fazer isso com uma função recursiva ou simplesmente com um for... next.

Abraços,

Graymalkin

[brunotricolor]

é não intendi muito bemm!!

Da pra você dar um ajudinhha??

flo

[kuroi]

simples, e so fazer um for do numero ate 0 step -1 e ir multiplicando os numeros

[Graymalkin]

É, acho que você tem razão, não tinha pensado nisso na hora que postei, só queria ajudar.

Sinto muito.

Anyway, se o cara realmente quer aprender, ele vai estudar esse algoritmo para compreender o que foi feito para solucionar o problema.

Abraço.

Sem problemas. :) E, sim, eu vi que sua intenção foi boa. Aliás, sua observação sobre ele se ele quiser realmente aprender também vem bem a calhar.

Ah, e bem-vindo ao fórum! Reparei agora que você é novo por aqui (apenas 4 posts)!

Abraços,

Graymalkin

[brunotricolor]

Aewww Vlw pro dois ai

mais eu já tinha conseguido ontem msmo

vlww

[brunotricolor]

oii to com problema

ehh olha esse codigo:

Private Sub cmdcalcular_Click()

Dim valor, cont As Integer

Dim total As Currency

total = 1

valor = Val(txtnumero.Text)

If valor = 0 Then

MsgBox "Digite um valor valido", vbExclamation

Else

For cont = 1 To valor

total = total * cont

Next cont

txttotal.Text = total

End If

End Sub

então ele só faz ateh o numero 18 como faço pra eli fazer ateh o 50 ??

por favor

[kuroi]

em vez de:

Dim total As Currency

faca:

Dim total As Double