упорядоченное построение окружностей(Delphi)

[FrankyKaup]

Нужно нарисовать "сетку" из окружностей в определенном порядке (как приведено на рисунке). Мой код почему-то рисует только правый нижний круг( В чем ошибка кода, подскажите пожалуйста!

type
  TForm1 = class(TForm)
    Image1: TImage;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
var
L,Nx,Nat:integer; //L-это размерность Image1(на сколько частей делиться ось X, т.е относительные единицы измерения - это я сделал для масштаба), Nx – это кол-во шаров на одной стороне, Nat – это сколько всего шаров.
k,Center,Rg: real; //k-это единица измерения в данном масштабе, то есть вся ширина Image1 поделенное на L, измеряется соответственно в пикселях(на сколько я понимаю:). Center – это координата центра 1-го шарика в относительных единицах. Rg-радиус.
Xcentr,Xpix,Ycentr,Ypix:real;
X1,Y1,X2,Y2:integer;

procedure Risovanie;
var i:integer;
begin
Nx:=StrToInt(Form1.Edit1.Text);       //считываем из Edit’а кол-во шаров на стороне
L:=StrToInt(Form1.Edit2.Text);        // считываем размерность
Center:=0.5*(L-Nx)+0.5;                   //высчитываем координату центра 1-го шара 
Nat := Nx*Nx;                                   //всего шаров
k:= Form1.Image1.ClientWidth/L;  //единица измерения в пикселях
Rg := 0.45*k;	//радиус в пиклелях
For i:=0 to Nat-1 do
  Xcentr:= (i mod Nx) + Center;      //координата центра i-го шара в относит. координатах
  Xpix:= Xcentr*k;	//координата цетра i-го шара в пикселях
  Ycentr:= i div Nx + Center;           
  Ypix:= Ycentr*k;
  X1:=round(XcentrAd-Rg);		//координаты описываемого прямоугольника
  Y1:=round(YcentrAd-Rg);
  X2:=round(XcentrAd+Rg);
  Y2:=round(YcentrAd+Rg);
  Form1.Image1.Canvas.Ellipse(X1,Y1,X2,Y2);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Risovanie;
end;
end.

Вот что должно получиться если L=10, а Nx=6

[FrankyKaup]

Должна получиться квадратная "решетка" из окружностей, стоящих рядом друг с другом, причем по центру Image. Если L=Nx, то всё пространство Image заполняется шарами.

[SNUPY]

не вникал в код... но что то мне подсказывает.. что:

procedure Risovanie;
var i:integer;
begin
Nx:=StrToInt(Form1.Edit1.Text);       //считываем из Edit’а кол-во шаров на стороне
L:=StrToInt(Form1.Edit2.Text);        // считываем размерность
Center:=0.5*(L-Nx)+0.5;                   //высчитываем координату центра 1-го шара 
Nat := Nx*Nx;                                   //всего шаров
k:= Form1.Image1.ClientWidth/L;  //единица измерения в пикселях
Rg := 0.45*k;	//радиус в пиклелях
For i:=0 to Nat-1 do
  begin
  Xcentr:= (i mod Nx) + Center;      //координата центра i-го шара в относит. координатах
  Xpix:= Xcentr*k;	//координата цетра i-го шара в пикселях
  Ycentr:= i div Nx + Center;           
  Ypix:= Ycentr*k;
  X1:=round(XcentrAd-Rg);		//координаты описываемого прямоугольника
  Y1:=round(YcentrAd-Rg);
  X2:=round(XcentrAd+Rg);
  Y2:=round(YcentrAd+Rg);
  Form1.Image1.Canvas.Ellipse(X1,Y1,X2,Y2);
  end;
end;

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

еще через пару минут....
чувствуется вы раньше на бейсике работали =))))

[FrankyKaup]

Спасибо, SNUPY, за помощь! Действительно проблема была в этом! А что значит на 2 цикла разбить, Вы имеете ввиду посчитать координаты, записать их в массив, а во втором цикле нарисовать?

По поводу Бэйсика - в яблочко!=))