заполнение по спирали снизу слева(pascal)

[POCOMAXA]

помогите разобраться, каким образом можно заполнить двумерный массив[n строк, m столбцов] по спирали цепочкой цифр от 1 до n*m. начинать заполнение нужно внутрь против часовой стрелки, с левой нижней ячейки.
напишите кто знает сам алгоритм заполнения. Заранее спасибо

[Poma][a]

А что говорит поиск?
Гляньте тут
Или в низу похожие темы.

[POCOMAXA]

А что говорит поиск?
Гляньте тут
Или в низу похожие темы.

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.

нашел только похожую, здесь заполнение идет с верхнего левого и по часовой, кто бы подсказал, как начать заполнять с нижнего левого и против часовой. помогите изменить выделенный кусочек

[BDA]

У меня есть решение. Оно менее красиво, зато свое, родное

const
    n0 = 360;(*максимальный размер матрицы, при большем размере программа занимает в памяти больше 16 мб, что недопустимо*)
    m0 = 360;
 
type
    mas = array[1..n0, 1..m0] of 0..n0 * m0;
 
var
    a : mas;
    n, m, i, j : longint;
    s : string;
 
{1-right
2-down
3-left
4-up} (*направление для заполнения*)
 
procedure print(z : byte); (*выводит матрицу на экран*)
begin
    for i := 1 to n do
    begin
        for j := 1 to m do
            write(a[i, j]:z);
        writeln;
    end;
end;
 
procedure install(var a:mas;i,y,x,c:longint); (*процедура, заполняющая матрицу*)
begin
    if i <= n*m then
        case c of
        1:
            if (x + 1 <= m) and (a[y, x + 1] = 0) then
            begin
                a[y, x + 1] := i;
                install(a, i + 1, y, x + 1, c);
            end else install(a, i, y, x, 4);
        2:
            if (y + 1 <= n) and (a[y + 1, x] = 0) then
            begin
                a[y + 1, x] := i;
                install(a, i + 1, y + 1, x, c);
            end else install(a, i, y, x, 1);
        3:
            if (x - 1 >= 1) and (a[y, x - 1] = 0) then
            begin
                a[y, x - 1] := i;
                install(a, i + 1, y, x - 1, c);
            end else install(a, i, y, x, 2);
        4:
            if (y - 1 >= 1) and (a[y - 1, x] = 0) then
            begin
                a[y - 1, x] := i;
                install(a, i + 1, y - 1, x, c);
            end else install(a, i, y, x, 3);
        end;
end;
 
begin
    fillchar(a, sizeof(a), 0);
    readln(n, m);
    install(a, 1, n, 0, 1);
    str(n * m, s);
    print(length(s) + 1); (*параметр указывает на место, отведенное для каждого числа*)
    readln;
end.

[MadHamster]

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

помогите изменить выделенный кусочек

  repeat
    for j:=jmin to jmax do
    begin
      inc(k);
      a[imax,j]:=k;
    end;
    dec(imax);
    for i:=imax downto imin do
    begin
      inc(k);
      a[i,jmax]:=k;
    end;
    dec(jmax);
    for j:=jmax downto jmin do
    begin
      inc(k);
      a[imin,j]:=k;
    end;
    inc(imin);
    for i:=imin to imax do
    begin
      inc(k);
      a[i,jmin]:=k;
    end;
    inc(jmin);
  until k>=m*n;

Как-то так.

[POCOMAXA]

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

У меня есть решение. Оно менее красиво, зато свое, родное

мне нужно сделать с помощью циклов. но все равно спасибо

[POCOMAXA]

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

  repeat
    for j:=jmin to jmax do
    begin
      inc(k);
      a[imax,j]:=k;
    end;
    dec(imax);
    for i:=imax downto imin do
    begin
      inc(k);
      a[i,jmax]:=k;
    end;
    dec(jmax);
    for j:=jmax downto jmin do
    begin
      inc(k);
      a[imin,j]:=k;
    end;
    inc(imin);
    for i:=imin to imax do
    begin
      inc(k);
      a[i,jmin]:=k;
    end;
    inc(jmin);
  until k>=m*n;

Как-то так.

runtime error 201, что-то здесь не учтено.

[MadHamster]

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

runtime error 201, что-то здесь не учтено.

imin:=2;

Поменяйте на

imin:=1;

[POCOMAXA]

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

imin:=2;

Поменяйте на

imin:=1;

Спасибо. Работает.