Как вычислить предел последовательности с точностью до e - VB

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

Помогите пожалуйста- разработать информационную технологию вычисления предела последовательности с точностью до Ԑ . Начальное значение n принять равным 1. Сам пытался сделать, но видно где-то ошибаюсь, т.к. Basic не считает

Решение задачи: «Как вычислить предел последовательности с точностью до e»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Private Sub Form_Load()
    Dim e As Double, f As Double, of As Double, n As Long
    
    n = 1: e = 0.00001
    Do
        of = f
        f = Lg(3 * n) / Sqr(n)
        n = n + 1
    Loop While (f - of) > e Or n = 1
    MsgBox f
End Sub
Public Function Lg(ByVal Value As Double) As Double
    Lg = Log(Value) / 2.30258509299405
End Function
                        

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

11 голосов , оценка 4.091 из 5

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