8класс Паскаль, графика

Двигаем шарик по экрану

Для того чтобы графический объект двигался по экрану, необходимо организовать повторение следующих команд:

1)     Нарисовать объект;

2)     Организовать временную паузу;

3)     Стереть объект;

4)     Изменить координаты объекта.

  Программа решения задачи может иметь вид:

 program dvigenie;

 uses graphabc;

 var x,y,r:integer;

begin

    x:=22; y:=22; r:=20; {начальные координаты объекта}

  while x<800 do     {повторение следующих действий}

    begin

     setBrushColor(clGreen); {задаем цвет объекта}

     circle(x,y,r);           {рисуем объект}

     Sleep (10);              {пауза в миллисекундах}

     setBrushColor(clWhite);  {выбираем цвет фона}

     setPenColor (clWhite);   {стираем (закрашиваем объект}

     circle(x,y,r);           {цветом фона)}

     x:=x+4;                  {изменяем координаты объекта}

   end;

 end.