Вычислить произведение элементов ряда (1+1/n) - VB
Формулировка задачи:
Очень срочно надо, помогите пллз, очень плохо в програмировании разбираюсь....
дано натуральное число n, вычислить (1+1/1)*(1+1/2)...(1+1/n) заранеее спасибо!
Решение задачи: «Вычислить произведение элементов ряда (1+1/n)»
textual
Листинг программы
Private Sub Command1_Click() Dim N As Integer, i As Integer Dim Y As Single N = Val(InputBox("Вводим n", , 5)) If N < 1 Then MsgBox "N<1 !" Exit Sub End If Y = 2 For i = 2 To N Y = Y * (1 + 1 / i) Next i MsgBox "для n=" & N & " " & "Y = " & Y End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д