Pascal ABC графика

[Василий15]

Используя динамические объекты и виртуальные методы, разработать программу одновременного вывода на экран и смены цвета двух эллипсов разного цвета.

uses graphABC;

begin
   window.Clear;
   brush.Color:=clRed;
   ellipse(100,50,200,150);
   brush.Color:=clBlue;
   ellipse(100,200,200,300);
end.

Есть только вывод, теперь нужно запилить смену цвета с помощью динамических объектов и виртуальных методов.

[Serge_Bliznykov]

// просто комментарий - графика в Pascal ABC и Pascal ABC.NET достаточно существенно отличается...
// это я к тому, что в Pascal ABC ваш пример не работает.

[Василий15]

Ок. Как будет выглядеть код в ТП? Хоть примерно.

[Dvoishnik]

в ТП тоже по другому все будет
какая версия паскаля вам нужна??

[Василий15]

Турбо Паскаль 7.1

[Dvoishnik]

должно помочь

[Василий15]

Спасибо. Но как реализовать решение через использование динамических объектов и виртуальных методов?

[Василий15]

попробовал так:

uses crt, graphABC;
begin
randomize;
  repeat {цикл прерывается нажатием любой клавиши} 
   window.Clear;
   brush.Color:=(Random(clGreen,clBlack,clBlue));
   ellipse(100,50,200,150);
   brush.Color:=(Random(clGreen,clBlack,clBlue));
   ellipse(100,200,200,300);
   Delay(Random(1000)); {задержка } 
  until KeyPressed; 
end.

Но ругается на строку с random. Как задать случайный цвет в цикле?

[Serge_Bliznykov]

всё просто, в Pascal ABC.NET есть специальный "случайный" цвет:
clRandom

например,

   brush.Color:=clRandom;

p.s. только не понимаю, как это поможет Вам решить проблему с использованием динамических объектов и виртуальных методов.
В этом примере вашей реализации ООП совсем нет.

[Василий15]

Большое спасибо.