P1308 统计单词数

 P1308 统计单词数

题目描述

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

输入输出格式

输入格式：

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

输出格式：

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

输入输出样例

输入样例#1：

【输入样例1】
To
to be or not to be is a question
【输入样例2】
to
Did the Ottoman Empire lose its power at that time

输出样例#1：

【输出样例1】
2 0
【输出样例2】
-1

说明

数据范围
1≤ 单词长度≤10。
1≤ 文章长度≤1,000,000。
noip2011普及组第2题
var
s,ss:ansistring;
i,j,len,len2,ans,ans2:longint;
begin
readln(s);
read(ss);
s:='
'+upcase(s)+'
';//让开头和结尾左右两边有空格，使得它们的判定和中间一样（顺便全部变大写）
ss:='
'+upcase(ss)+'
';
len:=length(s);
len2:=length(ss);
ans:=-1;
for
i:=1
to len2-len+1
do
if
copy(ss,i,len)=s
then//如果出现了
begin
if
ans=-1
then ans:=i-1;//第一次出现的位置，因为位置从0开始，说以要-1
inc(ans2);//累加
end;
if
ans=-1
then
write(ans)
else
write(ans2,' ',ans);
end.