Сортировка двумерного массива по чётности позиций - VB
Формулировка задачи:
Здравствуйте!
Прошу помощи. Не знаю алгоритма перестановок столбцов по чётности. Как переставлять, не вручную же, если столбцов несколько десятков?
У меня матрица 6*6 поэтому легко поменял местами нужные столбцы почти вручную.
Условия. Дана целочисленная прямоугольная матрица. Преобразовать массив таким образом, чтобы в первой его половине располагались элементы, стоявшие в четных позициях, а во второй половине — элементы, стоявшие в нечетных позициях.
Решение задачи: «Сортировка двумерного массива по чётности позиций»
textual
Листинг программы
Sub echsSort() Randomize Timer Const n = 6 ReDim x(n, n) As Long ReDim Z(n, n) As Long For i = 1 To n For j = 1 To n x(i, j) = 18 * Rnd - 9 Cells(i, j) = x(i, j) Z(i, j) = x(i, j) Next j Next i For j = 1 To n For i = 1 To n If j Mod 2 Then Z(i, (j + n + 1) / 2) = x(i, j) Else Z(i, j / 2) = x(i, j) End If Next i, j For i = 1 To n For j = 1 To n Cells(i + 7, j) = Z(i, j) Next j Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д