Код программы по теме "Циклические алогритмы" - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 4.308 из 5
Похожие ответы