Задачи для самостоятельного решения. Вычислить значения выражений по формулам (предполагается, что значениями переменных могут быть любые действительные числа):

Вычислить значения выражений по формулам (предполагается, что значениями переменных могут быть любые действительные числа):

 

1.	2.
3.	4.
5.	6.
7.	8.
9.	10.
11.	12.
13.	14.
15.	16.
17.	18.
19.	20.
21.	22.
23.	24.

 

 

Лабораторная работа № 4.

Циклический алгоритм. Операторы цикла

Теоретические сведения

Цикл- многократное повторение последовательности действий по некоторому правилу. Известны три типа циклических алгоритмических структур: цикл с пред­условием, цикл с постусловием и цикл с параметром. В VBA существуют операторы, реализующие все три типа циклов.

Цикл с предусловием (цикл-пока) — наиболее универсаль­ная циклическая структура. Он организует выполнение операторов, составляющих тело цикла, неизвестное заранее число раз. Реализуется оператором While. Формат оператора:

Do While < условие>

< тело цикла>

Loop

Здесь Do, While, Loop – зарезервированные слова;

< условие> – выражение логического типа;

< тело цикла> – операторы VBA.

Алгоритм работы оператора следующий. Вначале вычисляется значение выражения < условие>. Если < условие> имеет значение True, выполняется < тело цикла>;; после чего вычисление значения выражения < условие> повторяется. Если < условие> имеет значение False, оператор прекращает свою работу.

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

Цикл с постусловием (цикл-до) позволяет организовать многократное выполнение операторов, если число повторений заранее неизвестно.

Цикл с постусловием может быть записан в одном из следующих видов:

Do Until < условие>

< тело цикла>

Loop

или

Do

< тело цикла>

Loop Until < условие>

Здесь Do, Until, Loop – зарезервированные слова;

< условие> – выражение логического типа;

< тело цикла> – операторы VBA.

Оператор работает по следующему алгоритму. Вначале выполняется < тело цикла>, после чего вычисляется значение логического выражения < условие>. Если его значение есть False, операторы, образующие < тело цикла>;, повторяются. В противном случае оператор завершает свою работу.

То есть выход из цикла осуществляется, если логическое выражение принимает значение True (истина). Поскольку значение логического выражения вычисляется в конце каждого прохождения цикла, тело цикла выполнится хотя бы один раз.

Цикл с параметром (цикл со счетчиком, цикл – для) служит для организации циклов с заранее известным числом повторений.

Синтаксис оператора:

For < параметр> = < начальное значение> To < конечное значение> [Step < шаг> ]

< тело цикла>

Next

Здесь For, To, Step, Next – зарезервированные слова VBA;

< параметр> – простая переменная порядкового типа;

< начальное значение> – выражение того же типа что и < параметр>, определяющее начальное значение параметра;

< конечное значение> – выражение того же типа, определяющее конечное зна­чение параметра;

< шаг> – некоторое значение типа < параметр>, задающее, на сколько изменяется значение параметра при каждом проходе цикла;

< тело цикла> – операторы VBA.

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

При выполнении оператора вначале вычисляется значение выражения < начальное значение> и осуществляется присваивание < параметр> = < начальное значение>. После этого циклически повторяется:

- проверка условия < параметр> < = < конечное значение>;, если значение выражения < шаг> задано и имеет положительное значение, или < параметр> > = < конечное значение>;, если значение выражения < шаг> задано и имеет отрицательное значение;

- выполнение < тела цикла>;

- изменение значения переменной < параметр> на величину, указанную после слова Step; если < шаг> не указан, он полагается равным 1.

Демонстрационные примеры

1. Найти сумму десяти целых случайных чисел.

Sub Сумма()

Dim sum1 As Integer, sum2 As Integer, i As Integer

Randomize

‘решение задачи с помощью цикла с предусловием

i = 10

Do While i > 0 ‘цикла выполняется, пока логическое условие истинно

sum1 = sum1 + Int((10 * Rnd) + 1)

i = i - 1

Loop

MsgBox " Сумма чисел=" & sum1

‘решение задачи с помощью цикла с постусловием

i = 10

Do ‘цикла выполняется, пока логическое условие ложно

sum2 = sum2 + Int((10 * Rnd) + 1)

i = i - 1

Loop Until i = 0

MsgBox " Сумма чисел=" & sum2