Не удается сортировка!

[Don Leno]

Здравствуйте!
Написал код простейшей сортировки (тупой перебор по всему массиву, не пинайте!). Суть в том что берется первый элемент массива и проверяется со всем массивом и если в нем найдутся значения меньше нашего или же равные то ставим в переменную cnt +1. То есть так пройдя по всему массиву мы можем узнать больше/равно скольких символов в массиве наше значение и это число равно позиции в сортированом списке. В итоге формируется сортированный список.

Ради примера взял исполняемый файл write.exe (это WordPad из Win7) и в массив загоняю число всех символов из файла (от 0 до 255). Далее сортирую. Вот только проблема он почему то пропускет некоторые значения.

Внимание! Мне не нужен суперскоростной алгоритм сортировки. Мне для опытов нужен простой алгоритм, в котором я сам могу разобраться и понять как он работает, поэтому не пинайте за мой метод сортировки. И ДА! я знаю что его можно ускорить, но мне это не нужно сейчас!!!

Ниже в файле CountSym изображенно первый подсчет символов в файле (несортированный список)
Во втором файле Sort изображена отсортированный массив, и в нем как раз то не хватаем многих символов (>100)
И третьим файлом выкладываю исходник

[Mikle]

Вот простейшая сортировка массива, просто создай новый проект и добавь в форму код:

Код: Выделить всё

Option Explicit

Dim Ar() As Single
Dim Cnt As Long

Private Sub Form_Load()
  Dim i As Long

  Cnt = 10
  Randomize Timer
  ReDim Ar(Cnt - 1)
  For i = 0 To Cnt - 1
    Ar(i) = Rnd
  Next i

  ShowArray
  Sort
  ShowArray
End Sub

Private Sub Sort()
  Dim i As Long, j As Long, v As Single

  For j = 0 To Cnt - 2
    For i = j + 1 To Cnt - 1
      If Ar(i) < Ar(j) Then
        v = Ar(i)
        Ar(i) = Ar(j)
        Ar(j) = v
      End If
    Next i
  Next j
End Sub

Private Sub ShowArray()
  Dim i As Long

  For i = 0 To Cnt - 1
    Debug.Print Format(Ar(i), "0.0000"),
  Next i
  Debug.Print
End Sub


В окне Immediate показывает массив до и после сортировки.

[Don Leno]

Mikle, спс тебе огромное за этот код. А то уже бьюсь сколь дней не могу написать. Как все же просто!

[kibernetics]

А вот тебе ещё наглядное видео с разными видами сортировки. Когда задумаешь ускорять логику работы своего кода, может пригодиться: