Код программы по теме "Циклические алогритмы" - VB
Формулировка задачи:
Доброго времени суток, прошу помочь мне с программой. Сам пытался её выполнить, но что-то не выходит. Заранее спасибо, надеюсь на вас.
Необходимо составить программу вычисления суммы всех членов последовательности, не меньших заданного числа e.
Решение задачи: «Код программы по теме "Циклические алогритмы"»
textual
Листинг программы
Private Sub Form_Load() main End Sub Private Sub main() Dim i As Long, k As Long, v As Double, e As Double, sum As Double e = Val(Replace(InputBox("e=", "", 0.001), ",", ".")) Do sum = sum + v v = ((-1) ^ k) / (fact(k) * (fact(k + 1))) k = k + 1 Loop Until Abs(v) < e MsgBox sum End Sub Function fact(n As Long) As Long If n = 1 Or n = 0 Then fact = 1 Else fact = fact(n - 1) * n End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д