создание треугольника по 3 данным сторонам

[rombik]

Всем привет еще раз)снова возник вопрос,только теперь в 2d
Как построить треугольник по 3-м данным сторонам(не обязательно прямоугольный).и каким инструментом нужно пользоваться(paintbox подойдет?)?

[Stilet]

Как построить треугольник по 3-м данным сторонам

По длинам? Ну я думаю можно, просто нужно будет просчитать углы между сторонами, и построить используя полярные координаты. подойдет любая канва, в том числе и PaintBox

Дописано: форума преобразования координат тут:http://ru.wikipedia.org/wiki/%D0%9F%...B0%D1%82%D1%8B
А получать угол можно по теореме косинусов.

[rombik]

ок,а покажите форму записи координат пожалуйста

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

[Sibedir]

var
  ... x1, ... : Integer

...

   x1:=Round (a*cos1);

Это надо будет переделать чуть меньше чем полностью

   x1:=a*cos1;
   y1:=a*sin1;
   x2:=c*cos1;
   y2:=c*sin1;
   PB1.Canvas.MoveTo (10,10);
   PB1.Canvas.LineTo(x1,y1);
   PB1.Canvas.MoveTo(10,10);
    PB1.Canvas.LineTo (x2,y2);
   PB1.Canvas.MoveTo(x1,y1);
   PB1.Canvas.LineTo(x2,y2);

sin1 и cos1 - это син. и кос. угла между сторонами a и b, а не угла от оси абцисс.

И в условии

if (a+b>c) and (a+c>b) and (c+b>a) then
 begin

не хватает одого end'а.

[rombik]

вот что понял переделал.но все равно нет желаемого результата.кто еще чем поможет?

[Sibedir]

   pp:=(a+b+c)/2;
   l:=sqrt(pp*(pp-a)*(pp-b)*(pp-c));
   sin1:=(2*l)/(a*b);
   cos1:=Sqrt(1-sin1*sin1);
   dx := 0;
   if c > b then begin // если угол гамма тупой
     dx := Round (a*cos1);
     cos1 := -cos1;
   end;
   x1:=Round (a*cos1);
   y1:=Round (a*sin1);
   x2:=Round (b);
   y2:=Round (0);
   PB1.Canvas.MoveTo (   10+dx,   10);
   PB1.Canvas.LineTo (x1+10+dx,y1+10);
   PB1.Canvas.LineTo (x2+10+dx,y2+10);
   PB1.Canvas.LineTo (   10+dx,   10);

[rombik]

спс большое))