Курсовая работа: Порівняльний аналіз ефективності та складності алгоритмів пошуку елементів у масивах

begin

T [i]:=chr( 97+ random(2 6 ));

write(T[i]);

end;

Writeln;

Writeln(‘-----------------------------------’);

Writeln(‘Vvedit pidrjadok sumvolu a..z ’);

I:=1;

While i<=m do

Begin

C:=readkey;

If (ord(c)>96)and(ord(c)<123)then begin

S[i]:=c;

Write(s[i]);

Inc(i);

End;

End;

Writeln;

Prefix; { Обчислення префікс-функції}

k:=0; { кількість символів, що співпадають на даний час}

for i:=1 to n do

begin

while (k>0) and (S[k+1]<>T[i]) do

k:=P[k];

if S[k+1]=T[i] then

k:=k+1;

if k=m then { якщо співпали всі символи}

begin

writeln(' Зразок входить в текст починаючи з ',i-m+1,' -ого символу');