Перестановка элементов двумерного массива. Поменять местами столбцы с номерами m1 и m2 Эту задачу можно реализовать несколькими способами. Составим две. - презентация

1 Перестановка элементов двумерного массива

2 Поменять местами столбцы с номерами m1 и m2 Эту задачу можно реализовать несколькими способами. Составим две процедуры, причем процедура обмена столбцами содержит в себе процедуру обмена значениями двух переданных ей ячеек массива.

3 Процедура обмена столбцов матрицы ProcedureVar Var ProcedureVar Var Begin End Begin ororor then else fortodo End Procedure Swap2(Var X : MyArray2; n, m, m1, m2 : integer;); Var i, j : integer; Procedure Swap1(Var elem1, elem2 : integer); Var z : integer; Begin z:=elem1; elem1:=elem2; elem2:=z; End; Begin if((m1 m)) or ((m2 m)) then writeln('?') else for i := 1 to n do Swap1(X[i, m1], X[i, m2]); End;

4 Решение задачи Если количество столбцов нечетно, то поменять первый и средний столбец, если четно, то средние два столбца поменять с первым и последним соответственно. Поменять местами первую строку и строку, в которой находится первый нулевой элемент.