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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы