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

Тема в разделе "Pascal and Delphi", создана пользователем shnurik, 30 ноя 2009.

  1. shnurik

    shnurik Гость

    (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;
     

    Вложения:

    • DSC01693.JPG
      DSC01693.JPG
      Размер файла:
      24,3 КБ
      Просмотров:
      15

Поделиться этой страницей