Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9 | Следующая страница реферата

Const NullFreeSpace = 1 

Dim Elems() As Double  ' Массив для хранения элементов списка

Dim Refs()  As Integer ' Массив для хранения ссылок

Dim AFTER   As Integer ' Указатель предыдущего элемента

Dim BEFORE  As Integer ' Указатель следующего элемента

Dim Count As Integer   ' Количество элементов в списке

' Создание списка для хранения capacity элементов

' 1-я ячейка Refs указывает на первый элемент списка

' 2-я ячейка Refs указывает на 1-й элемент Х из "свободного места"

' capacity - максимально допустимое количество элементов в списке.

Sub CreateLinkedList(capacity As Integer)

  ReDim Elems(capacity + 1)

  ReDim Refs(capacity + 1)

  ClearList

End Sub

' Очистка списка

Sub ClearList()

  Refs(NullElem) = NullElem        'конец списка указывает сам на себя

  Dim i As Integer

  ' Поскольку список пуст, то все ячейки массива помечаются

  ' как "свободное место".

  For i = NullFreeSpace To UBound(Refs) - 1

    Refs(i) = i + 1

  Next i

  Refs(UBound(Refs)) = NullFreeSpace ' Закольцовываем "свободное место".

Рекомендуем скачать другие рефераты по теме: дипломная работа по психологии, рефераты.





Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9 | Следующая страница реферата