Сортировка двумерного массива по чётности позиций - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 4 из 5
Похожие ответы