2011统计单词数

Posted 2020-08-10

题目描述 Description

一般的文本编辑器都有查找单词的功能，该功能可以快速定位特定单词在文章中的位置，有的还能统计出特定单词在文章中出现的次数。
现在，请你编程实现这一功能，具体要求是：给定一个单词，请你输出它在给定的文章中出现的次数和第一次出现的位置。注意：匹配单词时，不区分大小写，但要求完全匹配，即给定单词必须与文章中的某一独立单词在不区分大小写的情况下完全相同（参见样例1），如果给定单词仅是文章中某一单词的一部分则不算匹配（参见样例2）。

输入描述 Input Description

第 1 行为一个字符串，其中只含字母，表示给定单词；
第 2 行为一个字符串，其中只可能包含字母和空格，表示给定的文章。

输出描述 Output Description

只有一行，如果在文章中找到给定单词则输出两个整数，两个整数之间用一个空格隔开，分别是单词在文章中出现的次数和第一次出现的位置（即在文章中第一次出现时，单词首字母在文章中的位置，位置从0 开始）；如果单词在文章中没有出现，则直接输出一个整数-1。

样例输入 Sample Input

输入1：

To

to be or not to be is a question

输入2：

to

Did the Ottoman Empire lose its power at that time

样例输出 Sample Output

输出1：

2 0

输出2：

-1

数据范围及提示 Data Size & Hint

数据范围
1 ≤ 单词长度≤ 10。
1 ≤ 文章长度≤ 1,000,000。

 

 

题解：

模拟。

先全部都转成大（小）写，建议大写，pascal有函数upcase。之后分解单词，判断每一个单词和查找单词一不一样，一样累计答案并判断是不是第一个，是第一个标记一下。

var s,n:ansistring;

    i,d,w,u,c:longint;

    a:array[0..1000000]of ansistring;

begin

 readln(s);

 readln(n);

 for i:=1 to length(n) do n[i]:=upcase(n[i]);

 for i:=1 to length(s) do s[i]:=upcase(s[i]);

 n:=n+‘ ‘;

 for i:=1 to length(n) do

  if (n[i]=‘ ‘) then

   begin

    w:=w+1;

    a[w]:=copy(n,d+1,i-1-d);

    d:=i;

   end;

 d:=0;

 for i:=1 to w do if a[i]=s then

                                 begin

                                  if c=0 then u:=d;

                                  d:=d+length(a[i]);

                                  c:=c+1;

                                 end

                            else d:=d+length(a[i])+1;

 if c>0 then write(c,‘ ‘,u)

        else write(‘-1‘);

end.