Массив зиг-загом, Надо пройти массив змейкой. Опции

[DarkWishmaster]

Привет.
Я пробовал вот таким алгоритмом, но он не пашет.
Надо пройти массив зиг-загом и вывести каждое число на экран.
Например:
INput: 4
1 2 3 4
5 6 7 8
9 10 11 12
13 14 15 16
Output: 13 14 9 5 10 15 16 11 6 1 2 7 12 8 3 4

 
║               i:=n; j:=1;                                                    
║               y:=1;     x:=-1;                                                
║               write(a[i,j],' ');                                             
║               while (i<>1) and (j<>1) do begin                               
║                  x:=x+2;                                                     
║                  j:=j+1; write(a[i,j],' ');                                  
║                        while (i<>i-x) and (j<>j-x) do begin                  
║                        inc(k);                                               
║                      i:=i-k; j:=j-k;                                         
║                           write(a[i,j],' ');                                 
║                       end;                                                   
║                    i:=i-1; write(a[i,j],' ');                                
║                     k:=0;                                                    
║                      inc(y);                                                 
║                     while (i<>i+y) and (j<>j+y) do begin                     
║                           inc(k);                                            
║                         i:=i+k;  j:=j+k;                                     
║                                write(a[i,j],' ');                            
║                          end;                       

вот так.
║

Сообщение отредактировано: DarkWishmaster - 30.01.2011 21:23

[volvo]

На самом деле все очень просто, не надо всех этих ужасных циклов. Делаем так:

const
  n = 4;
  a : array[0 .. n - 1, 0 .. n - 1] of integer =
  (
    ( 1,  2,  3,  4),
    ( 5,  6,  7,  8),
    ( 9, 10, 11, 12),
    (13, 14, 15, 16)
  );

var
  i, j, K, L : Integer;

begin
  for K := 2 * n - 2 downto 0 do
    for L := 0 to k do
    begin
      if k mod 2 = 1 then
      begin
        i := L; j := K - L;
      end
      else
      begin
        i := K - L; j := L;
      end;

      if (i < n) and (j < n) then
        write(a[j, n - 1 - i] : 4);
    end;
  writeln;
end.

, на выходе - то, что ты просил...

[DarkWishmaster]

Делаем так:

Всё гениальное просто! спасибо большое.