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

[Leontev]

Задача такая. Нужно сформировать динамическую матрицу, размером NxN и заполнить её по следующему принципу. В центре элемент (элементы) со значением 1. Вокруг - элементы со значением 2, далее три и т.п. Например, при n=5 матрица должна быть такой

Код: Выделить всё

5 4 3 4 5
4 3 2 3 4
3 2 1 2 3
4 3 2 3 4
5 4 3 4 5

Динамическую матрицу я сформировал, а вот с заполнением проблема. Как это сделать?

[Maxizar]

Ну если примитивно:

[Oleg_D]

Код: Выделить всё

var N, M : integer;
    i, j : integer;
begin
  Write('N= '); Readln(N);
  Write('M= '); Readln(M);
  for i:=1 to N do begin
    for j:=1  to M do
      Write(1+abs(i-1-N div 2)+abs(j-1-M div 2) : 4);
    Writeln;
  end;
  Readln;
end.

===========
Смысл в том, что расстояние от центральной клетки до любой другой вычисляется как сумма абсолютных разностей их координат. Своего рода "теорема Пифагора" для дискретного прямоугольного пространства

[Leontev]

Спасибо большое! Но все равно есть одна проблема. Этот алгоритм не подходит, если n - четное число (

[Little_Roo]

Этот алгоритм не подходит, если n - четное число (

А какой ЦЕНТР в матрице четное х четное ???

[Widowmaker]

<< А какой ЦЕНТР в матрице четное х четное ??? >>
имхо, клетка 2х2 из единиц.

[Little_Roo]

<< А какой ЦЕНТР в матрице четное х четное ??? >>
имхо, клетка 2х2 из единиц.

Угу, и центр такой матрицы = null

Так что для топик-стартера необходимо более точно определить условие задачи (с учетом ОДЗ )

[Oleg_D]

Код: Выделить всё

var N, M : integer;
    i, j : integer;
begin
  Write('N= '); Readln(N);
  Write('M= '); Readln(M);
  for i:=1 to N do begin
    for j:=1  to M do
      Write(1+abs(2*i-1-N) div 2 + abs(2*j-1-M) div 2 : 4);
    Writeln;
  end;
  Readln;
end.


А так годится?

[Leontev]

Это идеально

имхо, клетка 2х2 из единиц.

Ну да, так и есть. Как это реализовано в коде от Олега.