Движение, Объекты Опции

[Client]

Задали задачку, сделать движение фигур(объектов) с использованием наследования и полиморфизма. Со стороны ООП правильно ли она сделана?

[Lapp]

сделать движение фигур(объектов) с использованием наследования и полиморфизма. Со стороны ООП правильно ли она сделана?

1. В головной объект введи процедуру

procedure Move(u,v: integer);
begin
  Hide;
  x:=u;
  y:=v;
  Show
end;

В наследниках ее НЕ переопределяй.

2. Объект Line характеризуй не абсолютным положением второй точки, а смещением от x,y (то есть типа размером и наклоном). То же самое с прямоугольником - укажи стороны (могут быть отрицательными).

Рисовать по-английски draw .