End Sub

Do

' Вычисляем значение текущего члена ряда

u = (-1) ^ n * x ^ (2 * n) / (2 * n)

z = z + u

n = n + 1

Loop While Abs (u) >= e

z = z + 1 'прибавляем к вычисленной сумме первый член ряда

MsgBox "Сумма ряда равна " & z,, "Решение задачи"

Сложные циклические процессы. Вложенные циклы. Тело любого цикла может, в свою очередь, содержать операторы цикла. Если цикл включает в себя один или несколько циклов, то он представляет собой сложный циклический процесс. Цикл, содержащий внутри себя циклы, называется внешним циклом, а цикл, содержащийся в другом цикле, – внутренним (вложенным).

При программировании алгоритмов со структурой вложенных циклов необходимо выполнять следующее требование: внутренний оператор цикла и принадлежащая ему область действия должны полностью содержаться в области внешнего оператора цикла. Иными словами, внешний цикл всегда начинается раньше, а заканчивается позже, чем внутренний.

Целесообразно производить разделение вычислений между внешним и внутренним циклами, если это возможно. Во внешний цикл необходимо включать все вычисления, не зависящие от параметра внутреннего цикла. Это позволит значительно сократить время выполнения программы, поскольку число повторений внешнего цикла меньше, чем внутреннего. По этой причине в качестве параметра внешнего цикла выбирают переменную, с которой связаны наиболее сложные вычисления

Пример 22. Вычислить сумму для х, изменяющегося от 0,5 до 1,4 с шагом 0,1.

Sub Demo_tab()

Dim i, n As Integer

Dim s, u As Single

i = 1

' Цикл построения таблицы значений функции

For x = 0.5 To 1.4 Step 0.1

' Цикл нахождения суммы

s = 0

For n = 1 To 10

u = x ^ n / n

s = s + u

Next n

i = i + 1

Cells(i, 1) = x

Cells(i, 2) = s

Next x

Дата добавления: 2014-01-04