Пример 4. Синтаксис оператора следующий:

Loop Loop

Оператор Do … Loop

Оператор For … Next

Синтаксис оператора следующий:

For параметр цикла =Начальное значение To Конечное значение [Step Шаг]

Тело цикла

Next [ параметр цикла]

Параметр <Начальное значение > определяет значение переменной, с которой начинается отсчет. Параметр <Конечное значение> определяет значение переменной, при котором отсчет прекращается.

По умолчанию в цикле For … Next приращение шага равно 1.Чтобы его изменить, следует указать ключевое слово Step, а после него значение приращения.

Параметр цикла может изменять свое значение в обратномнаправ-лении. Для этого следует задать начальное значение больше конечного и указать отрицательное приращение после ключевого слова Step.

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

1. Do While <условие> 2. Do Until <условие>

операторы операторы

Следует обратить внимание, что при использовании оператора Do … Loop перед его записью параметру цикла необходимо присвоить начальное значение, а последний оператор тела цикла, должен увеличивать (уменьшать) значение параметра цикла на величину шага, в то время как в операторе For … Next эти действия записываются в заголовке самого оператора.

Повторение цикла в конструкциях Do While происходит до тех пор, пока условие остается истинным. Повторение цикла в конструкциях DoUntil происходит до тех пор, пока условие ложно.

Для выхода из цикла Do … Loop используется команда Exit Do.

Разработать информационную технологию, позволяющую вычислить значение функции y = sin x, при изменении значения a<=х<=b с шагом кх, где a = 0, b = p, кх =p /6.

Входные данные: a, b - вещественного типа

Выходные данные: y - вещественного типа

Схема алгоритма представлена на рис. 14.

В цикле значение y вычисляется до тех пор, пока условие не станет ложным, т.е. пока переменная x не станет больше b. На форме разместим два текстовых поля для ввода начального и конечного значений параметра цикла, командную кнопку и элемент управления "Список". Программа может быть записана так:

Private Sub Command1_Click()

Const pi=3.14159

Dim a As Double, b As Double, x As Double

Dim y As Double

a=Text1.Text: b=Text2.Text

x=a

Do While x<=b+pi/12 ’или Do Until x > b + pi/12

y = Sin(x)

List1.AddItem("x=" + Format(x, "0.00") + " y=" + Format(y, "0.000"))

x=x+pi/6

Loop

End Sub

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

Результат выполнения программы представлен на рис. 15.

Рис. 15

10.3.2. Цикл с постусловием

Структура Цикл с постусловием организуется следующим образом:

1. Параметру цикла х присваивается начальное значение, равное х ₀.

2. Выполняется тело цикла.

3. Значение параметра цикла увеличивается на величину шага.

4. Проверяется условие окончания цикла. Если условие истинно, то осуществляется переход к пункту 2, в противном случае выполнение циклического процесса заканчивается и осуществляется переход к оператору, следующему за структурой Цикл.

Схема алгоритма структуры Цикл с постусловием приведена на рис. 16. Характерной особенностью этого типа циклических процессов служит то, что при задании параметру цикла значения х ₀ > x _к, тело цикла будет обязательно выполнено один раз.

Структуру Цикл с постусловием можно реализовать с помощью следующих операторов.

Дата добавления: 2014-12-23