Построить треугольник по координатам его вершин и описать около него окружность.

[Lion]

Люди добрые помогить пожалуйста сделать программу в Turbo Delphi 2006.vcl forms application.Я уже неделю мучаюсь сделать эту задачу ничего не получается,мне надо правда сдавать её уже завтра,кто нибудь попробует её сделать до завтра, до 13.00???
я уже все формулы перерыл ну чё то тугодумне судите строго.
труегольник строю и всё замыкается,а как описать окружность никак.
окружность пробовал рисовать через canvas.arc но не могу додумать какие точки надо туда вписывать.

[B_N]

http://img91.imageshack.us/my.php?image=graphic1ho4.jpg
Появились идеи?
Можно ещё решить систему трёх квадратных урвнений.

[puporev]

Если треугольник существует, то:
1.Находим уравнения двух сторон.
2. Находим уравнения нормалей к этим сторонам, проходящих через середины сторон.
3.Решаем систему из двух уравнений с двумя неизвестными-находим центр окружности.
4.Находим радиус-расстояние от центра до любой вершины.
5.Рисуем окружность.
Все формулы в школьном учебнике геометрии, или в любом учебнике по аналитической геометрии.

[Lion]

Да это понятно что формулы есть все,а как это организовать в делфи.
Там получаются действительные числа а нужно целые для описания окружности.Может кто нибудь попробует её сделать,плииззз
Напишите код

[puporev]

При описании координат точек применяется функция Round, например
x+round(sin(x))-это целое количество пикселей.

[Lion]

Сообщение от puporev

При описании координат точек применяется функция Round, например
x+round(sin(x))-это целое количество пикселей.

можешь её сделать? я её не могу сделать хоть убей.

[puporev]

Я то могу ее сделать, но учить вместо тебя геометрию, которую подзабыл, полдня считать координаты за тебя не собираюсь, мне это не интересно.

[Lion]

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
 var  pol:array[1..3]of TPoint;
      xc,yc,x1,x2,x3,y1,y2,y3: integer;
begin
 x1 :=StrToInt(edit1.Text) ;
 y1 :=StrToInt(edit2.Text);
 x2 :=StrToInt(edit3.Text);
 y2 :=StrToInt(edit4.Text);
 x3 :=StrToInt(edit5.Text);
 y3 :=StrToInt(edit6.Text);
 if not((x1<1) or (y1<1) or (x2<1) or (y2<1) or (x3<1) or (y3<1) or (x1>400) or (y1>400) or (x2>400) or (y2>400) or (x3>400) or (y3>400)) then
  begin
    label7.Visible:=false;
    xc:=round(x1+(x3-x1)/2);
    yc:=round(y2+(y3-y2)/2);
    Canvas.Ellipse(x1,y2,x3,(2*yc-(y2)+(y3-y2)));
    pol[1].x :=x1;
    pol[1].y :=y1;
    pol[2].x :=x2;
    pol[2].y :=y2;
    pol[3].X :=x3;
    pol[3].Y :=y3;
    Canvas.Polygon(pol); 


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

[Serge_Bliznykov]

ну вы поймите, что вам нужно посчитать для начала центр треугольника!!!! Как - вам рассказал Puporev (смотрите выше...)
То, что Вы написали - никуда не годится. К сожалению, это не так просто, как хотелось бы! ;-(

[Serge_Bliznykov]

Кстати, есть такая книжка:
Название: Программирование в алгоритмах
Автор: Окулов С.М.
Издательство: Бином
Год: 2002
Страниц: 341

она была в сети в эл.виде..
например, попробуйте глянуть тут...


Там есть все нужные Вам алгоритмы и формулы (только прийдётся немножко подумать, как их применить).
вот, цитирую оттуда:
как проверить, можно ли построить треугольник.
Даны три отрезка а, b, с. Для существования треугольника с
такими длинами сторон требуется одновременное выполнение
условий (а+Ь>с), (Ь+с>а) и (а+с>Ь).
<...>
Три перпендикуляра к сторонам треугольника, проведенные через их середины, пересекаются в одной точке, служащей центром описанного круга. В тупоугольном треугольнике эта точка лежит вне треугольника, в остроугольном — внутри, в прямоугольном — на середине гипотенузы.
Его радиус вычисляется по формуле
R=(a*b*c)/(4*SQRT(p*(p-a)*(p-b)*(p-c))).
где p=(a+b+c)/2