Вычисление предела последовательности

Вычисление предела последовательности является типичной задачей на использование итерационного цикла.

Пример 27. Последовательность определена следующим образом Найти предел последовательности , принимая за него такое при котором .

Таблица имен

Математ. величина	Обозначение в программе	Содержательный смысл	Тип переменной
n	N	Номер итерации.	integer
	X1	Член послед. X с номером n-1.	real
	X	Член последовательности X с номером n.	real
ε	E	Требуемая точность расчетов.	real

Sub Pr27()

Dim X As Double, X1 As Double, E As Double: N: As Integer;

E = InputBox(“ВВЕДИТЕ E”)

N = 1; X: = 1;

Do

X1: = X

N = N + 1

X: = (N * N + 2)/(3 * N ^2 - N + 1)

Loop Until ABS(X - X1) < E;

MsgBox(“Предел последовательности равен” & X)

End Sub.