نكاتي در مورد ساختمان داده

[Daleeeeer]

زیر برنامه های اضافه کردن و حذف کردن از پشته i ام در پشته های چندگانه:

procedure pop (i:integer,var k:items);

begin

	if t[i]=b[i] then stackempty(i)

	else begin

		k:=s[t[i]];

		t[i]:=t[i]-1;

	end;

end;

procedure push (i:integer,var k:items);

begin

	if t[i]=b[i+1] then stackfull(i)

	else begin

		k:=t[i]+1;

		s[t[i]]:=k;

	end;

end;