Адабиётлар

 
Рўйхатга элемент қўйиш ва чиқариш 
Фараз қилайлик, рўйхатга элемент қўйиш лозим. Бунинг учун биринчи 
навбатда, янги элементни рўйхатнинг қайси жойига қўйилиши аниқланади, 
яъни шундай элемент аниқланадики, янги элемент ундан кейин қўйилади. 
Янги элементни қўйиш InsAfter(Q, X) процедураси ѐрдамида, ўчириш эса
DelAfter(Q, X) процедура орқали амалга оширилади.
Бунда P ишчи кўрсаткич шундай элементни кўрсатадики, ундан кейин 
янги элемент қўйилади ѐки кейинги элемент ўчирилади (қаранг, чизма). 
Мисол: 
Фараз қилайлик, рўйхатга ишчи кўрсаткичи Р бўлган элементдан кейин 
информацион майдони Х бўлган янги элемент қўйиш талаб қилинган бўлсин. 

---

―Маълумотлар тузилмаси ва алгоритмлар‖ фанидан маърузалар матни.
муаллиф: Б.Б.Акбаралиев 
Бунинг учун: 
1) Янги элементни ҳосил қилиш зарур.
Q = GetNode 
2) Ҳосил қилинган элементнинг информацион майдонига Х нинг 
қийматини ўзлаштириш.  
Info(Q) = X 
3) Ҳосил қилинган элементни қўйиш.  
Ptr(Q) = Ptr(P)
Ptr(P) = Q 
Юқорида келтирилган процедура InsAfter(Q, X) бўлиб ҳисобланади.  
Фараз қилайлик, рўйхатга ишчи кўрсаткичи Р бўлган элементдан 
кейинги элемент ўчирилиши талаб қилинган бўлсин. 
Бунинг учун: 
1)
Ўчирилаѐтган элемент кўрсаткичига Q қийматни ўзлаштирамиз.
Q = Ptr(P) 
2) Х ўзгарувчида ўчирилаѐтган элемент информацион майдони 
қийматини сақлаймиз.  
X = Info(Q) 
3) Ўчирилаѐтган элемент кўрсаткичи қийматини ундан кейин келувчи 
элемент қийматига ўзгартирамиз ва ўчиришни амалга оширамиз. 
Ptr(P) = Ptr(Q)
FreeNode(Q) 
Мазкур процедура - DelAfter(P, X). 
Юқорида келтирилган процедуралар Паскал тилида қуйидаги 
кўринишга эга бўлади: 
procedure InsAfter(var Q: PNode; X: Integer); 
var 
Q: PNode; 
begin 
New(Q); 
Q^.Info:=X;
Q^.Next:=P^.Next; 
P^.Next:=Q; 
procedure DelAfter(var Q: PNode; var X: Integer); 
var 
Q: PNode; 
begin 
Q:=P^.Next; 
P^.Next:=Q^.Next; 
X:=Q^.Info; 
Dispose(Q); 
end;