Заполнение квадрата 6х6 по спирали

[artacer]

Заполните квадрат 6 на 6 по спирали в направлении часовой стрелки от наружной части квадрата к внутренней цифрами от 9 до 0 (циклически) с последовательно меняющимися цветами.

Напомню, массивами пользоваться запрещено. Даже одномерными.
Чисто циклы и модуль CRT. Таково задание... И простите, если уже было, я искал, честно, везде только с массивами... Если уже есть, киньте ссылку пожалуйста

[mss]

Ты не поверишь - без понятия "массив" эта задача попросту нерешаема)
Ибо даже прямой доступ к экранному видеобуферу есть ничто иное как обращение к массиву.

[artacer]

Уважаемый, я вас конечно понял, но и вам бы следовало понять меня, про какие именно массивы я говорил.

[Serge_Bliznykov]

берите любой из найденных Вами алгоритмов.
заменяйте A[i,j] := K
на
GotoXY(J, I);
TextColor(K);
Write(K);

и всё. задача решена!

[mss]

следовало понять меня, про какие именно массивы я говорил

А мы тут в догадайки играем, да ?)

[Serge_Bliznykov]

вот решение с массивом (классика, так сказать..)

{Заполнить матрицу по спирали последовательными числами
от левого верхнего угла и по часовой стрелке}

Const SizeMatrix = 10;

var a:array[1..SizeMatrix,1..SizeMatrix] of byte;
 x,y,n, K :integer;

 begin
 y:=1; x:=1; n:= SizeMatrix;
 K := 1;
 repeat
  dec(x);
  while x<n do
     begin inc(x); a[x,y]:=K; inc(K) end;

  while y<n do begin inc(y); a[x,y]:=K; inc(K); end;

  while x>(SizeMatrix-n+1) do begin dec(x); a[x,y]:=K;; inc(K) end;


  while y>(SizeMatrix-n+2) do begin dec(y); a[x,y]:=K; inc(K) end;
  dec(n);
  inc(x);

 until n<=0;

 {вывод полученной матрицы на экран}
 for y:=1 to SizeMatrix do begin
   for x:=1 to SizeMatrix do
    write(a[x,y]:6);
   writeln;
  end;
  writeln;
  readln;
end.

[Serge_Bliznykov]

а решение задачи, это что-то вроде такого:

{Заполните квадрат 6 на 6 по спирали в направлении часовой стрелки от
наружной части квадрата к внутренней цифрами от 9 до 0 (циклически) с
последовательно меняющимися цветами}

uses CRT;
Const SizeMatrix = 6;


procedure NextColorAndNumber(var K : integer);
begin
  Dec(K);
  if K<0 then K := 9;
  TextColor(K+6);
end;

procedure ShowNext(X,Y,K : integer);
begin
  GotoXY(X, Y);
  Write(K);
end;


var
 x,y, n, K :integer;

begin
 ClrScr;

 y:=1; x:=1; n:= SizeMatrix;
 K := 9;
 TextColor(K+6);
 repeat
  dec(x);
  while x<n do
     begin inc(x); ShowNext(x,y,k);; NextColorAndNumber(K) end;

  while y<n do begin inc(y); ShowNext(x,y,k);; NextColorAndNumber(K); end;

  while x>(SizeMatrix-n+1) do
    begin dec(x); ShowNext(x,y,k);;; NextColorAndNumber(K) end;


  while y>(SizeMatrix-n+2) do
    begin dec(y); ShowNext(x,y,k);; NextColorAndNumber(K) end;
  dec(n);
  inc(x);

 until n<=0;
 readln
end.

[artacer]

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

А мы тут в догадайки играем, да ?)

По-моему, ты придираешься!

[artacer]

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

а решение задачи, это что-то вроде такого:

{Заполните квадрат 6 на 6 по спирали в направлении часовой стрелки от
наружной части квадрата к внутренней цифрами от 9 до 0 (циклически) с
последовательно меняющимися цветами}

uses CRT;
Const SizeMatrix = 6;


procedure NextColorAndNumber(var K : integer);
begin
  Dec(K);
  if K<0 then K := 9;
  TextColor(K+6);
end;

procedure ShowNext(X,Y,K : integer);
begin
  GotoXY(X, Y);
  Write(K);
end;


var
 x,y, n, K :integer;

begin
 ClrScr;

 y:=1; x:=1; n:= SizeMatrix;
 K := 9;
 TextColor(K+6);
 repeat
  dec(x);
  while x<n do
     begin inc(x); ShowNext(x,y,k);; NextColorAndNumber(K) end;

  while y<n do begin inc(y); ShowNext(x,y,k);; NextColorAndNumber(K); end;

  while x>(SizeMatrix-n+1) do
    begin dec(x); ShowNext(x,y,k);;; NextColorAndNumber(K) end;


  while y>(SizeMatrix-n+2) do
    begin dec(y); ShowNext(x,y,k);; NextColorAndNumber(K) end;
  dec(n);
  inc(x);

 until n<=0;
 readln
end.

А Вам нереальное спасибо!! От души!! Помогли нереально.