Алгоритмы поиска. Помогите пожалуйста., Помогите пожалуйста. Опции

[LECTOR]

Помогите пожалуйста решить 2 задачки. Сидел целый день, все перечитал и всё равно не могу понять как написать. А у меня 30.12.2008 зачет и бойсь не сдать. Заранее благодарен!

У меня есть алгоритмы поиска, но я никак не могу разобратся(((

1. Дан текстовый файл, содержащий текст из слов, разделенных пробелами и знаками препинания. Предложения разделены точками. Выяснить, встречается ли где-нибудь в тексте второе предложение. Если встречается, то указать с какой позиции. Использовать алгоритм поиска «грубой силой».
2. Дан текстовый файл, содержащий текст из слов, разделенных пробелами и знаками препинания. Предложения разделены точками. Выяснить, встречается ли где-нибудь в тексте первое предложение. Если встречается, то указать с какой позиции. Использовать алгоритм поиска Рабина-Карпа.

Добавлено через 11 мин.
Алгоритмы:

Рабин-Карп

function Compare(s,p:^char; const m:integer):boolean;
var
i:integer;
s1,p1:^char;
res:boolean;
 begin
 s1:=s;
 p1:=p;
 res:=true;
 for i:=1 to m do
 if s1^<>p1^ then
  begin
  res:=false;
  break;
  end;
 s1:=s1+1;
 p1:=p1+1;
 end;
 compare:=res;
end;

function Hash(s:^char; m:integer):integer;
var
i,res:integer;
st:^char;
begin
res:=0;
st:=s;
 for i:=1 to m do
 begin
 res:=res+integer(st^);
 st:=st+1;
 end;
hash:=res;
end;

function RabinKarpSearch(s,p:^char; const n,m:integer):integer;
var
hs,hp,res,i:integer;
s1,temp:^char;
begin
s1:=s;
res:=0;
hp:=hash(p,m);
hs:=hash(s1,m);
 for i:=1 to n-m+1 do
 begin
 if hs=hp then
 if Compare(s1,p,m) then
 begin
 res:=s1-s+1;
 break;
 end;
 temp:=s1+m;
 hs:=hs-integer(s1^)+integer(temp^;
 s1:=s1+1;
 end;
RabinKarpSearch:=res;
end;

Грубой силы

function Compare(s,p:^char; const m:integer):boolean;
var
i:integer;
s1,p1:^char;
res:boolean;
 begin
 s1:=s;
 p1:=p;
 res:=true;
 for i:=1 to m do
 if s1^<>p1^ then
  begin
  res:=false;
  break;
  end;
 s1:=s1+1;
 p1:=p1+1;
 end;
 compare:=res;
end;

function BruteForceSearch (s,p:^char; const n,m:integer):integer;
var
res,i:integer;
s1:^char;
begin
res:=0;
 If n<m then
 begin
 BruteForseSearch:=res;
 exit
 end;
S1:=s;
 for i:=1 to n-m+1 do
 begin
  If Compare(s1,p,m) then
  begin
  res:=s1-s+1;
  break;
  eend;
 s1:=s1+1;
 end;
BruteForseSearch:=res;
end;

М

Теги! (Правила, п.5) Lapp

[LECTOR]

А может кто-нибудь знает как 2-ую задачу решить?