pascal 统计单词个数

来源：学生作业帮编辑：神马作文网作业帮分类：综合作业时间：2024/11/20 09:57:25

pascal 统计单词个数
具体要求：给定一个单词,请你输出它在给定文章中出现的次数和第一次出现的位置.注意：匹配单词时,不区分大小写,但要求完全匹配,即给定单词必须与文章中某一独立单词在不区分大小写的情况下完全相同.若没有相同的独立单词,输出-1.
输入：第一行为一个字符串,只包含字母,表示给定单词.
第二行为一个字符串,包含字母和空格,表示给定文章.
输出：输出一行,两个整数,中间用空格隔开.分别是给定单词在给定文章中出现的次数和第一次出现的位置.（即在文章中第一次出现的位置从0开始）若没有出现,只输出-1.

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

pascal 统计单词个数统计单词个数 pascal代码 Pascal问题：统计单词 pascal 单词统计 pascal统计大写英文字母的个数 pascal单词统计Description 输入一串英文句子,统计该英文句子中英文单词的个数,并将单词个数输出.Inpu 用PASCAL做!读入一英文句子,单词之间用空格或逗号隔开,统计其中单词个数,并输出各个字母出现的频率. pascal,从n个数中选择m个数,输出每一种组合,并统计总的个数统计用free pascal pascal：数据统计 Pascal输入20个整数,统计其中正数、负数和零的个数用pascal编写程序输入十个整数,统计大于0的数的个数.