Поменять местами первый и последний, второй и предпоследний... и тд столбцы массива А

@chandler · Регистрация: 13.05.2009

Студворк — интернет-сервис помощи студентам

Поменять местами первый и последний, второй и предпоследний... и тд столбцы массива А. Расставить в полученной матрице побочную диагональ в порядке возрастания n=m=6

@Toxa33rus · 09.06.2009, 14:59

Visual Basic

Sub exchangeArray(ByRef Arr, ByVal n1 As Integer, ByVal n2 As Integer, ByVal RowCol As Boolean)
'процедура меняет местами строки или столбцы в двумерном массиве
 
'Arr - двумерный массив значений
'n1 и n2 - номера строк(столбцов) которые поменяем местами
'RowCol - если истина, то меняем строки, иначе столбцы
 
Dim tmpArr() 'временный массив
If RowCol Then
  ReDim tmpArr(UBound(Arr, 2))
  For i = 0 To UBound(Arr, 2)
    tmpArr(i) = Arr(n1, i)
  Next i
  
  For i = 0 To UBound(Arr, 2)
    Arr(n1, i) = Arr(n2, i)
    Arr(n2, i) = tmpArr(i)
  Next i
Else
  ReDim tmpArr(UBound(Arr, 1))
  For i = 0 To UBound(Arr, 1)
    tmpArr(i) = Arr(i, n1)
  Next i
  
  For i = 0 To UBound(Arr, 1)
    Arr(i, n1) = Arr(i, n2)
    Arr(i, n2) = tmpArr(i)
  Next i
 
End If
End Sub

взято с Перенести первые k строк в конец массива, соблюдая порядок их следования.

@chandler 0 / 0 / 0 Регистрация: 13.05.2009 Сообщений: 4
		1
	Поменять местами первый и последний, второй и предпоследний... и тд столбцы массива А 04.06.2009, 19:58. Показов 3408. Ответов 1 Метки нет (Все метки) Поменять местами первый и последний, второй и предпоследний... и тд столбцы массива А. Расставить в полученной матрице побочную диагональ в порядке возрастания n=m=6 0

Опции темы