Двухсвязный неупорядоченный список

  • Автор темы shnurik
  • Дата начала
S

shnurik

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

Наработки:



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;
 

Вложения