pascal 统计单词个数具体要求:给定一个单词,请你输出它在给定文章中出现的次数和第一次出现的位置.注意:匹配单词时,不区分大小写,但要求完全匹配,即给定单词必须与文章中某一独立单
来源:学生作业帮助网 编辑:作业帮 时间:2024/08/29 08:09:13
pascal 统计单词个数具体要求:给定一个单词,请你输出它在给定文章中出现的次数和第一次出现的位置.注意:匹配单词时,不区分大小写,但要求完全匹配,即给定单词必须与文章中某一独立单
pascal 统计单词个数
具体要求:给定一个单词,请你输出它在给定文章中出现的次数和第一次出现的位置.注意:匹配单词时,不区分大小写,但要求完全匹配,即给定单词必须与文章中某一独立单词在不区分大小写的情况下完全相同.若没有相同的独立单词,输出-1.
输入:第一行为一个字符串,只包含字母,表示给定单词.
第二行为一个字符串,包含字母和空格,表示给定文章.
输出:输出一行,两个整数,中间用空格隔开.分别是给定单词在给定文章中出现的次数和第一次出现的位置.(即在文章中第一次出现的位置从0开始)若没有出现,只输出-1.
pascal 统计单词个数具体要求:给定一个单词,请你输出它在给定文章中出现的次数和第一次出现的位置.注意:匹配单词时,不区分大小写,但要求完全匹配,即给定单词必须与文章中某一独立单
program stat;
var inf,outf:text;
ss:string[10];
next:array[1..10]of integer;
s:ansistring;
i,j,k,l,m,n,num,ls,lss:longint;
////////////////////////////////////////////////////
procedure init;
begin
assign(inf,'stat.in'); assign(outf,'stat.out'); reset(inf);rewrite(outf);
readln(inf,ss); read(inf,s); ls:=length(s); lss:=length(ss);
for i:=1 to ls do
if (s[i]='A') then s[i]:=chr(ord(s[i])+32);
for i:=1 to lss do
if (ss[i]='A') then ss[i]:=chr(ord(ss[i])+32);
end;
////////////////////////////////////////////////////
procedure makenext(p:string[10]);
begin
j:=1; k:=0; next[1]:=0;
while j