| Usuario |
como realizar esta operacion matem... |
Desconocido
|
| Enviado - 29/7/2004 |
| |
Esta es la operacion
n!=n*(n-1)*(n-1)*(n-1)
y asi hasta llegar a uno
ejemplo:
Se introuduce un numero en un textbox, como el 5
se da al boton calcular y el programa multiplicaria.
5 *4 = 20
20*3= 60
60*2= 120
120*1= 120
resultado = 120
si el ejemplo es con 4 seria
4*3=12
12*2=24
24*1=24
resultado = 24
Y asin con cualquier numero
Muchas gracias por vuestra ayuda |
| |
|
Desconocido
|
| Enviado - 29/7/2004 |
| |
Private Sub Command1_Click()
Dim R1 As Integer, R2 As Integer
Dim R3 As Integer, R4 As Integer
R1 = Int(Val(Text1))
If R1 <= 1 Then Exit Sub 'Dato debe ser >1
R4 = R1
Do
DoEvents
R3 = (R4 - 1)
R2 = R1 * R3
R1 = R2
R4 = R3
Loop Until (R3 = 1)
MsgBox "Resultado = " & R2
End Sub
Saludos
Jaop |
| |
|
fmarredo
486 Mensaje(s)
|
| Enviado - 30/7/2004 |
| |
Para calcular el factorial de un nro podés usar algo así:
Function Factorial(Num As Long) As Long
If Num < 2 Then
Factorial = 1
Else
Factorial = Factorial(Num - 1) * Num
End If
End Function
Ej de uso:
Resultado = Factorial(Val(Text1.Text))
Saludos
|
| |
|
frankkhan
46 Mensaje(s)
|
| Enviado - 2/8/2004 |
| |
esto te hace lo mismo que lo anterior pero mas rapido y ocupa menos memoria:
temp=tunumero
for i=tunumero to 2 step -1
temp=temp*(temp-1)
next i
resultado=temp
espero que te sirva |
| |
|
