Массивы

[Asira]

Подскажите что делает данный код??

 for k:=0 to m-1 do
      for z:=0 to n-1 do
         for i:=0 to m-1 do
          for  j:=0 to n-1  do
            if  mas[k,z] < mas[i,j] then
                begin
                buf:=mas[k,z];
                mas[k,z]:= mas[i,j];
                mas[i,j]:=buf;
                end;

вроде бы он сортирует двумерный массив по возрастанию... ??????
не могу понять принцип...(((

[DomiNick]

Демотивирует..... о__О

Как-то меняет местами элементы массива... А почему-бы не запустить и не посмотреть что получится?

[baster128]

Он сравнивает два элемента матриц и меняет их местами в порядке возрастания. Для сортировки тут еще куча проходов нужна. Но алгоритм в принцыпе верный. Виноват, не заметил, это одна матрица и на мой взгляд переменные неправильно в цикле стоят. В таком виде этот код ничего не делает. Он будет проскакивать на операторе if mas[k,z] < mas[i,j], потому, что это обращение к одному и тому же элементу, а они однозначно равны.

[Asira]

Вот поидее он должен ничего не делать.......... но этот цикл сортирует массив..............даже как то странно

[Snejnaya]

Если написать

for i:=k to m-1 do
          for  j:=z to n-1  do

то это будет самый что ни на есть классический алгоритм сортировки. Поскольку в исходном коде for i:=0 и for j:=0, то алгоритм совершит ряд "лишних" проходов с тем самым "проскакиванием" на if.

Принцип простой - сравнивается mas[0,0] и mas[0,1], если второе больше, их меняют местами. Затем "текущий" mas[0,0] и mas[0,2], если второй больше- меняют местами. В итоге после сравнения mas[0,0] с mas[m-1,n-1] переходят к сравнению mas[0,1] со всеми остальными элементами массива. Получаем масссив, отсортированный по убыванию, а не по возрастанию.

[Stilet]

но этот цикл сортирует массив

Не массив, а матрицы.
В первой матрице получается первая часть с большими числами а во второй матрице вторая часть с маленькими значениями.

[Snejnaya]

Stilet
не соглашусь - тут всего один двумерный массив (или матрица, как больше нравится). Откуда взялось 2 матрицы?

[Stilet]

Snejnaya

Пардонте, я неверно выразился - две части матрицы.