Ўзбекистон алоқа ва ахборотлаштириш агентлиги тошкент ахборот технологиялари университети

Алгоритм 
Бинар дарахт яратиш процедурси 
Бинар дарахтни хосил қилиш учун ЭХМ хотирасида элементлар қуйидаги турда бўлиши лозим 

---

24
P, Q – ишчи кўрсаткичлар 
V=maketree(key,rec) – калит ва ёзув сегментини яратувчи процедура 
P=getnode – янги элемент генерацияси 
r=rec 
k=key 
V=P 
left=nil 
right=nil 
tree – дарахт илдизига кўрсаткич 
Бошида калит биринчи қиймати киритилади. Ундан сўнг элементн ўзини maketree процедураси орқали 
ҳосил қиламиз. Кейин эса кўрсаткич бўш қийматни кўрсатгунча циклни бўйича давом эттирамиз. 
READ(key,rec) 
tree=maketree(key,rec) 
WHILE not eof DO 
READ(key,rec) 
V=maketree(key,rec) 
WHILE P<>nil DO 
Q=P 
IF key=k(P) 
THEN P=left(P) 
ELSE P=right(P) 
END IF 
END WHILE 
IF P=nil 
THEN WRITELN(' Бу илдиз'); 
tree=V 
ELSE IF keyTHEN left(P)=V 
ELSE right(P)=V 
END IF 
END IF 
END WHILE 
Дарахт “кўриги” процедурлари 
Бинар дарахти берилган бўлсин:
Бинар дарахтлари кўригини учта тамойили мавжуд. Уларни берилган дарахт мисолида кўриб чиқайлик: 
1) Юқоридан пастга кўрик (дарахт илдизини қисм дарахтларга нисбатан олдинроқ кўрикдан 
ўтказилади): A, B, C ; 
2) Чапдан ўнга: B, A, C ; 
3) Қуйидан юқорига (илдиз қисм дарахтлардан кейин кўрилади): B, C, A . 
Дарахт кўриги энг кўп иккинчи усул билан, яъни тугунларга кириш уларнинг калит қийматларини 
ўсиш тартибида амалга оширилади. 
Дарахт кўригини рекурсив процедурлари:
1) PROCEDURE pretrave (tree) 
IF tree<>nil 
THEN PRINT info (tree) 
pretrave (left (tree)) 
pretrave (right (tree)) 
END IF 
RETURN 
2) PROCEDURE intrave (tree) 
IF tree<>nil 
THEN intrave (left (tree)) 

---

25
PRINT info (tree) 
intrave (right (tree)) 
END IF 
RETURN 
3) PROCEDURE postrave (tree) 
IF tree<>nil 
THEN postrave (left (tree)) 
postrave (right (tree)) 
PRINT info (tree) 
END IF 
RETURN