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

CurPoint^.NewLeft:=HelpPoint;

If HelpPoint^.NewRightNil then HelpPoint^.NewRight^.NewLeft:=CurPoint;

CurPoint^.NewRight:=HelpPoint^.NewRight;

HelpPoint^.NewRight:=CurPoint;

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

If CurPoint=LeftRange then LeftRange:=HelpPoint;

If HelpPoint=RightRange then RightRange:=CurPoint;

CurPoint:=CurPoint^.NewLeft;

If CurPoint = LeftRange then CurPoint:=CurPoint^.NewRight

else CurPoint:=CurPoint^.NewLeft;

end

else CurPoint:=CurPoint^.NewRight;

end;

end;

procedure CounterNumberEnter;

{ --- подсчет частот вхождений байтов в блоке --- }

Var C : word;

begin

For C:=0 to NumRead-1 do

Inc(CodeTable[(InBuf[C])]^.CounterEnter);

end;

function SearchOpenCode : boolean;

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

begin

CurPoint:=LeftRange;

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





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