Kód: Vybrat vše
A-Insert(x):
t := Prv
while t <> koren T a Ht(1) < x do
t := otec(t)
enddo
while t <> list do
i := 1
while Ht(i) < x a i < Ro(t) do i := i + 1 enddo
if i > 1 then
v := St(i − 1)
else
v := Sv(ro(v))
endif
t := St(i)
enddo
Konkretne: Zacinam v prv. lezu nahoru, dokud Ht(1) < x, z whileu vyskocim kdyz Ht(1) > x, i:=1, ten while neudelam, protoze Ht(1) > x, cili i = 1, skocim do Else vetve, ale ted nevim co je vrchol v...