Алгоритмы на матрицах, какие есть приемы? Опции

[Флогримм]

вчера сел решать задачи на тему двумерных массивов - матриц и столкнулся с проблемой; какие можете посоветовать приемы программиования для алгоритмов, вида "заполнить матрицу по спирали, зигзагом" и т.д.

мне не конкретной задачи нужно решение, а метод в целом

пришла в голову такая идея: написать процедуры движения по матрице в четырех направленияъ (вверх, вниз, влево, вправо) до тех пор, пока не встретим либо конец матрицы ("крайнюю стенку") или же уже заплненный алгоритм и циклически повторять их до тех пор пока не заполним всю матрицу... да, наверное так и попробую

хотя мне кажется, что выход, который предложил выше не совсем правильный; может все можно свести все к основной (единственной формуле) формуле где меняться будет только значение i,j-счетчиков в цикле?

вобщем матрицы для меня проблема; помогите чем могите; в книгах же только и делают, что задачки пишут, а концепцию разъясникть - :no:

вот так
а еще вопрос: 1)как в вин2к в ТП7 установить русскую раскладку клавы; 2)как прервать зациклившийся процесс? (Ctrl-Break и Ctrl-F2 не работают)

зосим откланиваюсь, с уважением, Флогримм

[Флогримм]

вот как на мой взгляд лучше всего решать задачу на заполнение массива значениями по спирали

Код

01|02|03|04
12|13|14|05
11|16|15|06
10|09|08|07

ГЛАВНОЕ установить ПРИОРИТЕТ направеления движения!
в данном примере это (->, \/, <-, /\)

Код

program spirall;
uses crt;
const Size=7;
k=0;
var mas:array[1..size,1..size]of shortint;
i,j,a:integer;

procedure draw;
begin
writeln;
for i:=1 to size do begin
   for j:=1 to size do write(mas[i,j]:2,'|');
   writeln;
   end;
end;
begin
for i:=1 to size do
   for j:=1 to size do mas[i,j]:=k;

clrscr;
i:=1;
j:=1;
mas[i,j]:=1;

for a:=1 to sqr(size) do
begin
write(i,'-',j,' ');
  if mas[i,j+1]=k then begin inc(j); mas[i,j]:=a+1; end else{если пустая ячейка справа, тогода перейти на эту ячейку и присвоить ей очередное значение а...}
  if mas[i+1,j]=k then begin inc(i); mas[i,j]:=a+1; end else {иначе, если пустая ячейка снизу, тогда...}
  if mas[i,j-1]=k then begin dec(j); mas[i,j]:=a+1; end else {иначе если пустая ячейка слева...}
  if mas[i-1,j]=k then begin dec(i); mas[i,j]:=a+1; end; {...пустая сверху...}
end;

draw;
end.

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

в комментария к коду именно тот приоритет, о котором я говорил, то есть если вся матрица пустая(все ячейки имеют значение 0), а текущее позиция, например, ячейка mas[1,1] то у нее рядом 2 свободных клетки - снизу и справа, но мы не можем двигаться вниз, т.к. у движения вправо более высокий приритет
идея, надеюсь, понятна
задавая, таким образом, приотритет и напрвление можно заполнять матрицы различними "узорами", не только спиральными