Движение шарика PascalABC.net

[Ice_]

Помогите с таким движением шарика. И объясните,пожалуйста, сам код

[Dvoishnik]

мне как так объясняли движение по прямой может подойдет

[Serge_Bliznykov]

Сообщение от Ice_

Помогите с таким движением шарика.

простите, а чем Вам помочь? Вы же, как вижу, ничего не делаете?

Сообщение от Ice_

И объясните,пожалуйста, сам код

Какой код? Который нужно написать вместо Вас?!

p.s. а вообще, всё очень просто.
пишете процедуру, которая выводит шарик в заданных координатах X,Y
добавляете в эту процедуру параметр, каким цветом выводить шарик - если выводится цветом фона, то шарик просто стирается.
дальше

задали начальное значение X,Y
в цикле
    вывели шарик в координатах X,Y
    сделали маленькую паузу
    стёрли шарик в координатах X,Y
    изменили X,Y на deltaX,deltaY (при изменении проверять, прошли ли контрольные точки и менять deltaX,deltaY на нужные направления)
повторять цикл, пока координаты X,Y не достигли конечной величины.

всё.

[phomm]

Может быть Вы готовы заказать выполнение работы за деньги?
Тогда обращайтесь, контакты в профиле и в подписи.

[Aleksandr H.]

TP7

Program Liniya;
Uses Graph,crt  ;
Var GrDriver, grMode: integer;
x,y:integer;
Begin;
GrDriver := Detect;
InitGraph (GrDriver, grMode,'');
SetColor (5);
x:=630;y:=310;
for x:=x downto 310 do
begin
     setcolor(5);
     circle(x,y,10);
     delay(3);
     setcolor(0);
     circle(x,y,10);
end;

for y:=y downto 10 do
begin
     setcolor(5);
     circle(x,y,10);
     delay(3);
     setcolor(0);
     circle(x,y,10);
end;

for x:=x downto 10 do
      begin
           setcolor(5);
           circle(x,y,10);
           y := y + 1;
           delay(8);
           setcolor(0);
           circle(x,y-1,10);
      end;

for y:=y to 450 do
      begin
           setcolor(5);
           circle(x,y,10);
           x := x+1;
           delay(8);
           setcolor(0);
           circle(x-1,y,10);
      end;
Readln;
CloseGraph;
End.