Адабиётлар

Дарахтга янги элемент қўшиш процедураси 
Дарахтга бирор бир элементни қўшишдан олдин дарахтда берилган 
калит бўйича қидирувни амалга ошириш лозим бўлади. Агар берилган 
калитга тенг калит мавжуд бўлса, у ҳолда дастур ўз ишини якунлайди, акс 
ҳолда дарахтга элемент қўшиш амалга оширилади.
Дарахтга янги ѐзувни киритиш учун, аввало дарахтни шундай тугунини 
топиш лозимки, натижада мазкур тугунга янги элемент қўшиш мумкин 
бўлсин. Керакли тугунни қидириш алгоритми ҳам худди берилган калит 
бўйича тугунни топиш алгоритми каби бўлади. Бироқ берилган калит бўйича 
қидирув процедурасидан тўғридан-тўғри (бевосита) фойдаланиб бўлмайди, 
сабаби, қидирув процедурасида, қайси тугунда мурожаат NIL (search = nil) 
бўлгани фиксирланмайди.

---

―Маълумотлар тузилмаси ва алгоритмлар‖ фанидан маърузалар матни.
муаллиф: Б.Б.Акбаралиев 
Қидирув процедурасини шундай модификация қиламизки, қўшимча 
самара сифатида янги процедурамиз берилган калит турган тугунни 
фиксирласин (қидирув мувофақиятли бўлса), ѐки шундай тугунники, ушбу 
тугунни қайта ишлагандан кейин қидирув якунлансин (қидирув 
мувофақиятли бўлса). 
Дарахтда қўшилаѐтган элемент калитига тенг калитли элемент йўқ бўлган 
ҳолда элементни қўшиш процедурасини келтириб ўтамиз. 
q=nil 
p=tree 
WHILE p<>nil DO 
q=p 
IF key=k (p) 
THEN search=p 
RETURN 
END IF 
IF keyTHEN p=left (p) 
ELSE p=right (p) 
END IF 
END WHILE 
{Берилган калитга тенг тугун топилмади, элемент қўшиш талаб қилинади. 
Ота бўлиши мумкин тугунга q кўрсаткич берилади.} 
V=maketree (key, rec) 
{Қўйилаѐтган V элемент чап ѐки ўнг ўғил бўлишини аниқлаш лозим.} 
IF keyTHEN left (q)=V 
ELSE right (q)=V 
END IF
search=V 
RETURN