Используя рекурсию или цикл - VB

Формулировка задачи:

Дано действительное число a, натуральное число n. Используя рекурсию или циклы вычислить значение выражения: 1/a+1/(a+1)+....+1/(a+n) Надо в visual basic сделать. Помогите плиз.


textual

Код к задаче: «Используя рекурсию или цикл - VB»

    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)
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

7   голосов, оценка 3.571 из 5

Источник
Похожие ответы