Найти наименьшего соседа каждой ячейки матрицы

@NaiJiWizard · Регистрация: 16.12.2017

Author24 — интернет-сервис помощи студентам

Задача: дана матрица n x m, заполненная случайными числами. Нужно найти для каждой ячейки X наименьшего соседа (ячейка соседа -- ячейка, не отличающаяся по i и j индексами более чем на 1) и записать его в соответствующую ячейку X другой матрицы, такого же размера. Таким образом из матрицы:
1 2 3
2 3 1
3 3 1
Получится матрица
2 1 1
1 1 2
2 1 1

Проблема в поиске, по двум циклам for прогоняется вся матрица и для каждой ячейки вызывается функция findMin(i, j), где прогоняются все соседы нужной ячейки:

Pascal

function findMin(x:integer;y:integer):real;
var dx, dy: integer;
      _min: real;
begin
   _min:=999;
   for dx:=x-1 to x+1 do
      for dy:=y-1 to y+1 do
         if (((dx <> x) or (dy <> y)) and (dx <= X) and (dy <= Y) and (dx > 0) and (dy > 0)) then
            if (matx[dx][dy] < _min) then _min:=matx[dx][dy];
   findMin:=_min;
end;

Вызов функции происходит так:

Pascal

for i:=1 to X do
      for j:=1 to Y do begin
         maty[i][j]:=findMin(i, j);
      end;

Вывод:
5 5 -- размер матрицы
36.36 15.21 10.41 8.25 12.05
111.75 40.85 412.00 3.39 18.23
9.83 11.74 6.19 14.53 2.98
9.57 26.61 7.06 1.78 4.25
4.46 4.17 10.75 2.12 12.63

999.00 36.36 15.21 10.41 8.25
36.36 15.21 10.41 8.25 3.39
111.75 9.83 11.74 3.39 3.39
9.83 9.57 6.19 6.19 1.78
9.57 4.46 4.17 1.78 1.78

Не обрабатывается 1 и 1 ячейка, а также подбираются неверные соседи... Помогите, пожалуйста, в чём проблема?

Код ВСЕЙ программы:

Pascal

var
   matx: array[1..100, 1..100] of real; //2 матрицы
   maty: array[1..100, 1..100] of real;
                    X, Y: integer; //размеры матрицы
                    i, j: integer; //итераторы
                     min: real; //минимальный сосед
                     
function findMin(x:integer;y:integer):real;
var dx, dy: integer;
      _min: real;
begin
   _min:=999;
   for dx:=x-1 to x+1 do
      for dy:=y-1 to y+1 do
         if (((dx <> x) or (dy <> y)) and (dx <= X) and (dy <= Y) and (dx > 0) and (dy > 0)) then
            if (matx[dx][dy] < _min) then _min:=matx[dx][dy];
   findMin:=_min;
end;
 
begin
   randomize;
   readln(X, Y);
   for i:=1 to X do
      for j:=1 to Y do
         matx[i][j]:=random(1000)/(random(99)+1); //заполняем массив случайными вещ.числами
  for i:=1 to X do begin
      for j:=1 to Y do
         write(matx[i][j]:2:2, ' ');
         writeln();end;
   
   for i:=1 to X do
      for j:=1 to Y do begin
         maty[i][j]:=findMin(i, j);
      end;
      
   writeln();
   for i:=1 to X do begin
      for j:=1 to Y do
         write(maty[i][j]:2:2, ' ');
         writeln();end;
end.

@NaiJiWizard · 18.12.2017, 14:45 **[ТС]**

Задача была решена идеально. Проблема в том, что я совсем забыл:
Паскалю плевать на регистр! х или Х! А у меня в коде было x < X и тому подобное. Изменил названия переменных и всё заработало как часы

@NaiJiWizard 0 / 0 / 0 Регистрация: 16.12.2017 Сообщений: 4
	18.12.2017, 14:45 [ТС]	2
	Задача была решена идеально. Проблема в том, что я совсем забыл: Паскалю плевать на регистр! х или Х! А у меня в коде было x < X и тому подобное. Изменил названия переменных и всё заработало как часы 0