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