Графика, очень срочно

[Guest]

Здравствуйте! Помогите пожалуйста... Очень срочно. Нужно в окружность вписать равносторонний треугольник. и чтоб он со спинэдитом был связан. вот код программы, круг я нарисовала все работает а вот треугольник не получается =((((

 

[lazybiz]

Снежка89
Я извиняюсь, а Вас не Ангелина зовут!?

 

[Dock1100]

procedure TForm36.Button1Click(Sender: TObject);
var i,r,r_const,x,y,x1,y1,x2,y2,x3,y3,n:integer;
begin
paintbox1.Canvas.FillRect(paintbox1.ClientRect);
r:=50; //радиус первого круга
r_const:=r;
n:=3;//количесто (окружностей+треугольников)/2
for i:=1 to n do
begin
r:=r div i;
x:=r_const-r;
y:=r_const-r;
x1:=r;
y1:=0;
y2:=r+r div 2;
y3:=y2;
x2:=r-round(r*sqrt(3/4));//*sqrt(3/4) берем из формулы x*x+y*y=r*r, подставив в неё х=r*r/4 получим что y=r*sqrt(3/4)
//sqrt - арифметический корень
x3:=r+round(r*sqrt(3/4));
paintbox1.Canvas.Ellipse(x,y,r*2+x,r*2+y);
paintbox1.Canvas.MoveTo(x+x1,y+y1);
paintbox1.Canvas.LineTo(x+x2,y+y2);
paintbox1.Canvas.LineTo(x+x3,y+y3);
paintbox1.Canvas.LineTo(x+x1,y+y1);
end;
end;

Результат:



ЗЫ Что означает К (на картинке)?

 

[lazybiz]

Что означает К

Я думаю это глубина вложения.

 

[Dock1100]

Ну тогда по идее это моё "n".

 

[Guest]

Снежка89
Я извиняюсь, а Вас не Ангелина зовут!?

Нет, Меня зовут Снежана =)

Добавлено: СПАСИБО ОГРОМНОЕ =)))))))))))))))

 

[lazybiz]

Пожалуйста. Хотя я вроде ни чем и не помог....