Упорядочить массив - VB (63211)

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

Заданы массивы А(N) и В(M) упорядоченные по убыванию значений элементов. Создать новый массив С(N+M) упорядоченный по убыванию значений элементов. Помогите пожалуйста с этим заданием...Я чёт не могу найти функции сортировки массивов


textual

Код к задаче: «Упорядочить массив - VB (63211)»

'Процедура для сортировки массива методом пузырька
'
'Входные параметры:
'    Arr -   сортируемый массив.
'            Нумерация элементов от 0 до N-1
'    N   -   размер массива
'
'Выходные параметры:
'    Arr -   массив, упорядоченный по возрастанию.
'            Нумерация элементов от 0 до N-1
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Sub BubbleSort(ByRef Arr() As Double, ByRef N As Long)
    Dim I As Long
    Dim J As Long
    Dim Tmp As Double
 
    For i=0# To N-1# Step 1
        For j=0# To n-2#-i Step 1
            If Arr(j)>Arr(j+1#) then
                Tmp = Arr(j)
                Arr(j) = Arr(j+1#)
                Arr(j+1#) = Tmp
            End If
        Next j
    Next i
End Sub
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

14   голосов, оценка 3.929 из 5

Источник
Похожие ответы