1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

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

Тема в разделе "Вопросы новичков и не только", создана пользователем shnurik, 30 ноя 2009.

  1. shnurik

    shnurik Гость

    Репутация:
    0
    (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
      Размер файла:
      24,3 КБ
      Просмотров:
      15

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