Вычисление предела последовательности - 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)

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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