Цитата(Atos @ 21.10.2005 18:55)
формула есть:Длина медиана, проведённой к стороне 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;