змейка

[fkty]

очень долго уже пытаюсь сделать змейку вида:

0  1  5  6                                                                                                              
2  4  7 12                                                                                                      
3  8  11 13                                                                                                                
9  10 14 15

проблемы с вычислением зависимости i,j

program P4;
uses crt;
Var
  a:array[1..10,1..10] of integer;
  k,i,j,N,d,k1,d1,m,l,t:integer;
   Q:real;

Begin{program}
  ClrScr;
  writeln('введите размер матрицы');
  readln(N);

  for k:=0 to sqr(n)-1 do
  begin
    if k<=((n*(n+1))div 2)-1 then {если к в верхнем треугольнике}
    begin
      d:=trunc((1+sqrt(1+8*k))/2); {d-диагональ}
      t:=d-1;
      l:=k-((1+(d-1))*(d-1))div 2;

      if d mod 2<>0 then {если d не четная}
      begin
        m:=k-((d*(d-1))div 2);
        i:=d-m;
        j:=d-i+1;

      end
      else
      begin
        m:=k-((d*(d-1))div 2);
        j:=d-m;
        i:=d-j+1;

      end;
    end
    else
    begin
      k1:=(sqr(n)-1)-k;
      d1:=trunc((1+sqrt(1+8*k1))/2);
      d:=2*n-d1;
      t:=d-1;
      l:=k-((1+(d-1))*(d-1))div 2;
      if d mod 2<>0 then
      begin
        m:=k-((d*(d-1))div 2);
        i:=d-m;
        j:=d-i+1;
        i:=(n-1)-i;
        j:=(n-1)-j;

      end
      else
      begin
        m:=k-((d*(d-1))div 2);
        j:=d-m;
        i:=d-j+1;
        j:=(n-1)-j;
        i:=(n-1)-i;

      end;
    end;
    writeln('полученная матрица*:');
    writeln(a[i,j]);
  end;
  readkey;
end.{program}

[Serge_Bliznykov]

поищите по форуму заполнение массива змейкой

[BDA]

var
  n, i, j, d, k: integer;

begin
  readln(n);
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      k := i + j - 1;
      d := k - 1;
      write(k * d div 2 + d mod 2 * i + k mod 2 * j - (ord(d > n) * (d - n) + ord(k > n)) * (k - n) - 1, ' ');
    end;
    writeln;
  end;
  readln;
end.

Это результат многочисленных упрощений кода:

var
  n, i, j, d, k, s, h: integer;

begin
  readln(n);
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      k := i + j - 1;
      d := k - 1;
      s := (1 + d) * d div 2;
      if d > n then
        dec(s, (1 + d - n) * (d - n));
      h := j;
      if d >= n then
      begin
        dec(k, 2 * (d - n + 1));
        dec(h, d - n + 1);
      end;
      if d mod 2 = 0 then
        write(s + h - 1, ' ')
      else
        write(s + k - h, ' ');
    end;
    writeln;
  end;
  readln;
end.