Преобразование двумерной матрицы в одномерную

[shamrock]

Здравствуйте, подскажите, пожалуйста.

Задача состоит в том, чтобы преобразовать двумерную матрицу в одномерную так, чтобы коэффициенты первой (двумерной) записывались во вторую (одномерную) ЗИГЗАГОМ. Т.е. сначала будут записываться коээфициенты с индексами (1,1), (1,2), (2,1), (3,1), (2,2), (3,1) и т.д.

[Arigato]

Что-то не понял порядка. Покажите на рисунке.

[Sazary]

Ну вы бы еще белым цветом слово "зигзагом" написали, чтобы получше видно было )

Посмотрите вот тут, нечто похожее.
http://programmersforum.ru/showthread.php?t=51356

[Serge_Bliznykov]

(1,1), (1,2), (2,1), (3,1), (2,2), (3,1) и т.д.

что, один и тот же элемент ДВА РАЗА!?
короче, Arigato прав! Рисуйте матрицу и стрелочкой отмечайте Ваш "ЗИГЗАГ"...

[shamrock]

Короч, я всё напутала. Координаты вообще не те. Матрица 8*8

[Anatole]

Здесь задача на выбор индексов в определённом порядке. Это можно сделать например вот так:

program Zigzag;

const n =8;
Var
 i,j,k : byte;
 limit, napr : shortint;
 revers : boolean;

BEGIN
WriteLn('array A');
for i := 1 to n do
  begin
  for j := 1 to n do
    begin
    write(i:1,j:1,' ');
    end;
    writeLn;
  end;
writeln;
napr := -1;
k:=1; i:=1; j:=1;
limit := 1;
Revers := false;
While k <= (n+1)*n div 2 do
 begin
 Write ( i:1, j:1,' ');
 if ((i = limit) or (j = limit))  then
  begin
  if not revers then
    begin
    if (i = limit)
      then inc(j)
      else inc(i);
    Napr := - Napr;
    Revers := true;
    end else
    begin
    i :=i+napr;
    j := j-napr;
    revers := false;
    end;
  end  else
  begin
  i :=i+napr;
  j := j-napr;
  end;{else if i :=limit}
 if i+j>n+1 then limit := n;
 inc(k);
 end;

 limit:=n;
 if i > n then i := n;
 If j > n then j := n;
 revers := false;
 napr := -napr;

While k <= n*n do
 begin
 if ((i = limit) or (j = limit))  then
  begin
  if not revers then
    begin
    if (i = limit)
      then inc(j)
      else inc(i);
    Napr := - Napr;
    Revers := true;
    end else
    begin
    i := i+napr;
    j := j-napr;
    revers := false;
    end;
  end  else
  begin
  i := i+napr;
  j := j-napr;
  end;{else if i :=limit}
 Write (i:1, j:1,' ');
 inc(k);
 end;
END.

Алгоритм не оптимальный, его можно сократитть, и только имитирует наличие матриц. Если матрицы крайне необходимы, то добавите сами.

[Serge_Bliznykov]

если ещё актуально - вывод двухмерного матрицы "зигзагом" тут - http://www.programmersforum.ru/showp...92&postcount=8

[shamrock]

Спасибо, всем большое!