Гексагональная раскладка

[niziriska]

Ребят! срочно помощь нужна!!!
реализация такой рограммы..
Сколько кругов радиуса r разместиться в круге радиуса R

алгоритм придумали. вроде логика правильная.. но от с реализацие....


в общем думаем будет 2 цикла, в центр большого кладем круг малый. номер шага +1 счетчик кругов +1. сравниваем не больше ли r>R если нет то по гексагональной раскладке еще 6 кругов добавляем вокруг первого. номер шага + 2 счетчик кругов +2*3
далее все эт продолжается пока r*(количесво шагов) не станет больше радиуса большего круга. и вычитаем последний шаг(все его круги)


вот! кто нибудь помогите плиз!

[niziriska]

Учитесь!

program radius;
uses crt;
var k,s,r,r2,dr,m: real;i,n:integer;
begin

 readln(r);
 readln(r2);
 n:=1; k:=1; s:=1;
 while (r+(s-1)*2*r)<=r2 do
   begin
     s:=s+1;
     n:=n+1;
     k:=k+(6*n-6);
   end;
 begin
   if n mod 2 = 0
   then
     begin
      m:=sqrt(sqr((s-1)*2*r)-sqr((n-1)*r));

      for i:=1 to n do

      begin
        dr:=sqrt(sqr(r*(2*i-1))+sqr(m));
           if dr+r <=r2
            then k:=k+1
            else writeln('k=',k);
      end;
      end
   else
   begin
      m:=sqrt(sqr((s-1)*2*r)-sqr((n-1)*r));
      for i:=1 to n do
       begin
        dr:=sqrt(sqr(2*r*i)+sqr(m));
        if (dr+r) <= r2
          then k:=k+1
          else writeln('k=',k);
       end;

   end;
 end;
writeln('s=',s);
writeln(n);
readln;
readln;
end.