Адабиётлар

Рўйхатлар устидаги амалларга доир масалалар 

---

―Маълумотлар тузилмаси ва алгоритмлар‖ фанидан маърузалар матни.
муаллиф: Б.Б.Акбаралиев 
1 масала. 
Фараз қилайлик рўйхатни текшириб, унда информацион майдони 4 га 
тенг бўлган элементларини ўчириш талаб қилинган бўлсин. 
Р орқали ишчи кўрсаткични белгилаб оламиз, процедура бошида P = 
Lst. Шундай Q кўрсаткич киритамизки, у Р дан бир элемент орқада юрсин. Р 
кўрсаткич керакли элементни топганда ушбу элемент Q га нисбатан 
навбатдаги элемент сифатида ўчирилади. 
Q = Nil 
P = Lst 
While P <> Nil do
If Info(P) = 4 then
If Q = Nil then
Pop(Lst) 
FreeNode(P) 
P = Lst 
Else 
DelAfter(Q, X) 
EndIf 
Else 
Q = P 
P = Ptr(P) 
EndIf 
EndWhile 
2 масала. 
Информацион майдони ўсиш тартибида тартибланган рўйхат берилган 
бўлсин. Ушбу рўйхатга информацион майдони Х га тенг бўлган шундай 
элемент қўйиш талаб қилинадики, ҳосил бўлган рўйхатда тартибланганлик 
бузилмасин. 
Фараз қилайлик X = 16 бўлсин. Бошланғич шартлар: Q = Nil, P = Lst. 
Янги элемент 3-чи ва 4-чи элементлар орасига қўйилиши лозим бўлсин 
(юқоридаги чизма). 
Q =Nil 
P = Lst 
While (P <> Nil) and (X > Info(P)) do 
Q = P 
P = Ptr(P) 
EndWhile 
if Q = Nil then
Push(Lst, X) 
EndIf 
InsAfter(Q, X) 

---

―Маълумотлар тузилмаси ва алгоритмлар‖ фанидан маърузалар матни.
муаллиф: Б.Б.Акбаралиев 
Келтирилган мисолларни Паскал тилида реализация қилиш: 
1-масала: 
Q:=nil; 
P:=Lst; 
While P <> nil do 
If P^.Info = 4 then 
begin
If Q = nil then 
begin 
Pop(Lst); 
P:=Lst; 
end 
Else Delafter(Q,X); 
End; 
Else 
begin 
Q:=P; 
P:=P^.Next; 
end; 
end; 
2-масала: 
Q:=nil; 
P:=Lst; 
While (P <> nil) and (X > P^.Info) do 
begin 
Q:=P; 
P:=P^.Next; 
end; 
{Мазкур жойга элемент қўйилади} 
If Q = nil then Push(Lst, X); 
InsAfter(Q, X); 
End;