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

unit LifoArr;

interface
type Info = record
	ch: char;
end;

var arr: array [1..100] of Info;

procedure DestroyLifo(var i: integer); {1) ЋзЁбвЁвм б⥪}
function EmptyLifo(i: integer): boolean; {2) Џгбвм «Ё б⥪}
procedure AddLifo(var i: integer; k: info); {3) „®Ў ўЁвм н«-в ў б⥪}
function GetLifo(var i: integer; var k: info): boolean; {4) ‚§пвм н«-в Ё§ б⥪ }
procedure DelLifo(var i: integer); {5) “¤ «Ёвм н«-в Ё§ б⥪ }
function MemoryControl(i: integer): boolean; {6) …бвм «Ё Ї ¬пвм?}

implementation

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

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

procedure AddLifo(var i: integer; k: info);
var j: integer;
begin
	i:=i+1;
	for j := i-1 downto 1 do arr[j+1]:=arr[j];
	arr[1]:=k;
end;
	
function GetLifo(var i: integer; var k: info): boolean;
begin
	GetLifo:=true;
	if i>= 1 then
		begin
			k:=arr[i];
			i:=i-1;
		end
	else		GetLifo:=false;
end;

procedure DelLifo(var i: integer);
	begin
		if i>=1 then i:=-1;
	end;

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

end.