Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Выполнить сортировку чисел в массиве по возрастанию


Выполнить сортировку чисел в массиве по возрастанию
2009-12-01 07:06 Александр
Выполнить сортировку чисел в массиве по возрастанию. Option Explicit Dim vArray, vMid As Long, vBuf As Long 'для QuickSort массив и две переменные следует объявить в General/Declarations Dim cnt_Compares As Long, cnt_Moves As Long Sub Inc(L As Long, Optional D As Long = 1) L = L + D End Sub Sub sort_Пузырьки(vArray) Dim I As Long, J As Long, D [...]


В избранное