Треугольник с медианами!, SOS =) Опции

[mahmut]

Привет всем!

По заданным координатам вершин А, В и С треугольника найти его сумму длин медиан. Изобразить треугольник на экране с медианами.

Помогите чем нить!! Особенно как всё это дело изобразить не очень ясно!! С помощью класса TCanvas или как?!

Сообщение отредактировано: mahmut - 21.10.2005 11:28

[Atos]

формула есть:Длина медиана, проведённой к стороне c, равна половине квадратного корня из (2a^2 + 2b^2 - c^2)
А рисовать, действительно, проще всего по канве. (например, TImage или TPaintBox) Находишь координаты середин сторон, и просто проводишь шесть линий - треугольник с медианами готов

В который раз запоздал с ответом...

З.Ы. и главное, в трёхсотом сообщении...

Сообщение отредактировано: Atos - 21.10.2005 11:59

[mahmut]

формула есть:Длина медиана, проведённой к стороне c, равна половине квадратного корня из (2a^2 + 2b^2 - c^2)
А рисовать, действительно, проще всего по канве. (например, TImage или TPaintBox) Находишь координаты середин сторон, и просто проводишь шесть линий - треугольник с медианами готов

  В который раз запоздал с ответом...

З.Ы. и главное, в трёхсотом сообщении...

Да это то всё ясно...
Вот тут чаво то не очень работает! Не подскажите где я тута накосячил!! И ещё был бы рад примерчику хотя бы как нарисовать треугольник!!!

Код

procedure TForm4.Label12Click(Sender: TObject);

var
x1, y1, x2, y2, x3, y3: real;{корни уравнения}
s1, s2, s3: string[7];
code: integer;
ma,mb,mc: double;
dda,ddb,ddc: double;
Begin
        {ввод исходных данных из полей редактирования}
           val(edit1.text,x1,code);
        val(edit2.text,y1, code);
           val(edit1.text,x2,code);
        val(edit2.text,y2, code);
           val(edit1.text,x3,code);
        val(edit2.text,y3, code);
         dda := sqrt(((x2-x1)*(x2-x1))-((y2-y1)*(y2-y1)));
         ddb := sqrt(((x3-x2)*(x3-x2))-((y3-y2)*(y3-y2)));
         ddc := sqrt(((x1-x3)*(x1-x3))-((y1-y3)*(y1-y3)));

                str(dda,s1);
                str(ddb,s2);
                str(ddc,s3);
       Label1.caption:='Корни уравнения'
       +chr(13)+'dda= ' + s1
       +chr(13)+'ddb= ' + s2
       +chr(13)+'ddc= ' + s3;