497
правок
Изменения
→Корневой счетчик
MinP.Left := NULL;
Fastening := MinP;
</code>
===Значение ключа элемента по указателю===
Функция <tex>GetKey(p)</tex> по указателю p на элемент определяет значение его ключа:
<code>
if(p = NULL)
Min := <tex>\infty</tex>;
else
Min := p.key;
GetKey := Min;
</code>
===Узел с минимальным ключом===
Функция <tex>MinKeyNodeRoot(p)</tex>, которая по указателю <tex>p</tex> на списочную часть разряда корневого счетчика возвращает указатель на корневой узел с минимальным ключом:
<code>
p1:=p;
MinP := p1;
while (p1 != NULL) do
if(p1.Key < MinP.Key)
MinP := p1;
p1 := p1.Right;
MinKeyNodeRoot := MinP;
</code>
