Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Работа с управляющими структурами 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

 

Блок схема программы.

 

Снимки с результатом работы программы.







Дата добавления: 2015-06-15; просмотров: 366. Нарушение авторских прав; Мы поможем в написании вашей работы!

Studopedia.info - Студопедия - 2014-2022 год . (0.015 сек.) русская версия | украинская версия








Поможем в написании
> Курсовые, контрольные, дипломные и другие работы со скидкой до 25%
3 569 лучших специалисов, готовы оказать помощь 24/7