Заполнение двумерного массива (Delphi 7)

[Gerard]

Привет всем.

Возникла запарка с задачей

Есть двумерный массив(StringGrid), при нажатии на кнопку он должен заполнится числами от 0 до n. Размерность массива может быть любая.

Проблема в том что заполнятся он должен по кругу пока не достигнет центра. Я пробовал писать отдельный код для заполнения каждой строки и столбца в отдельности, но это это явно не тот путь, так как при увеличении и уменьшении размера всё сбивается... В общем варианты у меня иссякли даже не знаю что придумать, надеюсь на вас...

[Serge_Bliznykov]

поиск по форуму:
заполнение по спирали


просто как вариант (Pascal, из собственных архивов своих программок..)

var
  a:array[1..100,1..100]of integer;
  i,imax,imin,j,jmax,jmin,k,m,n:integer;
begin
  write('Vvedite 4islo strok: ');
  readln(m);
  write('Vvedite 4islo stolbcov: ');
  readln(n);
  jmin:=1;
  jmax:=n;
  imin:=2;
  imax:=m;
  k:=0;
  repeat
    for j:=jmin to jmax do
    begin
      inc(k);
      a[imin-1,j]:=k;
    end;
    for i:=imin to imax do
    begin
      inc(k);
      a[i,jmax]:=k;
    end;
    dec(jmax);
    for j:=jmax downto jmin do
    begin
      inc(k);
      a[imax,j]:=k;
    end;
    dec(imax);
    for i:=imax downto imin do
    begin
      inc(k);
      a[i,jmin]:=k;
    end;
    inc(imin);
    inc(jmin);
  until k>=m*n;
  for i:=1 to m do
  begin
    writeln;
    for j:=1 to n do write(a[i,j]:3);
  end;
  readln;
end.

Если не справитесь самостоятельно - обращайтесь, помогу на Delphi переложить

[Gerard]

Честно говоря не понимаю как именно на дельфи это и делать. А на паскале выдает такое, хотя по плану "6" должна идти сразу после 5 в последнем столбце.

[Serge_Bliznykov]

Сообщение от Gerard

А на паскале выдает такое, хотя по плану "6" должна идти сразу после 5 в последнем столбце.

не подтверждаю.


программа на Pascal в архиве.
Проверьте...

что же касается Delphi...
Ну почему Вы ничего не хотите сделать самостоятельно?! Ну хотя бы выложите исходники проекта (в архиве, разумеется), который выдаёт StringGrid заданного пользователем размера...
А уж с заполнением я Вам помогу...