Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.05.2011, 15:29   #1
decantnik
Пользователь
 
Аватар для decantnik
 
Регистрация: 15.10.2008
Сообщений: 36
По умолчанию [pascal] Двусвязный список

Даны указатели P1 и P2 на барьерный и текущий элементы двусвязного списка. Также даны пять чисел. Описать процедуру LBInsertBefore (L,D) которая вставляет новый элепмент со значением D перед текущим элементом списка L. Вставленный элемент становится текущим. С помощью это процедуры вставить пять данных чисел в исходный список и вывести новый адрес его текущего элемента.

Можно ли скинуть листинг работающей программы с двусвязным списком.. Любой. А дальше по-ходу дела разберусь.
decantnik вне форума Ответить с цитированием
Старый 05.05.2011, 21:47   #2
freemanoid
 
Аватар для freemanoid
 
Регистрация: 05.05.2011
Сообщений: 7
Радость

Вот процедуры инициализации списка и добавления элемента в конец.

Код:
type
    PList = ^TList;
    TList = record
		inf: byte;
        next, prev: PList;
    end;
var
    ListBegin, ListEnd: PList;

procedure ListInit (var ListBegin, ListEnd: PList);
begin
    ListBegin:= nil;
    ListEnd:= nil;
end;

procedure AddToList (inf: byte; var ListBegin, ListEnd: PList);
var
	new_element: PList;	
begin
    new (new_element);
	if ListEnd = nil then
    begin
    	ListBegin:= new_element;
        ListEnd:= new_element;
        ListEnd^.next:= nil;
        ListEnd^.prev:= nil;
    end
    else
    begin
        new_element^.prev:= ListEnd;
        new_element^.next:= nil;
        ListEnd^.next:= new_element;
    end;
   	ListEnd:= new_element;
    new_element^.inf:= inf;
end;
freemanoid вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
двусвязный список Olezhka Помощь студентам 1 23.03.2011 11:00
двусвязный список klykovka Помощь студентам 8 22.05.2010 18:58
двусвязный список на си++ mizantrop32 Общие вопросы C/C++ 0 18.05.2010 17:45
Двусвязный список kruserg Паскаль, Turbo Pascal, PascalABC.NET 1 28.04.2009 10:37
[Pascal]Двусвязный кольцевой список, несколько процедур Fuaran8989 Фриланс 1 25.05.2008 20:22