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