Лабораторные работы / 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.