Нахождение произведение n членов ряда - VB

Узнай цену своей работы

Формулировка задачи:

Дано натуральное число n. Вычислить произведение n членов ряда:(2/3)* (4/5)*(6/7)*...*((2n)/(2n+1)). Помогите пожалуйста решить.

Решение задачи: «Нахождение произведение n членов ряда»

textual
Листинг программы
Option Explicit
'DefStr J, S: DefLng F, I, L, N: DefBool B
'       © FelixMacintosh
 
Private Sub Form_Load()
    Dim p#, n% ', f
    n = InputBox("Ââåäèòå ÷èñëî N", , 3)
    p = 1
    If IsNumeric(n) Then
        For n = 1 To n 'Step 2
            p = p * 2 * n / (2 * n + 1)
        Next
    End If
    MsgBox "ðåçóëüòГ*ГІ = " & p
    End
End Sub

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


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

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

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