Навигация
Главная
Поиск
Форум
FAQ's
Ссылки
Карта сайта
Чат программистов

Статьи
-Delphi
-C/C++
-Turbo Pascal
-Assembler
-Java/JS
-PHP
-Perl
-DHTML
-Prolog
-GPSS
-Сайтостроительство
-CMS: PHP Fusion
-Инвестирование

Файлы
-Для программистов
-Компонеты для Delphi
-Исходники на Delphi
-Исходники на C/C++
-Книги по Delphi
-Книги по С/С++
-Книги по JAVA/JS
-Книги по Basic/VB/.NET
-Книги по PHP/MySQL
-Книги по Assembler
-PHP Fusion MOD'ы
-by Kest
Professional Download System
Реклама
Услуги

Автоматическое добавление статей на сайты на Wordpress, Joomla, DLE
Заказать продвижение сайта
Программа для рисования блок-схем
Инженерный калькулятор онлайн
Таблица сложения онлайн
Популярные статьи
OpenGL и Delphi... 65535
Форум на вашем ... 65535
HACK F.A.Q 65535
Бип из системно... 65535
Гостевая книга ... 65535
Invision Power ... 65535
Содержание сайт... 65535
Организация зап... 65535
Вызов хранимых ... 65535
Программируемая... 65535
Эмулятор микроп... 65535
Подключение Mic... 65535
Создание потоко... 65535
Приложение «Про... 65535
Оператор выбора... 65535
Создание отчето... 64172
Модуль Forms 63877
Пример работы с... 60793
ТЕХНОЛОГИИ ДОСТ... 60758
Имитационное мо... 56283
Реклама
Сейчас на сайте
Гостей: 8
На сайте нет зарегистрированных пользователей

Пользователей: 13,080
новичок: setan
Новости
Реклама
Выполняем курсовые и лабораторные по разным языкам программирования
Подробнее - курсовые и лабораторные на заказ
Delphi, Turbo Pascal, Assembler, C, C++, C#, Visual Basic, Java, GPSS, Prolog, 3D MAX, Компас 3D
Заказать программу для Windows Mobile, Symbian

Файл записей с выводом обратного заголовка на Turbo Pascal
Диплом RSA, ЭЦП, сертификаты, шифрование на C#
Моделирование работы участка термической обработки шестерен на GPSS + По...

Реклама



Подписывайся на YouTube канал о программировании, что бы не пропустить новые видео!

ПОДПИСЫВАЙСЯ на канал о программировании
Построение двусвязного списка


Построение двусвязанного списка осуществляется аналогично построению односвязанного списка. Особенностью двусвязанного списка является то, что в первой записи списка поле Next содержит адрес второго элемента списка, а поле Pre следует сделать равным Nil. И наоборот, в последней записи поле Next содержит Nil, а поле Pre – адрес предпоследнего элемента. В этом случае в программе требуется отслеживать уже три указателя: первую запись в списке, адрес текущей записи и последнюю запись.

procedure NewListRec;
var i:integer;
begin
New(List); {выделить память для первой записи }
{заполнить информационные поля}
BegList^.Name:=concat('person1');
BegList^.phone:='01';
BegList^.Pre:= nil;
CurrentRec := BegList;{сделать первую запись те-кущей}
for i:=2 to n do
begin
{ выделить память для следующей записи }
New(CurrentRec^.Next);
str(i,s);
CurrentRec^.Next^.Name:=concat('person',s);
CurrentRec^.Next^.phone:=concat('0',s);
CurrentRec^.Next^.Pre:=CurrentRec;
{ сделать следующую запись текущей }
CurrentRec := CurrentRec^.Next;
end;
{ после последней записи следующей нет }
CurrentRec^.Next := nil;
EndList:=CurrentRec;
end;




Перемещение по списку, удаление списка и освобождение динамической памяти производится аналогично односвязанному списку.
Опубликовал Kest June 03 2010 19:02:41 · 0 Комментариев · 7927 Прочтений · Для печати

• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •


Комментарии
Нет комментариев.
Добавить комментарий
Имя:



smiley smiley smiley smiley smiley smiley smiley smiley smiley
Запретить смайлики в комментариях

Введите проверочный код:* =
Рейтинги
Рейтинг доступен только для пользователей.

Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.

Нет данных для оценки.
Гость
Имя

Пароль



Вы не зарегистрированны?
Нажмите здесь для регистрации.

Забыли пароль?
Запросите новый здесь.
Поделиться ссылкой
Фолловь меня в Твиттере! • Смотрите канал о путешествияхКак приготовить мидии в тайланде?
Загрузки
Новые загрузки
iChat v.7.0 Final...
iComm v.6.1 - выв...
Visual Studio 200...
CodeGear RAD Stud...
Шаблон для новост...

Случайные загрузки
Фильтры изображений
Ведение справочны...
Autorunner
Фундаментальные а...
Таймер и секундомер
Иллюстрированный ...
Geo-Whois
Программирование ...
Реализация ЭЦП по...
Tag Игра "Пятнашк...
Отключение и вклю...
StartMark
Averaging [Исходн...
Tetris 2002
Шифрование по алг...
База игр
Х. М. Дейтел, П. ...
Язык программиров...
Алгоритмы шифрова...
Программирование ...

Топ загрузок
Приложение Клие... 100455
Delphi 7 Enterp... 86138
Converter AMR<-... 20071
GPSS World Stud... 12523
Borland C++Buil... 11608
Borland Delphi ... 8522
Turbo Pascal fo... 7035
Visual Studio 2... 4992
Калькулятор [Ис... 4744
FreeSMS v1.3.1 3539
Случайные статьи
Фильтрация таблиц ...
Копирование и прис...
1.5. ПРИМЕР БАЗЫ Д...
Как получить домен...
Блоки имеют следую...
Задание: обзор чле...
Просмотр списка до...
Ошибка TACTIVEFORM...
Изменение тайтла и...
Игры. Как победить...
Жесткие диски
Конфликт при удалении
Измерение длительн...
Сжатие страниц на PHP
В текстовом файле ...
Новый вид панели F...
на 90%
Поиск максимальног...
Практика
Прогиб мембраны
Линии границы
Задание на моделир...
5. КОС отсылает эт...
Ввод и вывод данны...
АНТИПАТТЕРН: ИСПОЛ...
Статистика



Друзья сайта
Программы, игры


Полезно
В какую объединенную сеть входит классовая сеть? Суммирование маршрутов Занимают ли таблицы память маршрутизатора?