Модуль Graph - Нарисовать пульсирующий зеленый круг

[vlad19_94]

Нарисовать пульсирующий зеленый круг, увеличивающийся и уменьшающийся, программа завершается нажатием любой клавиши. Рисование фигуры оформить в виде процедуры.

[Stilet]

Как думаешь делать?

[Вадим Мошев]

А к какому сроку это необходимо сделать?
Может так получиться, что Я решу полностью эту задачу, но за плату в виде 100 рублей на счёт мобильного телефона.

[Serge_Bliznykov]

и зачем людей мучают этим антикварным Graph с его DOS режимом - не понимаю!

и, хоть я не очень понял, что означает "пульсирующий" в задании, но так пойдёт?

uses
  Graph, crt;
const
  MinRadius = 1;
  MaxRadius = 50;

var grDriver, grMode : integer;
  x0,y0, Radius : integer;
  stepR : integer;
Begin
  grDriver:=Detect;
  InitGraph (grDriver,grMode,'..\BGI');
  SetBkColor(LightBlue);

  x0 := GetMaxX div 2;
  y0 := GetMaxY div 2;


  Radius := MinRadius;
  stepR := 5;

  repeat
    {вывести зелёный круг}
    SetColor(Green);
    SetFillStyle(SolidFill, Green);
    Circle(x0, y0, Radius);
    FloodFill(x0, y0, Green);

    Delay(50);

    {стереть круг}
    SetColor(LightBlue);
    SetFillStyle(SolidFill, LightBlue);
    Circle(x0, y0, Radius);
    FloodFill(x0, y0, LightBlue);
    {PieSlice(x0, y0, 0, 360, Radius); }

    {cleardevice; }

    if ((Radius+stepR)<=MaxRadius)
        and ((Radius+StepR)>MinRadius) then Inc(Radius,stepR)
        else begin
         stepR := stepR * -1;
         Inc(Radius, stepR)
       end;

  until KeyPressed;
  if KeyPressed then Readkey;
  CloseGraph;
end.

[vlad19_94]

думаю, да)) спасибо))