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

[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 - 31.01.2011 1: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]

Делаем так:

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

[DarkWishmaster]

Вот сделал своим способом, показывает всё отлично, помогите упростить, а то слишком много букв.

║Program Olimp3; uses crt;                                                     
║const Nmax=10;                                                               
║type matrice=array[1..Nmax,1..Nmax] of integer;                               
║var     a:matrice; n:integer;     i,j,m,k,y,x,l:integer;                      
║        procedure Creare;                                                     
║         var i,j:integer;                                                     
║           begin                                                              
║           readln(n);                                                         
║            for i:=1 to n do                                                  
║             for j:=1 to n do begin                                          
║             write('a[',i,',',j,']='); read(a[i,j]);                          
║              end;                                                            
║           end;                                                               
║          procedure Afisare;                                                  
║           var i,j:integer;                                                   
║            begin                                                             
║            for i:=1 to n do begin                                            
║             for j:=1 to n do begin                                           
║              write(a[i,j], ' '); end; writeln;                               
║               end;      writeln; end;                                        
║                                                                              
║                                                                              
║begin clrscr;                                                                 
║  Creare;                                                                     
║  Afisare;                                                                    
║   i:=n; j:=1;                                                                
║        write(a[i,j],' ');                                                    
║     if n mod 2=0 then L:=1 else L:=n;                                        
║     while (i<>L) or (j<>L) do begin                                          
║      if j<>n then begin j:=j+1;   write(a[i,j],' '); {Right}               
║       x:=x+1;  k:=0;   end;                                                  
║       if j<>1 then while k<x  do begin   {Diagonal UP}                     
║         inc(k);                                                              
║         i:=i-1; j:=j-1;  write(a[i,j],' ');         end;                     
║       if i<>1 then begin i:=i-1;  write(a[i,j],' ');  {UP}                  
║        x:=x+1;   k:=0;  end;                                                 
║       if i<>n  then while k<x do begin {Diagonal Down}                       
║         inc(k);                                                              
║          i:=i+1; j:=j+1; write(a[i,j],' ');     end;                         
║         end;                                                                 
║       if (i=L) and (j=L) then                                                                                               
║        while (i<>1) or (j<>n) do begin                                       
║          if i<>1 then begin i:=i-1; write(a[i,j],' ');                       
║          x:=x-1; k:=0;      end;      {UP}                                  
║          if j<>1 then while k<x do begin                     {Diagonal UP} 
║           inc(k); i:=i-1; j:=j-1;  write(a[i,j],' ');                        
║                                    end;                                      
║             if j<>n then begin j:=j+1; write(a[i,j],' '); {RIGHT}          
║            x:=x-1; k:=0;       end;                                          
║           if i<>n then while k<x do begin {Diagonal Down}                    
║            inc(k);                                                           
║             i:=i+1; j:=j+1; write(a[i,j],' '); end;                         
║          end;                                                                
║   readln; readln;                                                            
║   end.                                                                       

у volvo там только для N=4

Сообщение отредактировано: DarkWishmaster - 2.02.2011 0:56