Вычисление предела последовательности - VB
Формулировка задачи:
Доброе время суток! Дано задание
Написал програмку :
Sub Kontr3_2()
Dim n As Integer 'n-количество прокруток в цикле '
Dim e As Double
Dim A1 As Double
Dim A As Double
e = InputBox("Введите погрешность E")
n = 1
A1 = (n ^ 3 + 5) / (2 * n ^ 3 + n ^ 2 + 1)
If A1 >= e Then
A = A1
Do While A >= e
n = n + 1
A = (n ^ 3 + 5) / (2 * n ^ 3 + n ^ 2 + 1)
Loop
MsgBox ("Предел последовательности равен " & A & " n=" & n)
Else: MsgBox "A=" & A1 & " ;" & "n=1"
End If
End Sub
В результате выдаёт ошибку Overflow, подчёркивая строку n = n + 1. Е вводил от 0.1 в сторону уменьшения.
Помогите пожалуйста найти ошибку, 2-ю ночь уже не могу понять в чём дело(((
Решение задачи: «Вычисление предела последовательности»
textual
Листинг программы
Dim n As Long 'n-количество прокруток в цикле ' Dim e As Double Dim A1 As Double Dim A As Double e = 0.00001 'InputBox("Введите погрешность E") n = 1 A = 5 A1 = (n ^ 3 + 5) / (2 * n ^ 3 + n ^ 2 + 1) Do While Abs(A - A1) >= e n = n + 1 A1 = A A = (n ^ 3 + 5) / (2 * n ^ 3 + n ^ 2 + 1) Loop MsgBox ("Предел последовательности равен " & A & " n=" & n)
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д