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

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

Private Sub PutSpace(i As Integer)

  Link i, Refs(NullFreeSpace)

  Link NullFreeSpace, i

End Sub

' добавить element в список

Sub AddItem(element As Double)

  Dim i As Integer

  i = GetSpace()     ' получаем свободное место

  Link AFTER, i      ' устанавливаем его в

  Link i, BEFORE     ' нужном месте списка

  BEFORE = i         ' устанавливаем указатель

  Elems(i) = element ' добавляем элемент element в список

  MoveNext

  Count = Count + 1  ' увеличиваем счетчик количества элементов

End Sub

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

Sub RemoveItem()

  Dim i As Integer

  If Count <> 0 Then

    i = BEFORE

    BEFORE = Refs(i)

    Link AFTER, BEFORE

    PutSpace i

    Count = Count – 1

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



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

Поделитесь этой записью или добавьте в закладки