Практикум по решению задач на ЭВМ. Тарова И.Н - 95 стр.

                     Практикум по решению задач на ЭВМ


       grDriver:integer;
       grMode :integer;
       ErrCode :integer;
   var x,y,x0,y0,xk,cw:integer;
      i:longint;
       BEGIN
       clrscr;
        writeln('введите начальные координаты точки');
          readln(x0,y0);
   writeln('введите абсциссу конечного центра круга');
          readln(xk);
         {движение круга}
              grDriver:=detect;
              InitGraph(grDriver,grMode,'D:\Soft\BP\BGI');
              ErrCode:=GraphResult;
             if ErrCode=grOk then
               begin
            x:=x0;y:=y0;{построение круга(с заливкой)}
                   SetColor(2);
                   Setfillstyle(1,green);
                   circle(x,y,10);
                   floodfill(x,y,2);{закраска}
                  { circle(x0,y0,10);{закрашенный круг}
               end;
              readln;
            repeat
                 setcolor(0);
                 setfillstyle(1,0);
                 circle(x,y,10); {стирание круга}
                 floodfill(x,y,0);
                 x:=x-1;{изменение координат круга}
                 setcolor(2);
                 setfillstyle(1,green);
circle(x,y,10); {построение круга в новом положении}
                 floodfill(x,y,2);
                for i:=1 to 100000 do
                  begin end;
                until x=xk;
           repeat until keypressed;
        CloseGraph;
   END.




                                       95