Проход матрицы зизагом. Delphi

Posted by obzor under Delphi

Задача такая: необходимо вывести матрицу в одномерный массив проходя его зигзагом.
К примеру матрицу:
1 2 3 4
5 6 7 8
9 10 11 12
13 14 15 16
надо вывести в одномерный массив: 1 2 5 9 6 3 4 7 10 13 14 11 8 12 15 16.

eoln

Предложу лишь алгоритм

const
  n = 3;
var
  b: array[1..n, 1..n] of byte;
  i, j, k: byte;
begin
  for i := 1 to n do for j := 1 to n do b[ i, j] := (i-1)*n + j;

  for i := 1 to n do begin
    for j := 1 to n do write(b[ i, j]:3);
    writeln
  end;

  //алгоритм для квадратной матрицы
  for i := 1 to 2 * n - 1 do
  begin
    if i > n then k := n else k := i; //ограничение для строк
    if i mod 2 = 1 then //вверх
      for j := 1 + i - k to k do write(b[1 - j + i, j]:3)
    else //вниз
      for j := k downto 1 + i - k do write(b[1 - j + i, j]:3)
  end;

  readln
end.

При решении таких задач, имхо надо идти от частного к общему. А именно, сначала вывести одну диагональ, затем попытаться вывести все диагонали (при этом прослеживаем закономерность изменения координат). В итоге получаем краткую запись.

тема на форуме

Похожие статьи

• Поиск заданного числа в квадратной матрице
• Транспонирование целочисленной матрицы
• Заменить элементы матрицы, лежащие ниже главной диагонали
• Одномерный массив из элементов матрицы
• Задача на матрицы (Pascal)