FreeBasic
Главная
Вход
Регистрация
Среда, 16.10.2024, 08:36Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Сортировка вставками
haavДата: Понедельник, 10.06.2013, 20:51 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 1366
Репутация: 49
Статус: Offline
Сортировка вставками

Данный алгоритм:
  • эффективен на небольших наборах данных, на наборах данных до десятков элементов может оказаться лучшим
  • эффективен на наборах данных, которые уже частично отсортированы
  • это устойчивый алгоритм сортировки (не меняет порядок элементов, которые уже отсортированы)
  • может сортировать список по мере его получения

Источник

Код
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


Вы сохраняете власть над людьми покуда оставляете им что-то…Отберите у человека все, и этот человек уже будет неподвластен вам…
 
electrikДата: Среда, 03.07.2013, 22:18 | Сообщение # 2
Полковник
Группа: Друзья
Сообщений: 182
Репутация: 3
Статус: Offline
классно, все ясно и понятно. для сортировки имен файлов вставка, наверное, лучший вариант. интересно, не ужели с шестидесятых годов, ни кто не придумал алгоритма быстрее qsort. столько умных компьютерщиков, это раньше на бумажке записывали. я тоже пытался придумывать, вроде, идея классная, а потом хоп, и получается, много проходов. думаю, если бы за это бабки давали, кто-нибудь бы поднапрягся.
 
haavДата: Четверг, 04.07.2013, 09:49 | Сообщение # 3
Генералиссимус
Группа: Администраторы
Сообщений: 1366
Репутация: 49
Статус: Offline
Цитата (electrik)
не ужели с шестидесятых годов, ни кто не придумал алгоритма быстрее qsort. столько умных компьютерщиков

Я думаю что быстрее алгоритмы есть, но находятся они в частных руках коммерческих компаний. А насчет умных компьютерщиков, я пожалуй не соглашусь. Думаю что раньше они были, да почти все вышли. При том это наблюдается не только у домашних самоучек, но и у серьезных компаний. Оно где-то понятно... Нормальных прогеров сократили , оставили жополизов, да блатных. Вот и куют деревянные мечи из глины.


Вы сохраняете власть над людьми покуда оставляете им что-то…Отберите у человека все, и этот человек уже будет неподвластен вам…
 
  • Страница 1 из 1
  • 1
Поиск: