Пример 4.

Date: 2015-10-07; view: 478.

Разработать информационную технологию, позволяющую вычислить значение функции 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_к, тело цикла будет обязательно выполнено один раз.

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