Занятие 13. Организация циклов на языке Visual Basic

Дата добавления: 2013-12-24; просмотров: 851; Нарушение авторских прав

Занятие 12. Лабораторная работа №3. Операторы условного перехода

End Sub

End If

Else

X = Text1.Text

Private Sub Command1_Click()

End Sub

End If

Else

End If

Else

X = Text1.Text

Private Sub Command1_Click()

End Sub

Text1.SetFocus

Последняя подпрограмма очищает текстовые поля. И устанавливает фокус на Text1.

8. Вновь проверяем значения функции на всех отрезках: x=-10, y=20; x=3, y=9; x=100, y=100.

Получаем тот же результат, но программа сделана более грамотно.

Задание 2.

1. Составить программу вычисления значений функции с учетом её области определения.

2. Математическая модель. В область определения данной функции входят все значения x отвечающие условиям:

· Логарифмическое выражение должно быть больше нуля, т.е. sin x > 0

· знаменатель не должен равняться нулю –x+ln(sin x) ¹ 0

3. Алгоритм. После математической модели, в данном случае, уместно составить блок-схему, она наглядно демонстрирует модель решения задачи:

4. Спроектируем эскиз формы:

5. Программа имеет вид:

If sin (x) > 0 Then

If –x + log (sin (x)) < > 0 Then

y = -(x-3)*(x-5)/(–x + log (sin (x)))

Text2.Text = y

Text2.Text = "Значение " & x & " не входит в ОО функции."

6. Данную блок-схему можно оптимизировать если объединить условия в один блок и соединить их логическими функцией И (And).

Оптимизированная программа будет такой:

If (sin (x) > 0) And (–x + log (sin (x)) < > 0) Then

y = -(x-3)*(x-5)/(–x + log (sin (x)))

Text2.Text = y

Text2.Text = "Значение " & x & " не входит в ОО функции."

7. Проверяем работоспособность программы по каждой ветви алгоритма, для различных значений x. Результаты:

1.Еслих=2, то y=1.9663033;

2. Если х =3, то y = 0;

3. Если x = 6, то Значение 6 не входит в ОО функции.

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

<== предыдущая лекция	\|	следующая лекция ==>
End Sub	\|	Цикл с предусловием