Question

在一篇文章中一个字出现的频率,并统计次数用Delphi怎么编程

Answer 1

一般的文本编辑器都有查找单词的功能，该功能可以快速定位特定单词在文章中的位置，有的还能统计出特定单词在文章中出现的次数。
　　现在，请你编程实现这一功能，具体要求是：给定一个单词，请你输出它在给定的文章中出现的次数和第一次出现的位置。注意：匹配单词时，不区分大小写，但要求完全匹配，即给定单词必须与文章
　　中的某一独立单词在不区分大小写的情况下完全相同（参见样例1 ），如果给定单词仅是文章中某一单词的一部分则不算匹配（参见样例2 ）。
输入输出格式 Input/output
输入格式：
　　输入文件名为stat.in ，2 行。
　　第1 行为一个字符串，其中只含字母，表示给定单词；
　　第2 行为一个字符串，其中只可能包含字母和空格，表示给定的文章。
输出格式：
　　输出文件名为stat.out 。
　　只有一行，如果在文章中找到给定单词则输出两个整数，两个整数之间用一个空格隔开，分别是单词在文章中出现的次数和第一次出现的位置（即在文章中第一次出现时，单词首字母在文章中的位置，位置从 0 开始）；如果单词在文章中没有出现，则直接输出一个整数-1。

var
f1,f2:text;
s1,s2:string;
i:array[1..100] of integer;
j,k,l:integer;
begin
assign(f1,'stat.in'); reset(f1);
assign(f2,'stat.out'); rewrite(f2);
readln(f1,s1); l:=length(s1); for k:=1 to l do s1[k]:=upcase(s1[k]);
readln(f1,s2); l:=length(s2); for k:=1 to l do s2[k]:=upcase(s2[k]);
close(f1);
l:=length(s1);
j:=0;
while pos(s1,s2)>0 do begin
inc(j);
i[j]:=pos(s1,s2);
for k:=1 to l do s2[i[j]+k-1]:=' ';
end;
if j=0 then writeln(f2,'-1') else writeln(f2,j:3,' ',i[1]-1);
if j=0 then writeln('-1') else writeln(j:3,' ',i[1]-1);
close(f2);
readln;
end.

供参考！