Двусвязный список

[VektorAB]

Насколько помню указатель это переменная которая в качестве своего значения содержит адресс байта памяти.Адрес в свою очередь занимает четыре байта и хранится в виде двух слов, одно из которых определяет сегмент, второе – смещение.
Следовательно указатель занимает 2б+2б=4б.

Ой эти 3 строки, Опустим дааный вариант )

[eoln]

Ну на счёт 2-х, а не черырёх байт я написал из-за того, что Паскаль родился в эпоху 16-разрядных систем(16 бит). А указатель может занимать и 2 и 4 и 8 байт в зависимости от разрядности ОС.

[Work Group]

простите,а как переделать ваш вариант под работу с типом char?просто я выбрал такой принцип заполнения

unit Unit1;
interface
type
Znch= char;
List= ^TList;
TList= record
data : Znch;
next : List;
prev : List;
end;
var
trmB,trmE,ptrTop: List;

procedure Append(var Head, Tail: List; value: Znch);

procedure Append(var Head, Tail: List; value: Znch);
var p: List;
begin
new(p);
p^.data:= value;
p^.prev:= Tail;
p^.next:= nil;
if Head = nil then Head:= p
else Tail^.next:= p;
Tail:= p;
end;