как рассчитать вектор движения.

[Dvoishnik]

Сообщение от Аватар

От размеров формы. И эти иксы и игрики не должны за её пределы вываливаться, иначе масштабировать придется

не смогут они задаваться будут кликом мыши по форме.

[Аватар]

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

не смогут они задаваться будут кликом мыши по форме.

Тогда не надо y преобразовывать. Брать как есть и ни какого S не надо. И в формуле описка была

y:=Round(y1+(x-x1)*(y2-y1)/(x2-x1));

[Dvoishnik]

спасибо за формулу! как то так получилось.

 procedure dijenie(x1, //  координаты начальной точки x
   x2, //  координаты конечной точки x
   y1, //  координаты начальной точки y
   y2:integer // оординаты конечной точки y
  {yl,    координаты движения по оси y
   xl  координаты движения по оси x } );

   var
  yr,xr:integer; 
  Tim:boolean;

implementation

 procedure dijenie(x1,x2,y1,y2:integer);
  Begin
  if (x1=x2) and (y1=y2) then  //повторное точки
   begin
    tim:=False; // остановка таймера
    Exit;
   end;
  tim:=true;
  if abs(x1-x2) > abs(y1-y2)  then  //  по горизонтали или вртикали
   begin
    if x1<x2 then                  //вправо или влево
     xr:=xr+1 else
      xr:=xr-1;
    yr:=Round(y1+(xr-x1)*(y2-y1)/(x2-x1));
    if xr=x2 then tim:=False; // остановка таймера
   end
    else
     begin
      if y1<y2 then               //вверх или вниз
       yr:=yr+1 else
        yr:=yr-1;
      xr:=Round(x1+(yr-y1)*(x2-x1)/(y2-y1));
      if yr=y2 then tim:=False; // остановка таймера
     end;
  end;

буду очень рад если кто нибудь даст несколько советов по оптимизации всего этого.

[Dvoishnik]

sqr(х–х0)+ sqr(у–y0)=sqr(R) -формула окружности
(х1–х0)(х–х0)+(у1–у0)(у–у0)=sqr(R) - формула касательной
(x-x1)/(x2-x1)=(y-y1)/(y2-y1) - формула прямой которую вы давали
вот есть такой вопрос допустим я проведу отрезок (310,210) (330,300) как мне узнать когда моя окружность на своем пути на эту прямую? Т.Е. допустим остановим таймер когда отрезок коснется окружности. подскажите в каком направлении дальше двигаться. а то у меня очередной математический ступор((