Двумерный массив: выборка чисел по спирали

[Rikoshet]

Помогите пожалуйста с задачкой

Из двумерного массива А[N*N] выбрать числа по спирали во внутрь, то есть начиная с А[1,1],А[1,2],A[1,3] и т.д., записав их в одномерный массив.

[VIK_aka_TOR]

похожее

еще одно похожее

заполнение по спирали

[Rikoshet]

uses crt;
const n=5;
var
  a:array[1..n,1..n]of integer;
  b:array[1..n] of integer;
  i,imax,imin,j,jmax,jmin,k,m:integer;
begin
Clrscr;
  randomize;
  writeln('Массив: ');
  for i:=1 to n do
    begin
      for j:=1 to n do
      begin
        a[i,j]:=random(51);
        write(a[i,j],' ');
      end;
      writeln;
    end;
  writeln;
  jmin:=1;
  jmax:=n;
  imin:=2;
  imax:=m;
  k:=0;
  repeat
    for j:=jmin to jmax do
    begin
      inc(k);
      a[imin-1,j]:=b[k];
    end;
    for i:=imin to imax do
    begin
      inc(k);
      a[i,jmax]:=b[k];
    end;
    dec(jmax);
    for j:=jmax downto jmin do
    begin
      inc(k);
      a[imax,j]:=b[k];
    end;
    dec(imax);
    for i:=imax downto imin do
    begin
      inc(k);
      a[i,jmin]:=b[k];
    end;
    inc(imin);
    inc(jmin);
  until k>=n*n;
  for k:=1 to n do
  begin
    write(b[k]:3);
  end;
  readln;
end.

Подскажите, что не так?

[Serge_Bliznykov]

a[imin-1,j]:=b[k];

во-первых, вам же нужно ИЗ двухмерного записать в ОДНОмерный.
А Вы откуда берете и куда пишете?! (наоборот)

во-вторых,

 a:array[1..n,1..n]of integer;
  b:array[1..n] of integer;

рекомендую посчитать, сколько элементов будет в массиве A и какого размера должен быть массив B, чтобы они все в него поместились..


в-третьих, преположите, чему будет равно значение imax после этой строчки кода:

  imax:=m;

[Rikoshet]

uses crt;
const n=5;
var
  a:array[1..n,1..n]of integer;
  b:array[1..n*n] of integer;
  i,imax,imin,j,jmax,jmin,k,m:integer;
begin
Clrscr;
  randomize;
  writeln('Массив: ');
  for i:=1 to n do
    begin
      for j:=1 to n do
      begin
        a[i,j]:=random(51);
        write(a[i,j],' ');
      end;
      writeln;
    end;
  writeln;
  jmin:=1;
  jmax:=n;
  imin:=2;
  imax:=n;
  k:=0;
  repeat
    for j:=jmin to jmax do
    begin
      inc(k);
      b[k]:=a[imin-1,j];
    end;
    for i:=imin to imax do
    begin
      inc(k);
      b[k]:=a[i,jmax];
    end;
    dec(jmax);
    for j:=jmax downto jmin do
    begin
      inc(k);
      b[k]:=a[imax,j];
    end;
    dec(imax);
    for i:=imax downto imin do
    begin
      inc(k);
      b[k]:=a[i,jmin];
    end;
    inc(imin);
    inc(jmin);
  until k>=n*n;
  for k:=1 to n*n do
  begin
    write(b[k]:3);
  end;
  readln;
end.

Исправил, но наверно не все, и возможно неправильно :3

[Rikoshet]

Ошибку нашел, все работает, Спасибо Большое!

[Serge_Bliznykov]

молодец. квест успешно пройден. поздравляю!

p.s. чисто косметически, для вывода исходной матрицы на экран я бы использовал форматированный вывод, например, так:

      for j:=1 to n do
      begin
        a[i,j]:=random(51);
        write(a[i,j]:4,' ');
      end;

это, безусловно, не имеет значения, просто тогда матрица получается "ровной"