Лабораторные работы / Laba10 / BiLin

unit DynBilin;
interface

type
Info = record
ch: char;
end;
TBiList= ^S;
S = record
Inf: info; {‡­ зҐ­ЁҐ}
Next: TBiList; {‘«Ґ¤гойЁ© ®ЎкҐЄв}
pred: TBiList;
End;
Tbilin = record
start: tbilist;
end;

procedure ClearBiList(var List: TBiLin); {1) Џа®жҐ¤га  ®зЁйҐ­Ёп бЇЁбЄ }
function EmptyBiList(List: TBiLin): boolean; {2) ”г­ЄжЁп Їа®ўҐаЄЁ, Їгбв «Ё бЇЁб®Є?}
function BeginBiList(List: TBiLin) : TBiList; {3) ”г­ЄжЁп ў®§ўа й Ґв ЇҐаўл© н«Ґ¬Ґ­в бЇЁбЄ }
function SearchEndBiList(list: TBiLin): TBiList; {3) ”г­ЄжЁп ў®§ўа й Ґв Ї®б«Ґ¤­Ё© н«Ґ¬Ґ­в бЇЁбЄ }
function NextBiList(k: TBiList): TBiList; {4) Џа®жҐ¤га  ЇҐаҐе®¤  Є б«Ґ¤го饬г н«Ґ¬Ґ­вг}
function PredBiList(k: TBiList): TBiList; {4) Џа®жҐ¤га  ЇҐаҐе®¤  Є ЇаҐ¤л¤г饬г н«Ґ¬Ґ­вг}
procedure AddBedinBiList(var list: TBiLin; data: Info); {5.1) Џа®жҐ¤га  ¤®Ў ў«Ґ­Ёп н«Ґ¬Ґ­в  ў ­ з «® бЇЁбЄ }
procedure AddZentrumBiList(data: info; p: TBiList); {5.2) Џа®жҐ¤га  ¤®Ў ў«Ґ­Ёп н«Ґ¬Ґ­в  Ї®б«Ґ н«Ґ¬Ґ­в  p}
procedure AddEndBiList(var list: TBiLin; data: info); {5.3) Џа®жҐ¤га  ¤®Ў ў«Ґ­Ёп н«Ґ¬Ґ­в  ў Є®­Ґж бЇЁбЄ }
procedure GetBeginBiList(list: TBiLin; var k: info);
{6.1) Џа®жҐ¤га  ЇаЁбў Ёў Ґв ЇҐаҐ¬Ґ­­®© k Ё­д®а¬ жЁо Ё§ ЇҐаў®Ј® н«Ґ¬Ґ­в  бЇЁбЄ }
procedure GetEndBiList(list: TBiLin; k: info);
{6.3) Џа®жҐ¤га  ЇаЁбў Ёў Ґв ЇҐаҐ¬Ґ­­®© k Ё­д®а¬ жЁо Ё§ Ї®б«Ґ¤­ҐЈ® н«Ґ¬Ґ­в  бЇЁбЄ }
procedure DelBeginBiList(var List: TBiLin); {7.1) “¤ «Ґ­ЁҐ ЇҐаў®Ј® н«Ґ¬Ґ­в  бЇЁбЄ }
procedure DelNexTBiList(p: TBiList); {7.2) “¤ «Ґ­ЁҐ б«Ґ¤го饣® н«Ґ¬Ґ­в }
procedure DelEndBiList(list: TBiLin);{7.3) “¤ «Ґ­ЁҐ Ї®б«Ґ¤­ҐЈ® н«Ґ¬Ґ­в  бЇЁбЄ }

Implementation

procedure ClearBiList(var List: TBiLin);
var a: TBiList;
begin
while list.start <> nil do {Џ®Є  ­Ґ ¤®и«Ё ¤® Ї®б«Ґ¤­ҐЈ® н«Ґ¬Ґ­в ...}
Begin
a:=list.start;
list.start:=list.start^.next;
dispose(a);
end;
a:=nil;
end;

function EmptyBiList(List: TBiLin): boolean;
begin
emptyBiList:=List.start=nil; {True Ґб«Ё Їгбв, false - Ґб«Ё ­Ґ Їгбв}
end;

function BeginBiList(List: TBiLin) : TBiList;
begin
BeginBiList:=List.start;
end;

function SearchEndBiList(list: TBiLin): TBiList;
var last: tbilist;
Begin
last:=list.start;
while last^.next <> nil do last:=last^.next;
SearchEndBiList:=last;
last:=nil;
end;

function NextBiList(k: TBiList): TBiList;
Begin
NextBiList:=k^.next;
end;

function PredBiList(k: TBiList): TBiList;
Begin
PredBiList:=k^.pred;
end;

procedure AddBedinBiList(var list: TBiLin; data: Info);
var tmp: TBiList;
Begin
new(tmp);
tmp^.inf:=data;
tmp^.pred:=nil;
tmp^.next:=list.start;
list.start^.pred:=tmp;
list.start:=tmp;
tmp:=nil;
end;

procedure AddZentrumBiList(data: info; p: TBiList);
var tmp: TBiList;
Begin
new(tmp);
tmp^.inf:=data;
tmp^.next:=p^.next;
tmp^.next^.pred:=tmp;
p^.next:=tmp;
tmp^.pred:=p;
end;

procedure AddEndBiList(var list: TBiLin; data: info);
var buf: TBiList;
Begin
new(buf);
buf^.inf:=data;
buf^.next:=nil;
buf^.pred:=SearchEndBiList(list);
buf^.pred^.next:=buf;
buf:=nil;
end;

procedure GetBeginBiList(list: TBiLin; var k: info);
Begin
k:=list.start^.inf;
end;

procedure GetEndBiList(list: TBiLin; k: info);
Begin
k:=SearchEndBiList(list)^.inf;
end;

procedure DelBeginBiList(var List: TBiLin);
begin
List.start:=list.start^.next;
list.start^.pred:=nil;
end;

{“¤ «Ґ­ЁҐ б«Ґ¤го饣® н«Ґ¬Ґ­в }
procedure DelNexTBiList(p: TBiList);
Begin
p^.next:=p^.next^.next;
p^.next^.pred:=p;
end;

procedure DelEndBiList(list: TBiLin);
Begin
SearchEndBiList(list)^.pred^.next:=nil;
end;

end.