SaveText.Ru

Без имени
  1. program strdirseek;
  2. var
  3.     s1, s2: string;
  4.     i,j: integer;
  5.     m,n: integer;
  6.     f: boolean;
  7. begin
  8.     writeln('Введите строку S');
  9.     readln(s1);
  10.     m:=length(s1);
  11.     writeln('Введите подстроку для поиска X');
  12.     readln(s2);
  13.     n:=length(s2);
  14.     if n>m then begin
  15.         writeln(s2, ' не может быть подстрокой ', s1);
  16.         exit;
  17.     end;
  18.     i:=0;
  19.     while(i<m) do begin
  20.         j:=1;
  21.         f:=true;
  22.         while (j<=n) do begin
  23.             if(s1[i+j]<>s2[j]) then begin
  24.                 f:=false;
  25.                 break;
  26.             end else
  27.                 j:=j+1;
  28.         end;
  29.         if f then
  30.             writeln(s2, ' встречается в ', s1, ' начиная с ',i+1,' символа');
  31.         i:=i+1;
  32.     end;
  33. end.
  34.  

Share with your friends:

Print