Двунаправленные, симметричные списки. Описание, создание, просмотр списка, добавление и удаление элементов

BEGIN

ELSE

BEGIN

VAR

ELSE

END

END

BEGIN

ELSE

END

BEGIN

BEGIN

BEGIN

VAR

BEGIN

END

...

ELSE

END

BEGIN

BEGIN

ELSE

END

BEGIN

BEGIN

VAR

BEGIN

ELSE

BEGIN

BEGIN

ELSE

END

BEGIN

BEGIN

BEGIN

BEGIN

FIRST = NIL;

END;

Формирование очередного элемента списка.

PROCEDURE CREATE_NEW_ELEM(VAR P: EL);

NEW (P);

WRITELN ( 'введите значение первого информационного поля: ');

READLN (P^.INF1);

WRITELN (' введите значение второго информационного поля: ');

READLN (P^.INF2);

P^.NEXT:= NIL;

{ все поля элемента должны быть инициализированы }

END;

Вставка элемента в начало списка.

PROCEDURE INS_BEG_LIST(P: EL; {адрес включаемого элемента}

VAR FIRST: EL);

IF FIRST = NIL THEN

FIRST:= P;

P^.NEXT:= NIL

FIRST:=P;{ включаемый элемент становится первым }

P^.NEXT:=FIRST;{ссылка на бывший первым элемент}

END;

END;

Включение элемента в конец списка.

PROCEDURE INS_END_LIST(P: EL; VAR FIRST: EL);

IF FIRST = NIL THEN

FIRST:=P

Q:=FIRST; {цикл поиска адреса последнего элемента}

WHILE Q^.NEXT <> NIL DO

Q:=Q^.NEXT;

Q^.NEXT:=P;{ссылка с бывшего последнего на включаемый

элемент}

P^.NEXT:=NIL; {не обязательно }

END;

END;

Включение в середину (после i-ого элемента).

PROCEDURE INS_AFTER_I (FIRST: EL; P: EL; I: INTEGER);

T, Q: EL;

K,N: INTEGER;

N:= COUNT_EL(FIRST); {определение числа элементов списка}

IF (I < 1) OR (I > N)THEN

WRITELN ( 'i задано некорректно' );

EXIT;

IF I = 1 THEN

T:= FIRST;{адрес 1 элемента}

Q:= T^.NEXT; {адрес 2 элемента}

T^.NEXT:= P;

P^.NEXT:= Q;

IF I = N THEN

BEGIN { см. случай вставки после последнего элемента}

ELSE {вставка в «середину» списка}

T:= FIRST;

K:= 1;

WHILE (K < I) DO

BEGIN {поиск адреса i-го элемента }

K:= K + 1;

T:= T^.NEXT;

END;

Q:= T^.NEXT; {найдены адреса i-го (t) и i+1 -го (q)

элементов }

T^.NEXT:= P;

P^.NEXT:= Q; {элемент с адресом р вставлен}

END;

END;

END;

Удаление элемента из начала списка.

PROCEDURE DEL_BEG_LIST (VAR FIRST: EL);

P: EL;

ANSWER: STRING;

IF FIRST <> NIL THEN

BEGIN { список не пуст }

WRITELN (' Вы хотите удалить первый элемент?(да/нет) ');

READLN (ANSWER);

IF ANSWER = 'ДА' THEN

P:=FIRST;

IF P^.NEXT = NIL THEN {в списке один элемент }

DISPOSE (P); {уничтожение элемента }

FIRST:=NIL; {список стал пустым }

P:= FIRST;{адрес удаляемого элемента }

FIRST:=FIRST^.NEXT;

{адрес нового первого элемента}

DISPOSE(P);

{удаление бывшего первого элемента }

END;

WRITELN (' список пуст, удаление первого элемента невозможно' );

END;

Подсчет числа элементов списка

FUNCTION COUNT_EL(FIRST:EL):INTEGER;

K: INTEGER;

Q: EL;

IF FIRST = NIL THEN

K:=0 { СПИСОК ПУСТ }

BEGIN {СПИСОК СУЩЕСТВУЕТ}

K:=1; {В СПИСКЕ ЕСТЬ ХОТЯ БЫ ОДИН ЭЛЕМЕНТ}

Q:=FIRST;

{ПЕРЕБОР ЭЛЕМЕНТОВ СПИСКА НАЧИНАЕТСЯ С ПЕРВОГО}

WHILE Q^.NEXT <> NIL DO

K:=K+1;

Q:=Q^.NEXT;

{ПЕРЕХОД К СЛЕДУЮЩЕМУ ЭЛЕМЕНТУ СПИСКА}

END;

END;

COUNT_EL:=K;

END;

Список - это конечное множество динамических элементов, размещающихся в разных областях памяти и объединенных в логически упорядоченную последовательность с помощью специальных указателей (адресов связи).

Список - структура данных, в которой каждый элемент имеет информационное поле (поля) и ссылку (ссылки), то есть адрес (адреса), на другой элемент (элементы) списка. Список - это так называемая линейная структура данных, с помощью которой задаются одномерные отношения.

Каждый элемент списка содержит информационную и ссылочную части.

Порядок расположения информационных и ссылочных полей в элементе при его описании - по выбору программиста, то есть фактически произволен. Информационная часть в общем случае может быть неоднородной, то есть содержать поля с информацией различных типов.

Ссылки однотипны, но число их может быть различным в зависимости от типа списка. В связи с этим для описания элемента списка подходит только тип «запись», так как только этот тип данных может иметь разнотипные поля.

При обработке однонаправленного списка могут возникать трудности, связанные с тем, что по списку с такой организацией можно двигаться только в одном направлении, как правило, начиная с первого элемента. Обработка списка в обратном направлении сильно затруднена. Для устранения этого недостатка служит двунаправленный список, каждый элемент которого содержит ссылки на последующий и предыдущий элементы (для линейных списков - кроме первого и последнего элементов). Такая организация списка позволяет от каждого элемента двигаться по списку как в прямом, так и в обратном направлениях. Наиболее удобной при этом является та организация ссылок, при которой движение, перебор элементов в обратном направлении является строго противоположным перебору элементов в прямом направлении. В этом случае список называется симметричным. Например, в прямом направлении элементы линейного списка пронумерованы и выбираются так: 1, 2, 3, 4, 5. Строго говоря, перебирать элементы в обратном направлении можно по-разному, соответствующим способом организуя ссылки, например: 4, 1, 5, 3, 2. Симметричным же будет называться список, реализующий перебор элементов в таком порядке: 5, 4, 3, 2, 1.

циклический, кольцевой список организован таким образом, что в адресную часть конечного элемента вместо константы NIL помещается адрес начального элемента (список замыкается на себя). В симметричном кольцевом списке такое положение характерно для обоих - прямого и обратного - списков, следовательно, можно построить циклический двунаправленный список.

Действия со списками:

Описание элемента двунаправленного списка

Дата добавления: 2015-04-24