Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
⚡️ Для новых пользователей первый месяц бесплатно. А далее 290 руб/мес, это в 3 раза дешевле аналогов. За эту цену доступен весь функционал: напоминание о визитах, чаевые, предоплаты, общение с клиентами, переносы записей и так далее.
✅ Уйма гибких настроек, которые помогут вам зарабатывать больше и забыть про чувство «что-то мне нужно было сделать».
Сомневаетесь? нажмите на текст, запустите чат-бота и убедитесь во всем сами!
Вычисление предела последовательности
|
|
Вычисление предела последовательности является типичной задачей на использование итерационного цикла.
Пример 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.
|
|