бесконечная таблица заполнить натуральными числами по принципу змейки (Паскаль)

[ubun]

бесконечная таблица заполнена подряд идущим целыми положительными числами, начиная с левого угла по принципу змейки, как показано на рисунке


_________
Убедительнейшая просьба - давать название темы так,
чтобы название адекватно отражало суть решаемой задачи/проблемы.
эту тему я исправил.
Но в будущем неукоснительно соблюдайте это правило!

Модератор.

[Utkin]

Вы что там курите? Дайте мне такой же травы, что ли. Ядрены пассатижи, в чем вопрос-то? Ну заполнена бесконечная таблица целыми положительными числами и заполнена. Аллах с ней. Чего надо-то?

[ubun]

нужн код как это заполняется

[ubun]

код на паскале а числа идут до 1000

[Utkin]

То есть таблица с поста #4 перестала быть бесконечной? Или дальше она тупо не заполняется?
Для решения задачи достаточного одного цикла с шагом 9. Остальное - правильно распихать цифры по элементам таблицы.

[ubun]

а не покажете фрагментчик

[Utkin]

Цикл по i от 1 до 1000 с шагом 9
     матрица[i div 3, 0]=i
     матрица[(i div 3)+1, 0]=i+1
     матрица[(i div 3)+1, 1]=i+2
     матрица[(i div 3), 1]=i+3

Ну и так далее, до 9. Возможно где-то ошибся в коэффициентах. Но это не важно, главное сам принцип подхода к решению задачи.

[ubun]

спасибо как вас отблагодарить (нажимаю на весы и то говорить что должен отдать голос за кого то другого)

спасибо милый человек тебе большой поклон

[Utkin]

Мне будет большой плюс, если ты начнешь правильно и не спеша формулировать свои мысли. Правильно поставленный вопрос это уже половина ответа.
Попробуй подойти к решению с другой стороны. Сначала распиши координаты каждой точки от 1 до 9. А потом придумай как дописывать множитель (индекс увеличивающийся в цикле).

[TinMan]

Уткин, я что-то совсем не врубаюсь, что ты такое имел в виду.. При чем тут 9? Ты что ли хочешь замостить матрицу этим фрагментом? Мне кажется, ts совсем не то имел в виду..

Короче, вот код, который плодит змей любого размера. Только желательно позаботиться, чтоб эта таблица уместилась на экране. Я бы рекомендовал начать с n=200 и m=15.

const
  n= 1000;
  m= 32;  // must be m*m>=n

var
  a: array[1..m,1..m] of integer;
  i,j,l,x,y: integer;

begin
  for i:=1 to n do begin
    l:= Trunc(Sqrt(i-1));
    x:= i-l*l;
    if x>l then x:= l+1;
    y:= l*(l+2)+2-i;
    if y>l then y:= l+1;
    if Odd(l) then a[x,y]:= i else a[y,x]:= i
  end;

  for i:=1 to m do begin
    for j:=1 to m do write(a[i,j]:Trunc(Ln(n+0.5)/Ln(10)+2));
    writeln
  end;
  readln
end.

Задача сделать то же самое, но без массива, тоже интересная )). Уткин?..