Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.02.2010, 19:34   #1
Kati
Пользователь
 
Регистрация: 21.05.2009
Сообщений: 34
По умолчанию Принадлежность точки квадрату Паскаль, либо Delphi

Дана точка на плоскости с координатами (x,y) и квадрат со стороной а, левый нижний угол квадрата находится в точке с кординатами (х1, y1). Определить, находится ли точка внутри квадрата.

Попробовала в Delphi так:

if ((x >=x1) and (y>=y1)) and ((x<=x1+a) and (y<=y1+a)) then
ShowMessage('Точка А(х,у) принадлежит квадрату')
else ShowMessage('Точка А(х,у) непринадлежит квадрату')

Но выводится сообщение 'Точка А(х,у) непринадлежит квадрату'!
Kati вне форума Ответить с цитированием
Старый 24.02.2010, 22:10   #2
eoln
Старожил
 
Аватар для eoln
 
Регистрация: 26.04.2008
Сообщений: 2,689
По умолчанию

Координаты в Дельфи и Паскале начинаются в левом верхнем углу!
Код:
if ((x >=x1) and (y<=y1)) and ((x<=x1+a) and (y>=y1-a)) then
ShowMessage('Точка А(х,у) принадлежит квадрату')
else ShowMessage('Точка А(х,у) непринадлежит квадрату')
При обычном вычислении с вводом данных ошибки быть не должно. Весь код пож-та

Последний раз редактировалось eoln; 24.02.2010 в 22:12.
eoln вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Паскаль Принадлежность точки заданной области Unikummm Помощь студентам 18 28.11.2010 16:04
Принадлежность точки к фигуре SeeJay Помощь студентам 9 24.12.2009 14:53
Принадлежность точки Forro Помощь студентам 4 26.05.2008 14:33
Принадлежность точки UnFaithful Паскаль, Turbo Pascal, PascalABC.NET 1 08.01.2008 06:16
принадлежность точки многоугольнику LevioFUN Общие вопросы Delphi 14 08.12.2006 16:07