Найдите сумму бесконечного ряда c точностью до e , abs(x) < 1

@mgla112 · Регистрация: 24.10.2014

Author24 — интернет-сервис помощи студентам

Ввожу значение x = 0,5
Значение точности ряда 0,01
Выдает ошибку

Visual Basic

Public Sub main()
Dim x As Double, n As Double, funk As Double, e As Double, chlen As Double
n = 0
x = InputBox("Введите x")
e = InputBox("Введите точность е")
If Abs(x) > 1 Then
Error 666
End If
Do
       chlen = (-x) ^ n / n * (n + 1)
         funk = funk + chlen
         n = n + 1
    Loop While chlen < e
    MsgBox ("funk=" & funk)
End Sub

@Святой НякаЛайк · 26.12.2015, 15:59

Visual Basic

Public Sub main()
Dim x As Double, n As Double, funk As Double, e As Double, chlen As Double
n = 0                                                 ' сейчас n равен нулю
x = InputBox("Введите x")
e = InputBox("Введите точность е")
If Abs(x) > 1 Then
Error 666
End If
Do
       chlen = (-x) ^ n / n * (n + 1)         ' и вы возводите некое число в эту степень 0
         funk = funk + chlen                     ' отсюда и ошибка "Divizion by zero"
         n = n + 1                                  ' и только теперь вы назначаете переменной n выполнимое значение
    Loop While chlen < e
    MsgBox ("funk=" & funk)
End Sub

По сути всё верно, нужно лишь начать цикл Do... Loop While с ухода от нулевого значения.
Варианта два:
1) сразу после объявления переменной назначаете ей не (n = 0), а (n = 1)

Visual Basic

Public Sub main()
Dim x As Double, n As Double, funk As Double, e As Double, chlen As Double
n = 1                                                 ' сразу даём выполнимое значение
x = InputBox("Введите x")
e = InputBox("Введите точность е")
If Abs(x) > 1 Then
Error 666
End If
Do
       chlen = (-x) ^ n / n * (n + 1)         ' и функция работает с возведением в степень 1
         funk = funk + chlen
         n = n + 1
    Loop While chlen < e
    MsgBox ("funk=" & funk)
End Sub

2) ставите это (n = n + 1) строкой выше этого (chlen = (-x.....)

Visual Basic

Public Sub main()
Dim x As Double, n As Double, funk As Double, e As Double, chlen As Double
n = 0                                                 ' сейчас n равен нулю
x = InputBox("Введите x")
e = InputBox("Введите точность е")
If Abs(x) > 1 Then
Error 666
End If
Do
         n = n + 1                                  ' а теперь n равен 1 и с ним можно работать
       chlen = (-x) ^ n / n * (n + 1)
         funk = funk + chlen
    Loop While chlen < e
    MsgBox ("funk=" & funk)
End Sub

P.S.: Error 666 - это чтоб из Excel'я выскочил Сатана? =))))

Добавлено через 21 час 29 минут
Нет, не совсем так.
Вот это (n * (n + 1))
при n = 0
даёт (0 *(0+1)) = 0
а потом идет на этот ноль деление. Вот где ошибка.
Но по сути изложенным мной способом решается и эта ошибка.
Проблема лишь в том, что предложенное мной решение только убирает ошибку, но при этом условие задачи нарушается.

	26.12.2015, 15:59