Треугольник

[serega11]

С формы задаются длины трех сторон треугольника. Программа может посчитать его пар-ры - медиану, высоту, углы и т.д. Как по этим данным нарисовать треугольник в канвасе? Помогите пожалуйста)))

[eoln]

рисуем линию (0, 0) - (100, 100)
Form1.Canvas.MoveTo(0, 0);
Form1.Canvas.LineTo(100, 100);

[Stilet]

Вот смотри:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, FileCtrl, ExtCtrls;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    LabeledEdit3: TLabeledEdit;
    LabeledEdit4: TLabeledEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure LabeledEdit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.LabeledEdit1Change(Sender: TObject);
var a,b,x,y:integer;
begin
 x:=Width div 2;a:=x;
 y:=Height div 2-GroupBox1.Height;b:=y;
 //********** WITH **********
 with Canvas do  begin
   FillRect(BoundsRect);
   MoveTo(x,y);

   x:=x+round(cos(2*pi*StrToFloatDef(LabeledEdit3.Text,0)/360)*StrToFloatDef(LabeledEdit1.Text,0));
   y:=y+round(sin(2*pi*StrToFloatDef(LabeledEdit3.Text,0)/360)*StrToFloatDef(LabeledEdit1.Text,0));
   LineTo(x,y);

   x:=x+round(cos(2*pi*StrToFloatDef(LabeledEdit4.Text,0)/360)*StrToFloatDef(LabeledEdit2.Text,0));
   y:=y+round(sin(2*pi*StrToFloatDef(LabeledEdit4.Text,0)/360)*StrToFloatDef(LabeledEdit2.Text,0));
   LineTo(x,y);
   LineTo(a,b);

 end;
 //********** END WITH ****** {}

end;

end.

По двум длинам и углам между ними (первый угол относительно {0,0}) строится треугольник.
Эдиты 1,