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

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

Нужно разложить функцию в ряд. Функция на скрине

                    Листинг программы
                
 
                        
                          
                    
    Dim x As Single, y As Single
    Dim n As Integer
    Const e = 0.001
    
    For x = -1 To 1 Step 0.1
        y = 0
        n = 1
        y = -x
        Do While Abs(y) - Abs(Round(Log(1 - x), 4)) <= e
            n = n + 1
            y = -(x ^ n) / n + y
        Loop
        Print Round(x, 4); Round(y, 4)
    Next x

Делаю так - получаю переполнение по 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

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

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

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