Предыдущая страница реферата | 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 | Следующая страница реферата