Правильный треугольник

[evgenij9241]

#include<stdio.h>
#include<conio.h>
#include<math.h>
int main(void)
{
float a,r,s,s1,p,k;
printf("vvedite storony trikutnuka i radius kola\n ");
scanf("%f%f",&a,&r);
p=(a+a+a)/2;
s=sqrt(p*(p-a)*(p-a)*(p-a));
s1=M_PI*(r*r);
k=s/s1;
printf("%f krygiv",k);
getch();
}

[Сварог]

Недавно столкнулся с точно таким же заданием. Текст задания: "Какова должна быть длина стороны правильного треугольника а, чтоб из него можно было вырезать n кругов радиуса r? " Программу необходимо написать в Delphi. Прошу Вашей помощи, заранее благодарен.
В чем проблема: Не понимаю, как это сделать математически, следовательно не знаю точно как писать код. Вообще есть наброски. Идея выразить всё через площади, т.е. цикл со счетчиком, который вырезает круги до тех пор пока площадь треугольника не станет равной суммарной площади всех кругов (но мне кажется, что это не правильно, т.к. геометрически не выходит) Вот мой код:

procedure TForm1.Button1Click(Sender: TObject);
var
n,r,a: double;
begin
n:=StrToFloat(Edit1.text);
r:=StrToFloat(Edit2.text);
a:=sqrt(4*(n*(Pi*sqr(r)))-sqrt(3));
Label3.Caption:=FloatToStr(a);
end;

[Сварог]

Либо аналогичная задача: "Сколько кругов заданного радиуса r можно вырезать из правильного трeугольника со стороной а? ". (Написать на Delphi) Помогите пожалуйста.