Реферат: Реализация связанных списков на базе массивов

'вернуть количество элементов в списке

Function GetCount() As Integer

GetCount = Count

End Function

' определить, есть ли свободное место в списке

Private Function IsListFull() As Boolean

IsListFull = False

If Refs(NullFreeSpace) = NullFreeSpace Then IsListFull = True

End Function

' передвинуть указатель на один элемент списка

Sub MoveNext()

AFTER = BEFORE

BEFORE = Refs(BEFORE)

End Sub

' передвинуть указатель в начало списка

Sub MoveFront()

AFTER = 0

BEFORE = Refs(NullElem)

End Sub

' определить, находится ли указатель в конце списка

Function IsEndOfList() As Boolean

IsEndOfList = False

If Refs(AFTER) = NullElem Then IsEndOfList = True

End Function

Пример использования данной реализации списка:

Sub Test() Dim i As Integer Dim list1 As MyLinkedList Set list1 = New MyLinkedList « 1 2 3 4 5 6 7 » К-во Просмотров: 311 Бесплатно скачать Реферат: Реализация связанных списков на базе массивов >>> Скачать <<< Меню Поиск