Змейка без двумерных массивов Pascal

[Street-Striker]

Пожалуйста помогите срочно!!!
Вывести числа от 1 до N^2 без использования массивов и двумерных массивов следующим образом (N вводится с клавиатуры, например N=4):
1 3 4 10
2 5 9 11
6 8 12 15
7 13 14 16
Не понимаю как это можно решить без двумерных массивов!

[Stilet]

Не понимаю как это можно решить без двумерных массивов!

А как с двумерными массивами знаешь?

[Street-Striker]

Знаю конечно.

[Stilet]

Ну вот ты там заполняешь массив по координатам. Так? Замени заполнение массива переводом курсора в консоли и получишь работу без массива

[Street-Striker]

Извините, конечно, но я вас не понял.
Пожалуйста, измените мой код так, как вы написали.
Вот мой оптимизированный код:

var n,i,j,l,k: integer;
a: array [1..100,1..100] of int64;

procedure Q;
begin
k:=k+1;
a[i,l-i+1]:=k
end;

begin
read(n);
for l:=1 to 2*n-1 do
if l>n then
if odd(l) then for i:=l-n+1 to n do Q
else for i:=n downto l-n+1 do Q
else if odd(l) then for i:=1 to l do Q
else for i:=l downto 1 do Q;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j],' ');
writeln
end
end.

[Stilet]

Вот что я имел ввиду:

uses crt;
var n,i,j,l,k: integer;

procedure Q;
var x,y:integer;
begin
k:=k+1;
x:=i*5;
y:=(l-i+1);
gotoxy(x,y); write(k:5);
end;

begin
n:=5;   clrscr; k:=1;
for l:=1 to 2*n-1 do
  if l>n then
    if odd(l) then for i:=l-n+1 to n do Q
    else for i:=n downto l-n+1 do Q
  else if odd(l) then for i:=1 to l do Q
  else for i:=l downto 1 do Q;
  readln;
end.

Только это классичесий паскаль, а у тебя АБЦ что ли?

[Street-Striker]

У меня Free Pascal/Pascal ABC

Спасибо. А разве у меня под Turbo Pascal не подходит?

а, ну да, int64-Free Pascal' евский, не относится к Turbo Pascal

[BDA]

Ну с переводом каретки скучно
Интереснее вывести формулу, зависящую от координат:

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

Вот неупрощенная формула.
Можно ее попробовать поупрощать:

1) 1 + k * (k + 1) div 2 - ord(k > n) * (k - n) * (k - n + 1) + (k mod 2) * j + ((k + 1) mod 2) * i - ord(k >= n) * (k - n + 1)
2) 1 + k * (k + 1) div 2 - ord(k > n) * sqr(k - n + 1) + (k mod 2) * j + ((k + 1) mod 2) * i - ord(k = n)
3) ord(k <> n) + k * (k + 1) div 2 - ord(k > n) * sqr(k - n + 1) + (k mod 2) * j + ((k + 1) mod 2) * i

[Stilet]

У меня Free Pascal/Pascal ABC

Так не бывает )
Либо у тебя Фри, либо Абэцэйка - выбери что-то.
Так то мой пример что там что там не сработает, но смысл я надеюсь донес.

Интереснее вывести формулу, зависящую от координат

Ну дык надо твой пример внести в наш FAQ

[BDA]

Сообщение от Stilet

Ну дык надо твой пример внести в наш FAQ

Ну Вы уже внесли
PS Чуть поправил там код