VBA - Как определить расположение точки относительно окружности

максим19.94 · Конфигурация компьютера

Что бы при вводе точек выщитывало расположение входят или не входят точки в эту формулу

lxa85 · Отправлено: **20:49, 17-12-2012** | #12

VB под руками нет. Поэтому в черновике:

Код:

Const Epsilon = 0.01 ' Можно меньше, на усмотрение автора 
Const R = 3
Dim Answer AS String
Dim Circle_Min, Circle_Max As Single
Dim X, Y As Single

Circle_Min = R*R-Epsilon
Circle_Max = R*R+Epsilon

Input ("Введите X,Y",x,y)

If (x*x + y*y  < Circle_Min ) Then answer = "Точка лежит внутри окружности"
If (x*x + y*y  > Circle_Min ) and (x*x + y*y  <Circle_Max) Then answer = "Точка принадлежит окружности"
If (x*x + y*y  > Circle_Max) Then answer = "Точка лежит вне окружности"

Print answer

Iska · Отправлено: **23:30, 17-12-2012** | #13

lxa85, таки не утерпели

?

Tau_0 · Отправлено: **00:12, 18-12-2012** | #14

Цитата lxa85:

Задайте не менее 5ти точек в различных четвертях плоскости. »

Да здесь совершенно по барабану в каких квадрантах точка лежит, да и неважно внутри окружности точка или вне её....

Delirium · Отправлено: **01:42, 18-12-2012** | #15

максим19.94, Предупреждаю в последний раз - или начинаем читать правила раздела "Программирование" на форуме, или все подобные темы будут удалены.

lxa85 · Отправлено: **09:03, 18-12-2012** | #16

Iska, да все равно ему не поможет.
Потому что на простейший вопрос, "Зачем нужен эпсилон?" ответа не последует.
Да и смысл задания ТС так и не понял.
Tau_0, вопрос не ко мне.

Tau_0 · Отправлено: **17:31, 18-12-2012** | #17

Цитата lxa85:

"Зачем нужен эпсилон?" ответа не последует. »

Без эпсилон никак нельзя...

ЗЫ Вы поняли/расшифровали ентот примерчик гораздо глубже, чем он того заслуживает....

lxa85 · Отправлено: **18:46, 21-12-2012** | #18

Ради интереса, задал эту задачку порешать своим студентам.
"Определить принадлежность точки к формуле."
6 из 6 с ней не справились.
4 честно написали свое решение
If (x*x)+(y*y) == 9
Отдельные решения были полностью прокомментированны, 2жды использовался паскаль (Я не знаю, как админам удалось поставить Turbo Pascal на Windows 7, я не пробовал). 2 раза Java, среда Eclipse.
Открытый pyScipter (среда разработки под питон) был дружно проигнорирован.
2ое списавших, один честно (с моего разрешения), второй из-под тишка.
Были попытки поймать исключения при ошибочно введенных данных, ведения интерактивного консольного диалога с пользователем.
Во время разбора полетов час вспоминали геометрию 7-8ого класса.
Соотношение мальчик/девочка поровну -- 3/3
Возрастная группа 20-21 год.
Может я как то не так спрашиваю? Народ то, не сказать, что совсем глупые.
Или надо строже с ними общаться? Ерунда какая то.

XPEHOMETP · Отправлено: **11:16, 22-12-2012** | #19

Цитата lxa85:

Я не знаю, как админам удалось поставить Turbo Pascal на Windows 7, я не пробовал »

Кроме среды разработки "Труба-Паскаль" есть более современные варианты, поддерживающие старый синтаксис. Вроде Free Pascal, Pascal ABC и т.д. А в конце концов, словно для для хардкорных юзеров старых компиляторов были созданы виртуальные машины.

Tau_0 · Отправлено: **23:16, 22-12-2012** | #20

Цитата lxa85:

Ради интереса, задал эту задачку порешать своим студентам. »

А введение эрсилон неявно подразумевает толщину линии. Чистого математика от этого передёрнет... А без EPS численными методами на машине не порещать...

ЗЫ Попасть в линию можно только из ружья (пуля имеет конечный размер). А вот точку попробуйте воткнуть....???...