Линейные списки. Стек. Дек. Очередь
Категория реферата: Рефераты по информатике, программированию
Теги реферата: реферати, сочинение 5 класс
Добавил(а) на сайт: Губанов.
Предыдущая страница реферата | 14 15 16 17 18 19 20 21 22 23 24 | Следующая страница реферата
RoundList := PointerRoundList; end else begin
New(qRound); qRound^.Info := X; qRound^.Next := PointerRoundList^.Next;
PointerRoundList^.Next := qRound; end;
PointerRoundList := PointerRoundList^.Next;
end;
procedure DeleteFromRoundList(Position: Integer); var q, h: List; i: Integer; begin if RoundList^.Next = RoundList then //один элемент в списке begin if RoundList nil then Dispose(RoundList);
RoundList := nil; end else // не один элемент в списке begin i := 1; q := RoundList; while i < RoundListPos do begin
Inc(i); q := q^.Next; end; if i 1 then begin h := q^.Next; q^.Next := h^.Next; if h nil then Dispose(h); end else begin q := RoundList^.Next; while q^.Next RoundList do q := q^.Next; h := q^.Next; q^.Next := h^.Next; if h nil then Dispose(h);
RoundList := q^.Next; end; end; if RoundList nil then begin q := RoundList^.Next; i := 1; while q RoundList do begin
Inc(i); q := q^.Next; end; if i = RoundListPos then begin
RoundListPos := 0;
Form1.Image7.Left := 9; end; end; end;
procedure DeleteFromList(Position: Integer); //Удаляет элемент под
//номером Position var i: Integer; q, r: List; begin q := ListBegin; if q nil then // Если список не пуст, то begin if Position = 0 then //Если позиция = 0, то удаляем первый элемент begin
ListBegin := q^.Next; if q nil then Dispose(q); end else begin i := 0; while (i < Position - 1) and (q nil) do //Ищем элемент после
//которого нужно удалить begin q := q^.Next;
Inc(i); end; r := q^.Next; if r nil then //Если удаляемый элемент существует, то удаляем его begin q^.Next := r^.Next; if r nil then Dispose(r); end else ShowMessage('Элемент уже не существует'); end; end else begin
ShowMessage('Список пуст');
Form1.Image1.Hide; end; end;
procedure AddToListTwo(X: Integer; var PointerEndListTwo: ListTwo);
//Добавить элемент в
//конец дв-списка (PointerEnd - указатель на последний элемент списка) begin if PointerEndListTwo = nil then //Если список еще не существует или пуст,
//добавляем в начало begin
New(PointerEndListTwo);
PointerEndListTwo^.Info := X;
PointerEndListTwo^.Next := nil;
PointerEndListTwo^.Prev := nil; end else begin
New(PointerEndListTwo^.Next);
Рекомендуем скачать другие рефераты по теме: гигиена реферат, курсовик.
Предыдущая страница реферата | 14 15 16 17 18 19 20 21 22 23 24 | Следующая страница реферата