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

unit DynDeq;
interface
type
	Info = record
		ch: char;
	end;
	PTDeqItem = ^s;
		s = Record
			Data: Info;
			next, pred: PTDeqItem;
		End;
	TDeq = Record
		pStart, pFinish: PTDeqItem;
	End;

Procedure DestroyDeq(Var Deq: TDeq); {1) ЋзЁбвЁвм ¤ҐЄ}
Function EmptyDeq(Var Deq: TDeq): Boolean; {2) Џгбв «Ё ¤ҐЄ?}
Procedure AddStartDeq(Var Deq: TDeq; data: Info); {3) „®Ў ўЁвм н«Ґ¬Ґ­в ў ­ з «® ¤ҐЄ }
Procedure AddEndDeq(Var Deq: TDeq; data: Info); {3) „®Ў ўЁвм н«Ґ¬Ґ­в ў Є®­Ґж ¤ҐЄ }
procedure GetStartDeq(Var Deq: TDeq; var k: info); {4) ‚Ґа­гвм ­ з «® ¤ҐЄ }
procedure getFinishDeq(Var Deq: TDeq; var k: info); {4) ‚Ґа­гвм Є®­Ґж ¤ҐЄ }
procedure DeleteStartDeq(Var Deq: TDeq); {5) “¤ «Ёвм ­ з «® ¤ҐЄ }
function MemoryControl: boolean; {6) …бвм «Ё бў®Ў®¤­ п Ї ¬пвм}

implementation

Procedure DestroyDeq(Var Deq: TDeq);
	var k: info;
	Begin
		While Deq.pStart<>nil Do deq.pstart:=deq.pstart^.next;
		deq.pfinish:=nil;
	End;

Function EmptyDeq(Var Deq: TDeq): Boolean;
	Begin
		EmptyDeq := (Deq.pStart = nil) and (Deq.pFinish = nil);
	End;

Procedure AddStartDeq(Var Deq: TDeq; data: Info);
	Var u: PTDeqItem;
	Begin
		new(u);
		u^.next := Deq.pStart;
		u^.Data := data;
		u^.pred:=nil;
		Deq.pStart^.pred := u;
		Deq.pStart := u;
		u:=nil;
	End;

Procedure AddEndDeq(Var Deq: TDeq; data: Info);
	Var u: PTDeqItem;
	Begin
		new(u);
		u^.next := nil;
		u^.pred := Deq.pFinish;
		u^.Data := data;
		Deq.pFinish^.next := u;
		Deq.pFinish := u;
		u:=nil;
	End;

procedure GetStartDeq(Var Deq: TDeq; var k: info);
	Begin
		k:=Deq.pstart^.data;
	End;

procedure getFinishDeq(Var Deq: TDeq; var k: info);
	begin
		k:=Deq.pfinish^.data;
	End;

procedure DeleteStartDeq(Var Deq: TDeq);
begin
	Deq.pstart:=Deq.pstart^.next;
end;

function MemoryControl: boolean;
	begin
		MemoryControl:=MaxAvail >= SizeOf(PTDeqItem);
	end;

End.