• Lenguaje

    Visual Basic .Net

  • Descripción

    Obtener una función exponencial, la cual está dada por:
    e^x = 1+x/1! + x²/2! + x³/3! + ...

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Module FuncionExponencial

    Sub Main()
        Dim i, n As Integer
        Dim ex, factorial, x As Double
        ex = 0
        factorial = 0
        Console.Write("Ingresa el valor de x: ")
        x = Double.Parse(Console.ReadLine())
        Console.Write("Ingresa el valor de n: ")
        n = Integer.Parse(Console.ReadLine())
        For i = 1 To n
            Console.WriteLine("PROCESO " & i)
            If i = 1 Then
                ex=1
                factorial=1
            End If
            factorial=factorial*i
            ex=ex+Math.Pow(x,i)/factorial
            Console.WriteLine()
        Next i
        Console.WriteLine("Valor de ex: " & ex)
        Console.WriteLine("Valor de factorial: " & factorial)
        Shell ("cmd /c pause", AppWinStyle.NormalFocus, True)
    End Sub

End Module