ayuda con FOR y factoriales

[xxlorexx]

hola

quisiera saber si me pueden ayudar a encontrar el valor de una constante matematica usando la formila

1 + 1/1! + 1/2! + 1/3!.........1/n!


solo pude obtener el valor del ultimo termino (1/n! ) , pero no se como lograr el resultado de la suma de la sucecion completa


lo que ise para sacar el valor del termino 1/n! fue:

Dim lim As Integer

For j = 1 To 1
b = 1

If lim = 0 Then
b = 0
Else
If lim = 1 Then
b = 1
Else
For i = 1 To lim
b = b * i
Next
End If
End If
Console.WriteLine("resultado: " & j / b)

Next


LIM es el nombre de la variable qe use viene siendo "n" en la formula


saludos

[fradve]

Hola,

Pues lo que está mal dado es tu ciclo for, tu debes ingresar con cuantos términos de la serie vas a trabajar una vez hecho esto tu for quedaría mas o menos así:

Código vb:

Dim serie As Double
Dim nterminos as Integer
 
Console.WriteLine("INGRESE EL NúMERO DE TÉRMINOS: ")
nterminos= Console.ReadLine()
 
serie=1
 
If nterminos>1 Then
 For j=1 To nterminos
  serie=serie + 1/factorial(j)
 next
End If
 

Console.WriteLine("EL RESULTADO DE LA SERIE ES: " & serie)


Ahora solo tendrías que crear la función que calcule el factorial y listo.

[pkj]

Lo mio no son las matemáticas. A ver si he entendido bien lo que se buscaba y te funciona este código que he creado.

Código :

Private Function Calcular(ByVal N As Long) As Double
  Dim Resultado As Double
  Dim FactAnterior As Long
  Dim F As Long
  Resultado = 1
  FactAnterior = 1
  For F = 1 To N
    FactAnterior = F * FactAnterior
    Resultado = Resultado + (1 / FactAnterior)
  Next F
  Calcular = Resultado
End Function
 

Un saludo.