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