Question

How to calculate the sum of series: 1/1! + 2/2! + 3/3! + 4/4! + ... N/N! in VB.NET

Answer 1

Imports System

Public Class Program
	Public Shared Function factorial(ByVal n As Integer) As Integer
        If n <= 1 Then
            Return (1)
        Else
            n = n * factorial(n - 1)
        End If

        Return n
    End Function

    Public Shared Sub Main()
        Console.WriteLine("Calculate the sum of series: 1/1! + 2/2! + 3/3! + 4/4! ... + N/N!")
		
        Dim N As Integer = 5
        Dim sum As Single = 0.0F

        For i As Integer = 1 To N
            sum += (CSng(i) / CSng(factorial(i)))
        Next

        Console.WriteLine("sum = " & sum)
    End Sub
End Class




' run:
'
' Calculate the sum of series: 1/1! + 2/2! + 3/3! + 4/4! ... + N/N!
' sum = 2.708333
'

 

70+ SQL courses for beginners and professionals