Предыдущая страница реферата | 8  9  10  11  12  13  14  15  16  17  18 | Следующая страница реферата

Key:=True;

P0^.Key:=False;

P1^.Key:=False;

end;

HelpPoint:=LeftRange;

While (HelpPoint^.CounterEnter < Root^.CounterEnter) and

(HelpPointNil) do HelpPoint:=HelpPoint^.NewRight;

If HelpPoint=Nil then { добавление в конец }

begin

Root^.NewLeft:=RightRange;

RightRange^.NewRight:=Root;

Root^.NewRight:=Nil;

RightRange:=Root;

end

else

begin { вставка перед HelpPoint }

Root^.NewLeft:=HelpPoint^.NewLeft;

HelpPoint^.NewLeft:=Root;

Root^.NewRight:=HelpPoint;

If Root^.NewLeftNil then Root^.NewLeft^.NewRight:=Root;

end;

end;

end;

procedure ViewTree( P : PCodElement );

{ --- просмотр дерева частот и присваивание кодировочных цепей листьям --- }

Рекомендуем скачать другие рефераты по теме: продажа рефератов, ломоносов реферат.



Предыдущая страница реферата | 8  9  10  11  12  13  14  15  16  17  18 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки