Algoritmi

function MakeEmptyStack(): pointer
LNewCell(Stack)
Length(L)0
return L

function IsEmpty Stack(pointer L): boolean
return Length(L)=0

function Top(pointer L): info
if IsEmptyStack(L) then error
else return Infos(L)[Length(L)-1]

function Pop(pointer L): info
if Length(L)=0 then error
else
xTop(L)
Length(L)Length(L)-1
return x

procedure Push(info x, pointer L):
if Length(L)=N then error
else
Length(L)Length(L)+1
Infos(L)[Length(L)-1]x

Rindas reprezentācija nepārtrauktā atmiņā.


function MakeEmpty Queue(): pointer
LNewCell(Queue)
Front(L)0
Length(L)0
return L

function IsEmpty Queue(pointer L): boolean
return Length(L)=0

function Dequeue(pointer L): info
if IsEmptyQueue(L) then error
else
xInfos(L)[Front(L)]
Front(L)(Front(L)+1) mod N
Length(L)Length(L)-1
return x…