Как построить окружность по трем точкам?

Чтоб построить окружность необходимо найти ее центр и радиус. Воспользуйтесь готовым классом TTriangle для расчета центра и радиуса описанной около треугольника окружности, исходный код которого представлен на странице "Как рассчитать все параметры треугольника?"

procedure TForm1.Button1Click(Sender: TObject);
Var T: TTriangle;
begin
   T := TTriangle.Create( 0, 0, 1, 0, 1, 1);
   PaintBox1.Canvas.Ellipse(T.CenterOut.X - T.RadiusOut, 
                            T.CenterOut.Y - T.RadiusOut,
                            T.CenterOut.X + T.RadiusOut, 
                            T.CenterOut.Y + T.RadiusOut);
end;

Последние комментарии

  • cialis 10 mg 4 tablet register http://viagra-withoutdoctors.com - viagra without a doctor prescription usa cialis 10mg name viagra without a doctor prescription - cialis tadalafil cheapest online guestbook.php?sn= cheap cialis pills online
  • Красивые девушки любят позировать рядом с дорогими автомобилями http://hddevki.ru/uploads/posts/2016-05/medium/1462333024_image-712.jpg фото сильный секс на кровате, порно развлечения богатых женщин бесплатно фото http://hddevki.ru/
  • Услуги для тех, кто пропустил 6115172 купить больничный лист

Счетчики