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

Перестановка двух элементов

Пример 14

Поменять местами два элемента массива А с заданными координатами (номерами строки и столбца).

Решение

Можно эту задачу решить несколькими способами.

Способ 1 - по аналогии с перестановкой в одномерном массиве, когда в процедуру передаются индексы элементов и массивов, в котором надо их поменять. Тогда процедура может быть такой:

Procedure Swap1(k1, l1, k2, l2: Integer; Var x: dmyarray);
Var c : Integer;
Begin
c:=x[k1,l1]; x[k1,l1]:=x[k2,l2]; x[k2,l2]:=x;
End;

Способ 2. Вспомним процедуру Swap, которая меняет местами значения двух целых переменных.

Procedure Swap(Var x, y: Integer);
Var z : Integer;
Begin
z:=x; x:=y; y:=z;
End;

А теперь обратимся к ней, передавая данные элементы: Swap(A[k1,l1], A[k2,l2]).

Рассмотрим задачу о перестановке двух столбцов(строк), так как многие задачи используют это действие.

Пример 15

Поменять местами столбцы с номерами 11 и 12.

Эту задачу также можно реализовать несколькими способами. Мы составим процедуру. Ей будем отправлять номера этих столбцов и массив, в котором надо выполнить это действие. Кроме того, добавим проверку корректности ввода данных номеров, так как если столбца с данным номером нет, то и переставлять ничего не надо. В самой процедуре можно использовать любую из процедур примера 1, например Swap.

Procedure Swap2(l1, l2: Integer; Var x: dmyarray);
Var i : Integer;
Begin
If ((l1<1) Or (l1>m)) Or ((l2<1) Or (l2>m))
Then Writeln ('Ввод неправильный')
Else
For i:=1 To m Do Swap(x[i,l1], x[i,l2]);
End;

Если применять первую - Swap1, то после проверки правильности ввода данных будет такое обращение:

For i := 1 To m Do Swap1(i, l1, i, l2,x)