Адабиётлар

Стекларни бир боғламли рўйхатлар ёрдамида амалга ошириш 
Ихтиѐрий бир боғламли рўйхатни стек деб қараш мумкин. Лекин, 
рўйхат бир ўлчамли массив кўринишида ифодаланганда, стекга нисбатан 
устунликка (афзалликка) эга бўлади. Сабаби, стекда массив ўлчами олдиндан 
берилади, рўйхатда эса ўлчам олдиндан берилмайди. 
Рўйхатга тадбиқ қилиш мумкин бўлган стек амаллари 
1). Стекга элемент қўшиш учун, рўйхат алгоритмида Lst кўрсаткични 
Stack кўрсаткичига ўзгартириш лозим (Push(S, X) амали). 
P = GetNode 
Info(P) = X 
Ptr(P) = Stack 
Stack = P 
2) Стекни бўш ѐки бўш эмаслигини текшириш (Empty(S))
If Stack = Nil then Print ―Стек бўш‖ 
Stop 
3) Стекдан элементни танлаш (POP(S)) 
P = Stack 
X = Info(P) 
Stack = Ptr(P) 
FreeNode(P) 

---

―Маълумотлар тузилмаси ва алгоритмлар‖ фанидан маърузалар матни.
муаллиф: Б.Б.Акбаралиев 
Паскалда амалга ошириш: 
Стек 
Lst кўрсаткич ўрнига Stack кўрсаткичидан фойдаланилади. 
Элемент қўшиш (Push (S, X)) процедураси 
procedure Push(var Stack: PNode; X: Integer); 
var 
P: PNode; 
begin 
New(P); 
P^.Info:=X; 
P^.Next:=Stack; 
Stack:=P; 
end; 
Бўшлигини текшириш (Empty) 
function Empty(Stack: PNode): Boolean; 
begin 
If Stack = nil then Empty:=True Else Empty:=False; 
end; 
Элемент танлаш (Pop) процедураси 
procedure Pop(var X: Integer; var Stack: PNode); 
var 
P: PNode; 
begin 
P:=Stack; 
X:=P^.Info; 
Stack:=P^.Next; 
Dispose(P); 
end; 
Рўйхатга тадбиқ қилиш мумкин бўлган навбат амаллари. 
Рўйхат боши кўрсаткичи сифатида навбат боши F кўрсаткичи, рўйхат 
охирги элементини кўрсатувчи кўрсаткич сифатида навбат охири R 
кўрсаткичи қаралади. 
1)
Навбатдан элементни ўчириш амали (Remove(Q, X)). 
Биламизки, навбатда элементни ўчириш амали унинг бошидан амалга 
оширилиши лозим.
P = F 
F = Ptr(P) 
X = Info(P)
FreeNode(P) 
2)
Навбатни бўшлигини тешириш амали (Empty(Q)) 
If F = Nil then Print ―Навбат бўш‖ 
Stop 
3)
Навбатга элемент қўйиш амали (Insert(Q, X)). 
Навбатга элемент қўйиш унинг охиридан амалга оширилиши лозим. 
P = GetNode 

---

―Маълумотлар тузилмаси ва алгоритмлар‖ фанидан маърузалар матни.
муаллиф: Б.Б.Акбаралиев 
Info(P) = X 
Ptr(P) = Nil
Ptr(R)= P 
R = P