треугольники и окружности

@sa1234 · Регистрация: 08.12.2011

Author24 — интернет-сервис помощи студентам

привет всем,вот столкнулся с проблемой,дано задание,''дана сторона равностороннего треугольника.Найти площадь этого треугольника,его высоту,радиусы вписанной и описанной окружностей.ИЗОБРАЗИТЬ ТРЕУГОЛЬНИК И ОКРУЖНОСТИ НА КООРДИНАТНОЙ ПЛОСКОСТИ.
проблема в том что я не знаю как изобразить треугольник и окружности на координатной плоскости,вот сам код программы:

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,math, ExtCtrls;
 
type
  TForm1 = class(TForm)
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    Button1: TButton;
    LabeledEdit3: TLabeledEdit;
    LabeledEdit4: TLabeledEdit;
    LabeledEdit5: TLabeledEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
   r1,r2,a,s,h :real;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
a:=strToFloat(LabeledEdit1.text); //сторона треугольника
r1:=a/(sqrt(3));//описанная окружность
labelededit2.text:=floattostrf(r1,fffixed,8,3);
r2:=a/2*sqrt(3);
labelededit3.text:=floattostrf(r2,fffixed,8,3);
s:=((sqrt(3))/4)*(sqr(a));
labelededit4.text:=floattostrf(s,fffixed,8,3);
h:=a*(sqrt(3))/2;
labelededit5.text:=floattostrf(h,fffixed,8,3);
end;
 
end.

помогите. скажите как изобразить это???

@olegoner · 08.06.2012, 19:56

convas
x:=(x0+R)*cos(a), где a - угол в радианах
y:=(y0+R)*sin(a), где a - угол в радианах
x0,y0 - центр окружности
x,y - коардинаты точки которую надо нарисовать

@olegoner 162 / 76 / 21 Регистрация: 22.04.2012 Сообщений: 221
	08.06.2012, 19:56	2
	convas x:=(x0+R)cos(a), где a - угол в радианах y:=(y0+R)sin(a), где a - угол в радианах x0,y0 - центр окружности x,y - коардинаты точки которую надо нарисовать 1