Вычислить произведение членов последовательности - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д