Алгоритмы поиска в тексте
Категория реферата: Рефераты по информатике, программированию
Теги реферата: сочинение по английскому, реферат на
Добавил(а) на сайт: Valentin.
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 10 | Следующая страница реферата
begin
for i := 0 to 255 do BMT^[lp-1][i] := lp;
for i := lp downto 1 do
if BMT^[lp-1][Byte(P[i])] = lp then
BMT^[lp-1][Byte(P[i])] := lp - i;
end;
MaxShift := lp;
for i := lp - 1 downto 1 do
begin
SetLength(Suffix, lp - i);
Move(P[i+1], Suffix[1], lp - i);
if WCBeginsWith(Suffix, P) then MaxShift := i;
if P[i] = '?' then for j := 0 to 255 do BMT^[i-1][j] := 0
else for j := 0 to 255 do
begin
CurShift := MaxShift;
SetLength(Suffix, lp - i + 1);
Suffix[1] := Char(j);
Move(P[i + 1], Suffix[2], lp - i );
SufPos := WCFindRightmost(P, Suffix, lp - 1);
if SufPos <> 0 then
CurShift := i - SufPos;
BMT^[i-1][j] := CurShift;
end;
BMT^[i-1][Byte(P[i])] := 0;
Рекомендуем скачать другие рефераты по теме: шпоры по праву, реферат по физкультуре.
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 10 | Следующая страница реферата