Показать сообщение отдельно
  #2  
Старый 22.10.2012, 16:32
Аватар для poli-smen
poli-smen poli-smen вне форума
Профессионал
 
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
По умолчанию

Цитата:
Сообщение от js_m1m
Код:
.....
      if ((p >= x1) and (q >= x2) and (p <= (x1 + x3)) and (q <= (x2 + x3))) then
.....
В итоге номер квадрата все-таки почему-то не выводится.
Потому что у тебя неправильное условие.
Должно быть так:
Код:
if ((p >= x1) and (q <= x2) and (p <= (x1 + x3)) and (q >= (x2 - x3))) then
Ответить с цитированием