Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Разработать информационную технологию, позволяющую вычислить значение функции 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. Параметру цикла х присваивается начальное значение, равное х 0.
2. Выполняется тело цикла.
3. Значение параметра цикла увеличивается на величину шага.
4. Проверяется условие окончания цикла. Если условие истинно, то осуществляется переход к пункту 2, в противном случае выполнение циклического процесса заканчивается и осуществляется переход к оператору, следующему за структурой Цикл.
Схема алгоритма структуры Цикл с постусловием приведена на рис. 16. Характерной особенностью этого типа циклических процессов служит то, что при задании параметру цикла значения х 0 > x к, тело цикла будет обязательно выполнено один раз.
Структуру Цикл с постусловием можно реализовать с помощью следующих операторов.
Дата публикования: 2014-12-28; Прочитано: 184 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!