даны две точки. организовать движение из точки А в точку Б окружности!

[Wi1D]

Есть координаты точки А и точки Б!нужно заставить окружность двигаться из точки А в точку Б!ВСЁ!!!ПОМОГИТЕ КТО ЗНАЕТ СРОЧНО!

по сути мне важно как РАСЧИТАТЬ ТРАЕКТОРИЮ!!

[Stilet]

Вот тут алгоритм получения координат прямой
http://ru.wikipedia.org/wiki/Прямая

[Wi1D]

здорово....может кто поможет в компьютерный вид все же преобразовать???в википендии я и так нашел

[DomiNick]

Что значит "расчитать траекторию"..?
Длину пути? Формулу прямой?

А "заставить окружность двигаться из точки А в точку Б" можно по-разному...
Например так (черновой набросок):

Procedure TForm1.SpeedButton1Click(Sender: TObject);
Var x1, y1, x2, y2, a, n, i: Integer; dx, dy, x, y: Real;
Begin
x1:=30; // координата X точки А
y1:=30; // координата Y точки А
x2:=200; // координата X точки Б
y2:=330; // координата Y точки Б
a:=15; // радиус окружности
n:=100;  // шаг (за сколько перемещений достигнуть точки Б)
dx:=(x2-x1)/n; // приращение по X
dy:=(y2-y1)/n; // приращение по Y
x:=x1-dx;
y:=y1-dy;
For i:=0 To n Do
      Begin
      Image1.Canvas.FillRect(Image1.Canvas.ClipRect); // заливаем рисунок
      x:=x+dx; // изменяем координату X "текущей" точки
      y:=y+dy; //  изменяем координату Y "текущей" точки
      Image1.Canvas.Ellipse(Trunc(x)-a, Trunc(y)-a, Trunc(x)+a, Trunc(y)+a); // рисуем окружность
      Application.ProcessMessages; // "обновить" приложение
      Sleep(100); // пауза
      End;
End;

Лучше, конечно, делать таймером и.т.д. , но я просто принцип одного из вариантов написал...

[Wi1D]

мне нужно на ТУРБО ПАСКАЛЕ!

[KORN]

ну так доделай, тут не много... никакого уважения к людям... за тебя сделали, а ты еще и возникаешь...

[Wi1D]

Все спасибо!))ваша информация помогла!DomiNick мужик вообще)))