Алгоритм преследования

[Johnson]

Здравствуйте, уважаемые!
Помогите с алгоритмом нахождения точки преследованя на системе координат.
По рисунку:
Точка А, точка В - известные координаты. Расстояние D - известное значение. Надо найти координаты точки С, которые нужно вычислить по вектору от точки А до точки В на расстоянии D до точки В. Значение любой из координат может принимать как положительное, так и отрицательное значение для обоих начальных точек.
Не обазательно даже показывать код на дельфи, мне нужен только алгоритм. Но и от кода не откажусь
Заранее благодарен!

[-LeV-]

var
x,x0,y,y0: integer;
c,k,xres,yres: real;
begin
x:= 5;
y:= 5;
x0:= 1;
y0:= 1;
c:= 2;
k:= c/sqrt((x-x0)*(x-x0)+(y-y0)*(y-y0));
xres:= x*k;
yres:= y*k;
writeln('C','(',xres,',',yres,')');
readln;
end.

Как-то так
x,y - координаты A, x0,y0 - координаты B, c - расстояние

[DeKot]

Разница xA и xB, yA и yB дает два катета - dxAB и dyAB. Через arctg определяем угол а. Далее обратная задача - по D и углу а находим катеты
dxBC и dyBC и далее определяем координаты xC И yC.

[-LeV-]

У меня проще))