Вычислить произведение членов последовательности - VB
Формулировка задачи:
доброго времени суток всем
помогите пожалуйста вычислить Произведение членов последовательности для х = 10
((x+1)/1!)*((x+2)/2!)*((x+3)/3!)*...*((x+n)/n!)...
вычислить с точностью до E = 1*10^-4 = 0.001
не нашел поиска на форуме , не судите строго ньюфага )
заранее спасибо
Решение задачи: «Вычислить произведение членов последовательности»
textual
Листинг программы
- Private Sub Command1_Click()
- x = 10: eps = 0.0001
- f = 1: p = 1: k = 0
- Do
- k = k + 1
- f = f * k
- a = (x + k) / f
- p = p * a
- Print k; vbTab; p
- Loop While Abs(a) > eps
- MsgBox "P(10) /k=" & k & "/ = " & p
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
