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

                              Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.


     x,y,x0,y0,xk,cw:integer;
     i:longint;
      BEGIN
      clrscr;
       writeln('введите начальные координаты точки');
        readln(x0,y0);
        writeln('введите абсциссу конечной точки ');
        readln(xk);
        {pi:=4*arctan(1);}
        {движение точки}
             grDriver:=detect;
           InitGraph(grDriver,grMode,'D:\Soft\BP\BGI');
             ErrCode:=GraphResult;
            if ErrCode=grOk then
              begin
                  x:=x0;
                  y:=y0;
  putpixel(x,y,15);{построение точки – начальное положение}
               end;
   {for i:=1 to 10000000 do {временная задержка}
             {begin end;}
             {readln;}
             repeat until keypressed;
              repeat
        putpixel(x,y,0); {стирание предыдущей точки}
                x:=x-1;{изменение координат}
putpixel(x,y,15); {построение точки в новом положении}
                for i:=1 to 100000 do
                 begin end;
               until x=xk;
         repeat until keypressed;
       CloseGraph;
   END.




5) Изобразить на экране круг, пересекающий с постоянной скоростью эк-
ран справа на лево параллельно его горизонтальной оси.
   program point;
   uses CRT,Graph;
   var


                                   94