Вычислить произведение членов последовательности - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 3.875 из 5
Похожие ответы