Найти сумму числового ряда через Do Loop - VB
Формулировка задачи:
Здравствуйте,нужна помощь очень.помогите пожалста.
Нужно найти сумму числового ряда (-1)^N/N^2 с помощью алгоритмов Until и While и оператора Do Loop с постусловием и предусловием.Результат проекта:значение суммы ряда и номер последнего члена ряда.
Решение задачи: «Найти сумму числового ряда через Do Loop»
textual
Листинг программы
- Sub main()
- e = 0.0000001
- n = 1
- Summa = 0
- Y = -1 ^ n / F(n + 1)
- Do While Abs(Y) > e
- Y = -1 ^ n / F(n + 1)
- Summa = Summa + Y
- n = n + 1
- Loop
- MsgBox "Сумма = " & Summa & vbCrLf & "Номер последнего: " & n - 1
- End Sub
- Function F(n)
- F = 1
- For i = 2 To n
- F = F * i
- Next i
- End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
