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

unit FifoArr;

interface 
type Info = record
	ch: char;
end;

var 
	ARR: array[1..100] of info;

procedure DestroyArr(var i: integer); {1) ЋзЁбвЁвм ®зҐаҐ¤м}
function EmptyFifo(i: integer): boolean; {2) Џгбвм «Ё ®зҐаҐ¤м}
function AddFifo(var i: integer; k: info): boolean; {3) „®Ў ўЁвм н«-в ў ®зҐаҐ¤м}
function GetFifo(var i: integer; var k : info): boolean; {4) ‚§пвм н«-в Ё§ ®зҐаҐ¤м}
function DelFifo(var i: integer):  boolean; {5) “¤ «Ёвм н«-в Ё§ ®зҐаҐ¤м}
function MemoryControl(i: integer): boolean; {6) …бвм «Ё Ї ¬пвм?}
implementation

procedure DestroyArr(var i: integer);
begin
	i:=0;
end;

function EmptyFifo(i: integer): boolean;
begin
	EmptyFifo:=i=0;
end;

function AddFifo(var i: integer; k: info): boolean;
begin
	if i+1 > 100 then
		AddFifo:=false
	else
		begin
			AddFifo:=true;
			i:=i+1;
			arr[i]:=k;
		end;
end;

function GetFifo(var i: integer; var k : info): boolean;
	begin
		if i > 0 then
			begin
				GetFifo:=true;
				k:=arr[i];
				i:=i-1;
			end
		else
			getFifo:=false;
	end;

function DelFifo(var i: integer):  boolean;
	begin
		if i > 0 then
			begin
				 DelFifo:=true;
				i:=i-1;
			end
		else
			 DelFifo:=false;
	end;

function MemoryControl(i: integer): boolean;
	begin
		MemoryControl:=i <100;
	end;
end.