Вычислить сумму ряда - VB
Формулировка задачи:
Я надеюсь, что Вы мне сможете помочь. Иначе я в большой беде. Пожалуйста, очень прошу откликнуться тех, кто может помочь с решением задачи. Необходимо вычислить сумму ряда в Visual Basic.
Сумма: S=1+3x/1!+(3x)^(2)/2!+...+(3x)^(n)/n!
Диапазон изменения аргумента: 0.1=<x=<1
При n = 15
Функция y: y=e^(3x)
Заранее огромное спасибо за внимание и надеюсь на помощь.
Решение задачи: «Вычислить сумму ряда»
textual
Листинг программы
- Function f(x As Double, n As Integer) As Double
- Dim s As Double
- Dim a As Double
- s = 1
- a = 1
- For i% = 1 To n
- a = a * 3 * x / CDbl(i%)
- s = s + a
- Next i%
- f = s
- End Function
- Sub Test()
- For x# = 0.1 To 1 Step 0.05
- f1# = Exp(3 * x)
- f2# = f(x, 15)
- d# = Abs(f1# - f2#)
- Debug.Print x#, f1#, f2#, d#
- Next x#
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
