Преобразование массива: поменять местами правую и левую половины - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
