作业帮1317:【数组字符练习】7时间限制:1 Sec 内存限制:128 MB提交:105 解决:41[提交][状态][讨论版]读入一英文句子,单词之间用空格或逗号隔开,统计其中单词个数,并输出各个字母出现的频率.(句子末尾
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/24 13:56:48
![1317:【数组字符练习】7时间限制:1 Sec 内存限制:128 MB提交:105 解决:41[提交][状态][讨论版]读入一英文句子,单词之间用空格或逗号隔开,统计其中单词个数,并输出各个字母出现的频率.(句子末尾](/uploads/image/z/12614015-47-5.jpg?t=1317%3A%E3%80%90%E6%95%B0%E7%BB%84%E5%AD%97%E7%AC%A6%E7%BB%83%E4%B9%A0%E3%80%917%E6%97%B6%E9%97%B4%E9%99%90%E5%88%B6%3A1+Sec+%E5%86%85%E5%AD%98%E9%99%90%E5%88%B6%3A128+MB%E6%8F%90%E4%BA%A4%3A105+%E8%A7%A3%E5%86%B3%3A41%5B%E6%8F%90%E4%BA%A4%5D%5B%E7%8A%B6%E6%80%81%5D%5B%E8%AE%A8%E8%AE%BA%E7%89%88%5D%E8%AF%BB%E5%85%A5%E4%B8%80%E8%8B%B1%E6%96%87%E5%8F%A5%E5%AD%90%2C%E5%8D%95%E8%AF%8D%E4%B9%8B%E9%97%B4%E7%94%A8%E7%A9%BA%E6%A0%BC%E6%88%96%E9%80%97%E5%8F%B7%E9%9A%94%E5%BC%80%2C%E7%BB%9F%E8%AE%A1%E5%85%B6%E4%B8%AD%E5%8D%95%E8%AF%8D%E4%B8%AA%E6%95%B0%2C%E5%B9%B6%E8%BE%93%E5%87%BA%E5%90%84%E4%B8%AA%E5%AD%97%E6%AF%8D%E5%87%BA%E7%8E%B0%E7%9A%84%E9%A2%91%E7%8E%87.%28%E5%8F%A5%E5%AD%90%E6%9C%AB%E5%B0%BE)
1317:【数组字符练习】7时间限制:1 Sec 内存限制:128 MB提交:105 解决:41[提交][状态][讨论版]读入一英文句子,单词之间用空格或逗号隔开,统计其中单词个数,并输出各个字母出现的频率.(句子末尾
1317:【数组字符练习】7
时间限制:1 Sec 内存限制:128 MB
提交:105 解决:41
[提交][状态][讨论版]
读入一英文句子,单词之间用空格或逗号隔开,统计其中单词个数,并输出各个字母出现的频率.(句子末尾不一定用"."结束)
输入
输入文件word.in只有一行,内容为一行英文句子,英文句子的长度不超过100个字符,单词间由空格或逗号隔开.
输出
输出文件word.out第一行输出单词个数n,第二行开始每行表示一个字母出现的次数,未出现的字母不输出统计结果.
样例输入 Copy
abc abc abc,abc ,abc ,
样例输出 Copy
5
a 5
b 5
c 5
提示
来源
[提交][状态][讨论版]
1317:【数组字符练习】7时间限制:1 Sec 内存限制:128 MB提交:105 解决:41[提交][状态][讨论版]读入一英文句子,单词之间用空格或逗号隔开,统计其中单词个数,并输出各个字母出现的频率.(句子末尾
下面的程序假定英语句子只由小写字母和空格、标点组成：
var a:array['a'..'z']of integer;
s:string; i,w:integer; c:char;
begin
readln(s); w:=0;
for i:=2 to length(s) do
begin
if (s[i]=' ')and(s[i-1] in ['a'..'z'])then inc(w);
if s[i] in ['a'..'z'] then inc(a[s[i]]);
end;
if s[length(s)] in ['a'..'z'] then inc(w);
writeln(w);
for c:='a' to 'z' do
if a[c]>0 then writeln(c,' ',a[c]);
end.