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

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


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

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

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