Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10 | Следующая страница реферата

begin

  Result := 0;

  lp := Length(P);

  if lp > l then Exit;

  for i := l - lp + 1 downto 1 do

  for j := 1 to lp do

  if (P[j]<>S[i+j-1]) and (P[j]<>'?') and (S[i+j-1]<>'?') 

  then Break

  else if j = lp then

  begin

    Result := i;

    Exit;

  end;

end;

procedure WCMakeBMTable( var BMT : PBMTable;

  const P : String);

var

  i, j, lp, MaxShift, CurShift, SufPos : Integer;

  Suffix : String;

begin

  lp := Length(P);

  GetMem(BMT, SizeOf(TIntVect)*lp);

  if P[lp] = '?' then

  for i := 0 to 255 do BMT^[lp-1][i] := 0

  else

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





Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10 | Следующая страница реферата