ВУЗ:
Составители:
Рубрика:
60
На этом месте снова необходимо протестировать проект на работоспособ-
ность и корректность работы. Особое внимание следует уделить взаимодей-
ствию различных компонентов приложения.
12. Сортировка данных
Сортировка данных в данной информационной системе производится при
помощи индексного массива Ind, описанного в модуле Declar. В этом случае ре-
зультатом сортировки будет не отсортированный файл, а вспомогательный мас-
сив номеров (индексов) Ind, показывающий в каком порядке следует выбирать за-
писи файла, чтобы они образовывали отсортированную последовательность.
Алгоритмы сортировки опишем в
стандартном модуле, который необходи-
мо добавить в проект под именем Sorting. Для сортировки данных будем исполь-
зовать алгоритм сортировки обменом (метод «пузырьковой» сортировки).
Приведем код процедуры сортировки по числовым полям.
Public Sub Sort(Key() As Single, N As Integer, Ind() As Integer)
Dim i As Integer
Dim j As Integer
Dim k As Integer
For j = 1 To N - 1
For i = 1 To N - j
If Key(Ind(i)) > Key(Ind(i + 1)) Then
k = Ind(i)
Ind(i) = Ind(i + 1)
Ind(i + 1) = k
End If
Next i
Next j
End Sub
Перед обращением к этой процедуре необходимо инициализировать массив
Ind и занести элементы ключевого поля сортируемого файла во вспомогательный
массив Key. Благодаря описанию массива Key как вещественного в него можно
записывать числовые данные любого типа: как Single, так и Integer и Byte.
Страницы
- « первая
- ‹ предыдущая
- …
- 58
- 59
- 60
- 61
- 62
- …
- следующая ›
- последняя »
