Заполнение матрицы

[AnZet]

Помогите сформировать таблицу
1 0 0 0 0
12 2 0 0 0
11 13 3 0 0
10 15 14 4 0
9 8 7 6 5
т. е по спирали но для половины. Матрица может быть любой размерности.

[Arigato]

Свои наработки есть?

[AnZet]

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

Свои наработки есть?

Есть, но там не очень.. Хочется другой взгляд.. Пытался переделать заполнение по сприрали для всей матрицы тож не получилось.

[Mad_Cat]

Есть, но там не очень..

Покажешь??

[Arigato]

Заполнение надо разбить на 3 цикла:
1. Идем вниз по диагонали.
2. Идем влево.
3. Идем вверх.
И так повторяем, сдвигая границы.

[AnZet]

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

Заполнение надо разбить на 3 цикла:
1. Идем вниз по диагонали.
2. Идем влево.
3. Идем вверх.
И так повторяем, сдвигая границы.

Мда.. Спасибо капитан!! +100500 тебе в рейтинг..

[Leshii]

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

Ну если я правильно понял .

uses crt;
Var matrix : array[1..25,1..25] of byte;
   n,i,j,k : byte;

begin
  clrscr;
  write('enter n = '); readln(n);
  for i:=1 to n do
   for j:=1 to n do begin
    write('matrix[',i,'',j,']=');
    readln(matrix[i,j]);
   end;
  for i:= 1 to n do
         for j:= 1 to n do
             if i > j then matrix[i,j] := 0 
			 else for j:= 1 to n do begin
                   for i:= 1 to n do
       write(matrix[i,j]:3);
       writeln;
  end;
readln;
end.

[AnZet]

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

То есть один, треугольник должен быть строго нулевой( пытаюсь разобраться в том что ты нарисовал ) , а второй забит числами ( любыми ) ?
Ну если я правильно понял .

Половину нужно заполнить числами от 1 до (n*n-n)/2+n). Ну т.е. для н=5 это будет 15.. И массив заполняется по спиральке..
1 0 0 0 0
12 2 0 0 0
11 13 3 0 0
10 15 14 4 0
9 8 7 6 5
По диагонали
Влево
и вверх.. Три цикла повторяющихся

[Leshii]

Код для простого заполнения я тебе написал выше )
Мне за тебя формулу добавить или сам допишеш?)

[AnZet]

Там просто заполнение у тебя.. На полный массив