Исследование методов сортировки массивов

разные виды и типы данных. В основном этими данными являются числами. Самый простой и наиболее удобный способ сортировки чисел является использование персонального компьютера. В этой курсовой работе показано как работают 2 метода сортировки, а также наглядна видна их эффективность.
метод простых вставок
Последовательно просматриваем a1 , ..., an-1 и каждый новый элемент ai вставляем на подходящее место в уже упорядоченную совокупность a0 , ..., ai-1 . Это место определяется последовательным сравнением ai с упорядоченными элементами a0 , ..., ai-1 .
листинг данного метода в программе:
Public Sub InsertionSort(ByRef Arr() As Double, ByVal N As Long)
Dim I As Long
Dim J As Long
Dim K As Long
Dim Tmp As Double
N = N-1
i = 1
Do
j = 0
Do
If Arr(i)<=Arr(j) then
k = i
Tmp = Arr(i)
Do
Arr(k) = Arr(k-1)
k = k-1
Loop Until Not k>j
Arr(j) = Tmp
j = i
Else
j = j+1
End If
Loop Until Not j i = i+1
Loop Until Not i<=n
End Sub

дерева, обладающего особыми свойствами. В памяти компьютера все элементы массива расположены последовательно, структура же дерева определяется следующим образом: будем считать, что i-ый элемент массива ("предок") имеет два элемента потомка с номерами 2i+1 и 2i+2. Дерево имеет нормальную форму, если любой элемент предок больше своих потомков.
Для понимания алгоритма рассмотрите приведенную блок-схему. Из свойств алгоритма стоит заметить, что он дает стабильно хорошую скорость упорядочивания (порядка n*log(n)), вне зависимости от того с каким массивом работает, и поэтому используется в случаях когда необходимо гарантировано упорядочить массив за короткое время.
листинг данного метода в программе:
Public Sub HeapSort(ByRef Arr() As Double, ByVal N As Long)
Dim I As Long
Dim J As Long
Dim K As Long
Dim T As Long
Dim Tmp As Double
If N=1 then
Exit Sub
End If
i = 2
Do
t = i
Do While t<>1
k = t\2
If Arr(k-1)>=Arr(t-1) then
t = 1
Else
Tmp = Arr(k-1)
Arr(k-1) = Arr(t-1)
Arr(t-1) = Tmp
t = k
End If
Loop
i = i+1
Loop Until Not i<=n
i = n-1

= 1
Do While t<>0
k = 2*t
If k>i then
t = 0
Else
If k If Arr(k)>Arr(k-1) then
k = k+1
End If
End If
If Arr(t-1)>=Arr(k-1) then
t = 0
Else
Tmp = Arr(k-1)
Arr(k-1) = Arr(t-1)
Arr(t-1) = Tmp
t = k
End If
End If
Loop
i = i-1
Loop Until Not i>=1
End Sub
g = g\2
Loop Until Not g>0
End Sub