洛谷1308

题目描述

一般的文本编辑器都有查找单词的功能，该功能可以快速定位特定单词在文章中的位置，有的还能统计出特定单词在文章中出现的次数。

现在，请你编程实现这一功能，具体要求是：给定一个单词，请你输出它在给定的文章中出现的次数和第一次出现的位置。注意：匹配单词时，不区分大小写，但要求完全匹配，即给定单词必须与文章

中的某一独立单词在不区分大小写的情况下完全相同（参见样例1 ），如果给定单词仅是文章中某一单词的一部分则不算匹配（参见样例2 ）。

输入输出格式

输入格式：

输入文件名为stat.in ，2 行。

第1 行为一个字符串，其中只含字母，表示给定单词；

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

输出格式：

输出文件名为stat.out 。

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

2011普及组第2题

————————————————————————————————————————————————————————————————

参考了某神牛。pascal做的。

var s,p,x:ansistring;   //范围有1000位，用ansistring;
i,c,d:longint;
begin
readln(s);readln(p);
s:=upcase(s);p:=upcase(p);   //利用upcase函数都转换为大写字母;
p:=p+' ';   //末尾添空格，因为最后一个也要判断;
for i:=1 to length(p) do
  if p[i]<>' ' then x:=x+p[i]   //不是空格继续加;
  else
    begin
    if x=s then
      begin
      if c=0 then d:=i-length(s)-1;   //判断是否为第一次,d就是位置:当前位数-单词长度-1;
      c:=c+1;
      end;
    x:='';
    end;
if c=0 then writeln(-1)   //找不到输出-1;
else writeln(c,' ',d);
end.