Отсортировать массив, используя метод сортировки выборками - VBA
Формулировка задачи:
Задан массив вещественных чисел А[12]. Выполнить сортировку элементов массива, т.е. расположить элементы в порядке убывания (или возрастания), используя метод сортировки выбором.
Нужна помощь
Решение задачи: «Отсортировать массив, используя метод сортировки выборками»
textual
Листинг программы
Sub Vsort(A() As Integer, Optional p As Integer = 1) n% = UBound(A, 1) If p = n% Then Exit Sub mi% = A(p) im% = p For i% = p + 1 To n% If A(i%) < mi% Then mi% = A(i%) im% = i% End If Next i% If im% <> p Then tmp% = A(im%) A(im%) = A(p) A(p) = tmp% End If Vsort A, p + 1 End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д