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

unit DynLinList;
interface

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

procedure ClearLinList(var List: TLin); {1) Џа®жҐ¤га  ®зЁйҐ­Ёп бЇЁбЄ }
function EmptyLinList(List: TLin): boolean; {2) ”г­ЄжЁп Їа®ўҐаЄЁ, Їгбв «Ё бЇЁб®Є?}
function BeginLinList(List: TLin) : tLinList; {3) ”г­ЄжЁп ў®§ўа й Ґв ЇҐаўл© н«Ґ¬Ґ­в бЇЁбЄ }
function NextLinlist(k: TLinList): TLinList; {4) Џа®жҐ¤га  ЇҐаҐе®¤  Є б«Ґ¤го饬г н«Ґ¬Ґ­вг}
procedure AddBedinLinList(var list: TLin; data: Info);{5.1) Џа®жҐ¤га  ¤®Ў ў«Ґ­Ёп н«Ґ¬Ґ­в  ў ­ з «® бЇЁбЄ }
procedure AddZentrumLinList(data: info; p: TLinList); {5.2) Џа®жҐ¤га  ¤®Ў ў«Ґ­Ёп н«Ґ¬Ґ­в  Ї®б«Ґ н«Ґ¬Ґ­в  p}
procedure AddEndLinList(var list: TLin; data: info); {5.3) Џа®жҐ¤га  ¤®Ў ў«Ґ­Ёп н«Ґ¬Ґ­в  ў Є®­Ґж бЇЁбЄ }
procedure GetBeginLinList(list: TLin; var k: info); {6.1) ЏаЁбў Ёў ­ЁҐ ЇҐаҐ¬Ґ­­®© ¤ ­­лҐ ЇҐаў®Ј® н«Ґ¬Ґ­в  бЇЁбЄ }
procedure GetZentrumLinList(p: TLinList; var k: info); {6.2) ЏаЁбў Ёў ­ЁҐ ЇҐаҐ¬Ґ­­®© ¤ ­­лҐ бҐаҐ¤Ё­л бЇЁбЄ }
procedure GetEndLinList(list: TLin; var k: info); {6.3) ЏаЁбў Ёў Ґв ЇҐаҐ¬Ґ­­®© ¤ ­­ле Ё§ Ї®б«Ґ¤­ҐЈ® н«Ґ¬Ґ­в  бЇЁбЄ }
procedure DelBeginLinList(var List: TLin); {7.1) “¤ «Ґ­ЁҐ ЇҐаў®Ј® н«Ґ¬Ґ­в  бЇЁбЄ }
procedure DelNextLinList(p: TLinList); {7.2) “¤ «Ґ­ЁҐ б«Ґ¤го饣® н«Ґ¬Ґ­в }
procedure DelEndLinList(var list: TLin); {7.3) “¤ «Ґ­ЁҐ Ї®б«Ґ¤­ҐЈ® н«Ґ¬Ґ­в  бЇЁбЄ }

Implementation

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

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

function BeginLinList(List: TLin) : tLinList;
begin
	BeginLinList:=List.start;
end;

function NextLinlist(k: TLinList): TLinList;
Begin
	NextLinList:=k^.next;
end;

procedure AddBedinLinList(var list: TLin; data: Info);
var tmp: TLinList;
Begin
	new(tmp);
	tmp^.inf:=data;
	tmp^.next:=list.start;
	list.start:=tmp;
end;

procedure AddZentrumLinList(data: info; p: TLinList);
var tmp: tlinlist;
Begin
	new(tmp);
	tmp^.inf:=data;
	tmp^.next:=p^.next;
	p^.next:=tmp;
end;

procedure AddEndLinList(var list: TLin; data: info);
var buf, last: TLinList;
Begin
	new(buf);
	buf^.inf:=data;
	last:=list.start;
	while last^.next <> nil do last:=last^.next;
	last^.next:=buf;
	buf^.next:=nil;
	last:=nil;
end;

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

procedure GetZentrumLinList(p: TLinList; var k: info);
Begin
	k:=p^.inf;
end;

procedure GetEndLinList(list: TLin; var k: info);
var last:tlinlist;
Begin
	last:=list.start;
	while last^.next <> nil do last:=last^.next;
	k:=last^.inf;
end;

procedure DelBeginLinList(var List: TLin);
var tmp: TLinList;
begin
	tmp:=List.start;
	List.start:=list.start^.next;
	dispose(tmp);
	tmp:=nil;
end;

procedure DelNextLinList(p: TLinList);
var buf: tlinlist;
	Begin
		buf:=p^.next;
		p^.next:=p^.next^.next;
		dispose(buf);
		buf:=nil;
	end;

procedure DelEndLinList(var list: TLin);
var buf, last:tlinlist;
Begin
	last:=list.start;
	while last^.next^.next <> nil do last:=last^.next;
	buf:=last^.next;
	last^.next:=nil;
	dispose(buf);
	buf:=nil;
end;

end.