题解 P1308 【统计单词数】

wswhy · 2015-03-13 22:37:57 · 题解

先将文章与单词都化成大写（或小写），这样查起来就方便了，与楼上的一样，也是以空格作为标识，挨个比较空格前的单词。。。比较容易理解。。。。当然，不足之处，多多指教。。

    var  
      a,s,t:ansistring;  
      n,i,q,qq:longint;  
    begin  
      readln(s);  
      readln(a);  
      s:=upcase(s);  
      a:=upcase(a);  
      q:=1; n:=0;  qq:=-1;  
      for i:=1 to length(a) do  
        if a[i]=' ' then  
        begin  
        t:=copy(a,q,i-q);  
        if t=s then begin inc(n);  
        if qq=-1 then qq:=q-1; end;  
        q:=i+1;  
        end;  
        if qq=-1 then write(qq) else write(n,' ',qq);  
end.