Двухсвязный неупорядоченный список, Задача Опции

[shnurik_sh]

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

Наработки:


tek:=tek^.link1; // переход влево
tek:=tek^.link2; // переход вправо

type lnk=^list2;
list2=record;
info:integer;
link1,link2:lnk;
end;
var tek,buf:lnk;

procedure delete_from_list;
begin
buf:=tek;
if tek^.link1<>nil then
tek:=tek^.link1
else
tek:=tek^.list2
if buf^.link2<>nil then
buf^.link2^.link1:=buf^.link
if buf^.link1<>nil then
buf^.link1^.link2:=buf^.link2;
dispose(buf);
end;

Сообщение отредактировано: shnurik_sh - 1.12.2009 2:28