Работа с управляющими структурами VBA»Цель: разработать программу на VBA, которая в ответ на вводимую с клавиатуры пару вещественных чисел, представляющих собой координаты X,Y точки A на плоскости, выдает текстовое сообщение о принадлежности этой точки заданной области.
Для определения попадания произвольной точки в заданную область необходимо сформулировать соответствующее условие или условия и проверять их выполнение. Для обозначения заданного условия и его выполнения в языке VBA существует условный оператор “If”, конструкция которого содержит проверяемое условие и действие при выполнении обозначенного условия.
Для поставленной задачи и обозначенных областей сформулируем несколько условий:
'проверяем точку на принадлежность I и II координатным четвертям If Y >= 0 Then 'проверяем на прмнадлежность области "В" If X >= 0 And BelongCircle(X, Y) = False And BelongEllipse(X, Y) = True Then Belong = "принадлежит области B." End If
'проверяем на прмнадлежность области "А" If X <= 0 And BelongEllipse(X, Y) = True _ And BelongCircle(X, Y) = True And BelowLine(X, Y) = False Then Belong = "принадлежит области A." End If End If
Блок схема программы.
Снимки с результатом работы программы.
|
