Помогите сделать движение объектов в Pascal

[Ivanich]

Что то я запутался блин в универе дали эти объёкты я уже мучаю их наверное с месяц не могу дотумкать как зделать.
Смотрите
У меня разбиты объёкты на модули TRectangle и т.д
И зделал основную программу где распологаются процедуры вот так :

begin
  {TPoint}

   graphinit;
   p.init(30,370);
   p.switchon;
   p.move(30,10);
  {p.switchOff}

  {TCircle}
   c.init(230,370,100);
   c.switchon;
   c.move(70,50);
  {c.swithOff}

  {TEllipse}
   e.init(500,370,100,70);
   e.switchon;
   e.move(100,70);
  {e.switchOff}

 {TLine}
  l.init(100,200,300,200);
  l.SwitchOn;
 {l.SwitchOff;}
  l.move(45,58);

 {TRectangle}
 Rec.init(400,50,550,200);
 Rec.SwitchOn;
 {Rec.SwitchOff;}

ВИ тутже надо прописывать само движение объёктов или нет ?

[Tayfun]

Хм... Становиться еще интересней. Значит вы разбили объекты по модулям...
Честно скажу... Я так никогда не делал...
А можно посмотреть все исходники-?

[Ivanich]

Да конечно

[Ivanich]

Вы тоже в Кыргызстане живёт в где именно в Бишкек или нет ?

[Tayfun]

Теперь понятно... Каждая фигура предстовляет отдельный объект, который в свою очередь предстовляет собой отдельный модуль...
Согласен интересно. А можно узать задание (В смысле все, какое препад сказал)-?

[Tayfun]

Вы тоже в Кыргызстане живёт в где именно в Бишкек или нет ?

В Караколе. А вы тоже из Кыргызстана-?

[Ivanich]

Вот так :
Составить программу, состоящую из модулей, содержащих несколько объектов (местоположение, точка, круг, дуга, эллипс и, по желанию, любой другой объект ). Все фигуры должны быть нарисованы на экране вместе со строкой меню. Меню включает выбор фигуры. При выборе фигуры, она должна вращаться вокруг заданной точки. В программе должны быть реализованы наследование, полиморфизм, виртуальные методы и динамические объекты. Программа должна иметь комфортный интерфейс.

[Ivanich]

Да я в Бишкеке живу учусь в КГНУ

[Ivanich]

Ну потом я выкинул из этого задания виртуальные методы, у меня посмотрели сказали хорошо только добавь движения объекто не обязательно вращение чтоб хоть как нить двигались и тогда приму а так не отказ

[Tayfun]

Да я в Бишкеке живу учусь в КГНУ

Зашибись вас грузят... Курсовая-?
Если не секрет на каком курсе учитесь-?