Сортировка вставками
Данный алгоритм:
- эффективен на небольших наборах данных, на наборах данных до десятков элементов может оказаться лучшим
- эффективен на наборах данных, которые уже частично отсортированы
- это устойчивый алгоритм сортировки (не меняет порядок элементов, которые уже отсортированы)
- может сортировать список по мере его получения
Источник
Код
Sub InsertSort(m() As Integer)
Dim i As Integer
Dim j As Integer
Dim Key As Integer
For i = 1 To UBound(m)
key = m(i)
j = i - 1
while j >= 0 and m(j) > key
m(j+1) = m(j)
j = j - 1
Wend
m(j+1) = key
Next
End Sub
Dim m(10) As Integer = {4,1,7,2,8,3,6,9,4,2,5}
InsertSort(m())
For i As Integer = 0 To UBound(m)
? m(i)
Next
Sleep
