Программная реализация алгоритма. Цикл DO. . Loop может использоваться в двух формах

Цикл DO..LOOP может использоваться в двух формах. Первая из них предполагает проверку условия в начале цикла, а другая — в конце него.

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

Схема выполнения такого цикла следующая:

1) вычисляется выражение (простое с применением операторов отношения либо сложное с применением логических операторов);

2) если выражение ложно (false), то выполнение оператора цикла заканчивается и выполняется следующая за оператором инструкция. Если выражение истинно (t rue), то выполняется тело оператора цикла;

3) процесс повторяется с пункта 1.

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

 

Вариант 1  (Цикл с предусловием)	Вариант 2 (Цикл с постусловием)
Do while| Until условие Инструкции| [Exit Do] Loop	Do Инструкции  [Exit Do] Loop while|Until условие

Ключевые слова While и Until по-разному обеспечивают реализацию проверки условия и выхода из цикла.

Ключевое слово While применяется, когда необходимо проверить на истинность условие, задаваемое в цикле. Другими словами, цикл выполняется ПОКА (While) условие истинно.

 Ключевое слово Until применятся тогда, когда необходимо обеспечить выполнение цикла ДО ТЕХ ПОР ПОКА (Until) условие ложно.

Логическое выражение, используемое в качестве условия, задает числовое или строковое выражение, при вычислении которого должно получиться значение либо “ true ”, либо “ false ”.

 Оператор Exit Do обеспечивает досрочный выход из цикла, независимо от условия продолжения инструкций. Квадратные скобки, внутрь которых помещается инструкция, указывают на необязательность параметра.

Программная реализация вышеуказанных задач выглядит следующим образом:

Сумма N натуральных чисел (цикл с предусловием)	Максимум из N натуральных чисел (цикл с постусловием)
Sub summa () Dim N, a,sum N=InputBox(“N=”) Do while i<N a=val(inputbox(“Введите а ”)) sum=sum+a i=i+1 loop msgbox sum end sub	Sub summa () Dim i as byte, a, max i=inputbox(“ i=”) Do a=inputbox(“Введите а”) if a>max then max=a i=i -1 loop until i=0 msgbox max end sub

Предотвращение бесконечного цикла

При работе с циклами имеется опасность входа в бесконечный цикл, если значение заданного условия не может измениться. В этом случае цикл выполняется бесконечно или до прерывания пользователем работы программы (клавиши < Ctrl+Break >). Например:

....

counter=99

Do until counter = 0

MsgBox («Мы в цикле!»)

 counter = counter -2

loop

После 49 повторений значение счетчика counter станет равным 1, а затем, после следующего повторения, его значение станет равным –1. Нулевое значение пропущено и условие никогда не будет истинным.

ЗАДАНИЯ НА САМОСТОЯТЕЛЬНУЮ РАБОТУ

Решение задач представить всеми видами циклов.

1. Найти сумму ряда 1+1/2² + 1/3³...1/nⁿ.

2. Вычислить факториал числа N.

3. Задать случайным числом N (N>10) конечное число членов последова-тельности целых натуральных двухзначных чисел (случайных). Если сумма чисел кратных трем будет больше суммы чисел, кратных 4, то вычислить среднее арифметическое этих сумм, иначе – среднее геометрическое.

4. Найти максимум и минимум из N натуральных двухзначных случайных чисел. Вывести на экран наколенные числа ряда, максимальное и минимальное число.

5. Дан ряд из N натуральных двухзначных случайных чисел. Найти среднее арифметическое всех элементов ряда и наибольшее отклонение от среднего.

6. Дан ряд из N натуральных двухзначных случайных чисел. Если количество четных элементов ряда больше количества нечетных, то увеличить среднее арифметическое всех элементов ряда в 5раз, иначе, вычислить из него корень пятой степени.

7. Лабораторная работа № 5
АЛГОРИТМ ЦИКЛА СО СЧЕТЧИКОМ

Является частным случаем цикла с предусловием. Отличие состоит в том, что в цикле задаются границы диапазона, по которым определяется число повторений цикла. Для реализации алгоритма используется блок Модификация (рис. 16).

Рис. 16. Базовая алгоритмическая структура цикла со счетчиком

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