【模拟】[NOIP2011普及组]统计单词数

题目:[NOIP2011普及组]统计单词数 rqnoj661

题目描述

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

输入格式

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

输出格式

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

样例输入

[sample 1] To to be or not to be is a question [sample 2] to Did the Ottoman Empire lose its power at that time

样例输出

[sample 1] 2 0 [sample 2] -1

【输入输出样例 1 说明】
输出结果表示给定的单词 To 在文章中出现两次，第一次出现的位置为0。
【输入输出样例 2 说明】
表示给定的单词 to 在文章中没有出现，输出整数-1。

 

Pascal Code

program rqnoj661;

var
  w,s:ansistring;
  num:longint;
  k:array[0..10000000] of longint;

procedure init;
begin
  assign(input,'rqnoj661.in');
  assign(output,'rqnoj661.out');
  reset(input);
  rewrite(output);
end;

procedure outit;
begin
  close(input);
  close(output);
  halt;
end;

procedure xiao(var s:ansistring);
var
  i:longint;
begin
  for i:=1 to length(s) do
  begin
    if s[i] in ['a'..'z'] then continue;
    if s[i] in ['A'..'Z'] then
    begin
      s[i]:=chr(ord(s[i])+32);
    end;
  end;
end;

procedure readdata;
begin
  readln(w);
  readln(s);
  xiao(w);//全部转换为小写
  xiao(s);
end;

procedure main;
var
  a:ansistring;
  i:longint;
begin
  a:='';
  for i:=1 to length(s) do
  begin
    if s[i]=' ' then
    begin
      if a=w then
      begin
        inc(num);
        k[num]:=i-length(w);
      end;
      a:='';
      continue;
    end;
    a:=a+s[i];
  end;
  if num=0 then
  begin
    writeln(-1);
    outit;
  end;
  writeln(num,' ',k[1]-1);
end;

begin
  init;
  readdata;
  main;
  outit;
end.