Операторы цикла с предусловием

Формат цикла с предусловием:

5.2.1.

Do Until А [инструкции] [Exit Do] [инструкции] Loop

Где А ‑ логическое выражение Exit Do досрочный выход из цикла, управление передается на оператор стоящий за Loop

Правило выполнения:

тело цикла выполняется до тех пор пока А имеет значение False

Пример 1: Написать программный код, реализующий вычисление разности введенного числа и числа 100.

Public Sub qqq()

Dim x, s As Integer

x = InputBox("Введите значение Х")

s = 0

Do Until x >= 100

s = s + 1

x = x + 1

Loop

MsgBox "X на " & s & "меньше 100"

End Sub

5.2.2.

Do While А [инструкции] [Exit Do] [инструкции] Loop

Где А ‑ логическое выражение Exit Do досрочный выход из цикла, управление передается на оператор стоящий за Loop

Правило выполнения:

тело цикла выполняется до тех пор пока А имеет значение True

Пример:

Выполнение той же задачи, что и в предыдущем примере с использованием цикла While:

Public Sub qqq()

Dim x, s As Integer

x = InputBox("Введите значение Х")

s = 0

‘ Обратите внимание на знак в логическом выражении!

Do While x <= 100

s = s + 1

x = x + 1

Loop

MsgBox "X на " & s & "меньше 100"

End Sub

!!! В операторах цикла с предусловием и постусловием необходимо очень внимательно следить за созданием инструкции меняющей значение параметра цикла, в отличии от оператора цикла с параметром эти циклы не изменяют параметр цикла автоматически

Задание для практической работы.

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

Дата добавления: 2015-11-14