Задачник по ООП Опции

[Bokul]

Если ли такой для Паскаля? Или просто задачи...

P.S. ссылку на форум Задачи не давать...

[volvo]

Дело в том, что я думал сделать процедуры просчитывания новой траектории методом не наследников TGObject, а - TSuperVisor.

И что тебе это даст, кроме того балагана, с которым ты уже столкнулся? Нет... Я бы, все-таки, сделал так: процедура расчета траектории - тут у тебя нет особых сложностей - и треугольник, и квадрат, и круг в основном передвигаются по одинаковым законам, поэтому само передвижение не должно вызывать сложностей - достаточно определить одну процедуру пересчета координат в TGObject, и все потомки пусть ее наследуют.

Теперь - что касаемо столкновения... Хм... Ну, допустим вот такой вариант:

function collision(var obj_1, obj_2: TGObject): boolean;
begin
  {
    находишь "пересечение фигур" - где-то видел реализацию,
    могу попробовать найти ссылку: ищется фигура, представляющая
    собой общую часть фигур Obj_1 и Obj_2 ...
  
    Если полученная фигура НЕпуста, то есть или касание (площадь полученной
    фигуры сопоставима с одним квадратным пикселом, если можно так выразиться)
    или уже сильная авария (если общая площадь больше, но в этом случае ты должен
    чаще производить проверки на касания)
  }
  collision := (S_common(Obj_1, Obj_2) > 0)
end;

При реализации S_common тоже не надо будет ничего никуда добавлять - будут использоваться данные, уже и так хранящиеся в соотв. объектах (для круга - координаты центра и радиус, например)...