2018.3.10 模拟赛——(2)给出字符串

题目大意：

给出一个由小写字母组成的字符串。你的任务是找出其最长的出现至少两次的子串的长度。这些重复出现的子串可以重叠，比如：ababa aba视为出现两次

解题思路：

数据较小，字符串长度≤100。
所以，枚举就可以过
首先枚举子串，然后在字符串里找子串(注意不能用pos，因为子串可以重叠)。找子串的过程也是枚举(方法比较low)

var
 s,s1,s2:string;
 i,j,n,maxn,sum,k,b:longint;
function max(x,y:longint):longint;
begin
 if x>y then exit(x)
 else exit(y);
end;
begin
 read(s);
 n:=length(s);
 for i:=1 to n do
  for j:=i to n do
   begin
    sum:=0;
    s2:=s;
    s1:=copy(s,i,j-i+1);//枚举子串并取出
    k:=1;
    b:=length(s1);//如果s2[k]到s2[b]与s1完全相等
    //则sum+1
    while (b<=n)and(sum<2) do
    //若b超出字符串范围，则子串出现不到两次，退出循环
    //如果子串出现两次，则不用继续找，退出循环
     begin
      if copy(s2,k,length(s1))=s1 then
       inc(sum);
      inc(k);
      inc(b);//继续枚举
     end;
    if sum>1 then
      maxn:=max(length(s1),maxn);
    //如果子串出现两次，与原先子串长度比较，取较长的子串的长度
   end;
  write(maxn);//愉快的输出
end.