Делфи. Рисование треугольника

[Skrip]

Здравствуйте! У меня возникла проблема с алгоритмом..
вот задание:
Решить задачу в соответствии с заданными вариантами и используя функции класса TCanvas нарисовать соответствующие геометрические фигуры
Даны три числа a,b,c. Необходимо определить, существует ли треугольник с такими длинами сторон
Необходимые вычисления я сделала о существовании треугольника. А вот графически его построить не могу.. Не могу сообразить как! Допустим, одну точку задаем в программе откладываем от нее сторону а. Т.о., получается уже две точки..! Как найти третью третью?

[Greblin]

Вам надо просто пересчитать координаты. Т.е. допустим у Вас вершины треугольника имеют координаты A(-1, 1), B(1, -1), C(2, 2). Вы берёте произвольную точку канвы и говорите, что она будет центром координат и задаёте масштаб, допустим m = 10. Координаты в Canvas считаются от левого верхнего угла. Пусть эта точка имеет координаты в Canvas (x, y). Тогда координаты вершин будут такими: A(x-1*m, y-1*m), B(x+1*m, y+1*m), C(x+2*m, y-2*m). Дальше просто подаёте эти точке нужной функции Canvas'а (в Вашем случае Polygon)

[Skrip]

хм.. я не поняла..! У меня же даны длины сторон..!а не координаты..! Мне надо каким-то образом вычислить координаты, чтобы уже по точкам построить!

[Serge_Bliznykov]

абсолютно ни на что не претендуя...
попробуйте такой код:

procedure TForm1.Button1Click(Sender: TObject);
var a, b, c : integer;
  t1, t2, t3 : TPoint;
  ugol : double;
begin
  a := 200;
  b := 200;
  c := 350;
  if (a+b>c) and (b+c>a) and (a+c>b) then begin
    Memo1.Lines.Append('может быть такой!');
    t1.x := 0;
    t1.y := 0;
    t2.x := a;
    t2.y := 0;

    ugol := arccos( (sqr(b) - sqr(a) - sqr(c)) / (2*a*c) );
    t3.x := - trunc(c* cos(ugol));
    if t3.x < 0 then begin
      // сдвигаем весь треугольник по оси X
      t1.x := t1.x - t3.x;
      t2.x := t2.x - t3.x;
      t3.x := t3.x - t3.x; // кстати, тут должен ноль получится...
    end;
    t3.y := trunc(c* sin(ugol));
    Canvas.Polygon([t1, t2, t3]);

    Memo1.Lines.Append('X1, Y1 = '+IntToStr(t1.x)+' , '+IntToStr(t1.y));
    Memo1.Lines.Append('X2, Y2 = '+IntToStr(t2.x)+' , '+IntToStr(t2.y));
    Memo1.Lines.Append('X3, Y3 = '+IntToStr(t3.x)+' , '+IntToStr(t3.y));
  end
  else
    Memo1.Lines.Append('НЕ Может Быть!');

end;