Найти сумму ряда - Visual Basic .NET (64040)
Формулировка задачи:
Дано целое число N (> 0). Найти сумму
1 + 1/2 + 1/3 + … + 1/N
Решение задачи: «Найти сумму ряда»
textual
Листинг программы
- Private Function f(x As Integer) As Double
- Dim y As Double = 0
- For i As Integer = 1 To x - 1
- y += 1.0 / i
- Next
- Return y
- End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
