Задаётся длинна и угол

В чём: в паскале или Delphi ?

В Delphi

Желательно с использованием компонента TChart

Вытаскиваешь на форму TChart, два раза кликаешь по нему, в закладке "Series" жмешь Add, выбираешь "Arrow".
Опиши вырисовываемые вектора:

Код

type  TVector = record    Len, Angle : real;  end; var Vectors : array [0..5] of TVector =  ( (Len : 5; Angle : pi/3),    (Len : 6; Angle : 0.01),    (Len : 3; Angle : pi/2),    (Len : 4; Angle : pi/4),    (Len : 5; Angle : 0.5),    (Len : 8; Angle : pi/2) );

И на кнопку, к примеру, повесь обрабочик:

Код

procedure TForm1.Button1Click(Sender: TObject); var  x, y, x1, y1 : real;  i : integer; begin  x := 0;  y := 0;  Series1.Clear;  for i := Low(Vectors) to High(Vectors) do  with Vectors[i] do  begin    x1 := x + cos(Angle)*Len;    y1 := y + sin(Angle)*Len;    Series1.AddArrow(x, y, x1, y1, '', clRed);    x := x1;    y := y1;  end;  Series1.AddArrow(0, 0, x, y, '', clGreen);  Chart1.ClipPoints := False; end;

Спасибо!
Я конечно не профи в Delphi, но не будет такой же проблемы как и у меня, он строит вектор с нормальным углом (от 1 до 89) тоолько в 1 четверти и если задать другой угол то он строит не понять где и почему (не логично).

Да вроде не должно быть такого...
Только учти, что в sin и cos углы - в радианах.
Если хочешь, чтобы в Vectors указывались не радианы, а градусы, то эти 2 строчки измени так:

Код

x1 := x + cos(Angle*pi/180)*Len;    y1 := y + sin(Angle*pi/180)*Len;

Да, вроде и не должно быть, но есть я там уже вроде всё просмотрел. А начал заново с твоей помощью и вроде нормально строит, а туда вставляю есть . А радианы в градусы я перевожу с помощью DegtoRad. //Angle:= DegtoRad (Angle);
Только ты не могбы подсказать как мне сделать чтоб не против часовой угол откладывался (это вроде называется толи матрица поворота толи просто поворот)

Просто смени знак у угла:
Angle := DegtoRad (-Angle);

Спасибо
Вроде пока всё работает.
А как лучше сделать так чтобы каждый вектор бал подписан(ну тип 1,2,3... и т.д.)
Может с помощью Canvas что-нибудь придумать.

В цикле поменяй строчку:

Код

Series1.AddArrow(x, y, x1, y1, IntToStr(i), clRed);

И в конце или в начале процедуры добавь:

Код

Series1.Marks.Visible := True;  Series1.Marks.Transparent := False;

Transparent = False стоит т.к. если 3D стиль отключен, то прозрачность не работает... Поэтому если у тебя много векторов, то будет легче включить 3D стиль (два раза кликни по TChart, выбери закладку 3D), и сделать 1% в графе "3D", и поставить галочку Orthogonal. Тогда Series1.Marks.Transparent делай True.
Цвет и шрифт подписей - это Series1.Font.Color к примеру. Но лучше два раза опять тыкни по TChart, зайди в закладку Series, внутри неё выбери закладку "Marks" и там поиграйся как будет красивее...

Благодарю за помощь !!!