Всем привет, нужен help. Уже какой день пытаюсь написать прогу, которая бы заполняла массив NxM (не квадратный) рандомными числами по спирали по часовой стрелке. Т.е. от первого элемента матрицы до элемента который будет находится в центре или чуть левее центра. Плиззз, очень нужно помощь.
Евгений Захаров: Вводиться размерность матрицы и надо её заполнить её по контуру по часовой стрелке. Т.е. если заполнять её натуральными числами матрицу размером 5x3 , то первый элемент будет равен 1, а последний будет правее центра и будет равен 15.
Я столкнулся с проблемой: мой алгоритм почему то работает не на все виды матриц и даже костыли не помогают. И поэтому я прошу помощи.
nirvimel: Задача сама заключается в другом: Упорядочить элементы матрицы по убыванию по контуру по часовой стрелке, максимальный элемент будет находится на позиции (0,0), минимальный в центре матрицы.
Проблема заключается в развёртывание прямоугольной матрицы в одномерный массива, у меня происходит выход за пределы массива и я с этим ничего не могу поделать (костыли не помогают).
//PascalABC.NET
begin
var (n,m) := (3,6);
var a := new integer[n,m]; //array[0..n-1, 0..m-1] of integer
for var i := 0 to n-1 do
for var j := 0 to m-1 do begin
var x := min(i,j,n-1 - i, m-1 - j); //номер спирали, минимальное из 4-х чисел
a[i,j] := n*m+1 - if (i>x) and (m-1-j>x) then
(n-2*x-2)*(m-2*x-2) + (i-x) + (j-x)
else (n-2*x)*(m-2*x) - (i-x) - (j-x)
end;
a.Println
end.
Средний
