Вычислить функцию, используя ее разложение в степенной ряд - VB

Узнай цену своей работы

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

Нужно разложить функцию в ряд. Функция на скрине
Делаю так - получаю переполнение по N. Сможет кто сказать что не так?

Решение задачи: «Вычислить функцию, используя ее разложение в степенной ряд»

textual
Листинг программы
Private Sub Command1_Click()
Form1.Cls
   Dim x As Single, y As Single
    Dim n As Long
    Const e = 0.001
    y = 0
    For x = -1 To 1 Step 0.1
        n = 1
        y = -x
        Do While Abs(Abs(y) - Abs(Log(1 - x))) >= e
            n = n + 1
            y = -(x ^ n) / n + y
            DoEvents
        Loop
        Print Round(x, 4); Round(y, 4); Round(Log(1 - x), 4)
        y = 0
    Next x
End Sub

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

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