Преобразование массива: поменять местами правую и левую половины - VB

Узнай цену своей работы

Формулировка задачи:

из массива целых случайных чисел Х={xi}, где i= {1,2,...n}, получить массив Y={y(m)}, переместив правую половину, а затем - левую. X={ 10, 12, 3, 4, 50, 6 } => Y={4, 50, 6, 10, 12, 3}

Решение задачи: «Преобразование массива: поменять местами правую и левую половины»

textual
Листинг программы
'::: Обмен "половинками"
Sub swapArr(A() As Integer, Optional b As Integer = 0, Optional e As Integer = 0)
    n% = UBound(A, 1)
    If e = 0 Then
       swapArr A, 1, IIf((n% Mod 2) = 0, n% \ 2 + 1, n% \ 2 + 2)
       Exit Sub
    End If
    If e > n% Then
       Exit Sub
    Else
       tmp% = A(b)
       A(b) = A(e)
       A(e) = tmp%
       swapArr A, b + 1, e + 1
    End If
End Sub

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


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

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

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