Сообщение от Randomize
Вот, таким штукам в блице учиться в самый раз, так держать 
Придирки:
Мне кажется, что обновлять rezultX, rezultY .. rezultXX нужно в любом случае случилось пересечение или нет. Сбрасывать хотя бы в нули.
LineToRectangle очень здорово по несколько раз перезаписывает глобальные переменные.
Ну и мелочи:
1 re zult правильне написать как re sultX
2 PointToLine действительно необходим когда есть CircleToLine?
3 В функциях CircleToLine, CircleToRectangle, LineToRectangle нужно бы тоже указать Local для внутренних переменных как и в остальных ф-циях для порядку. |
Насчёт глобальных перемен ,это да ... использовал при проверке ,а так пусть каждый для себя решит что лучше использовать .
по 1 пункту re
zult возвращает : 0 - если не пересекает ,1 -пересекает , 2 - находится внутри и это важно !
по 2 пункту : они различаются ,если не заметили ,нет извлечение корня , а это плюс производительности .
по 3 пункту : не трудно поправить
