Используя рекурсию или цикл - VB
Формулировка задачи:
Дано действительное число a, натуральное число n. Используя рекурсию или циклы вычислить значение выражения:
1/a+1/(a+1)+....+1/(a+n)
Надо в visual basic сделать. Помогите плиз.
Решение задачи: «Используя рекурсию или цикл»
textual
Листинг программы
- Dim a As Double, n As Integer, i As Integer, s As Double
- a = CDbl(InputBox("Ââåäèòå Г*"))
- n = CInt(InputBox("Ââåäèòå n"))
- s = 0
- For i = 1 To n
- s = s + 1 / (a + i - 1)
- Next i
- MsgBox "ÑóììГ* = " + CStr(s)
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
