freepascal.ru

Задача такая. Нужно сформировать динамическую матрицу, размером 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

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

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

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

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.

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

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

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

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

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

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

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

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

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

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.


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

Это идеально

Widowmaker писал(а):имхо, клетка 2х2 из единиц.

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