pascal 单词统计单词统计(word count.pas)Time Limit:1000MS Memory Limit:65536KTotal Submit:52 Accepted:14Description【问题描述】 读入一英文句子,单词之间用空格或逗号隔开,统计其中单词个数,并输出各个字母出
来源:学生作业帮助网 编辑:作业帮 时间:2024/08/03 19:58:50
![pascal 单词统计单词统计(word count.pas)Time Limit:1000MS Memory Limit:65536KTotal Submit:52 Accepted:14Description【问题描述】 读入一英文句子,单词之间用空格或逗号隔开,统计其中单词个数,并输出各个字母出](/uploads/image/z/3692828-20-8.jpg?t=pascal+%E5%8D%95%E8%AF%8D%E7%BB%9F%E8%AE%A1%E5%8D%95%E8%AF%8D%E7%BB%9F%E8%AE%A1%28word+count.pas%29Time+Limit%3A1000MS++Memory+Limit%3A65536KTotal+Submit%3A52+Accepted%3A14Description%E3%80%90%E9%97%AE%E9%A2%98%E6%8F%8F%E8%BF%B0%E3%80%91+%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)
pascal 单词统计单词统计(word count.pas)Time Limit:1000MS Memory Limit:65536KTotal Submit:52 Accepted:14Description【问题描述】 读入一英文句子,单词之间用空格或逗号隔开,统计其中单词个数,并输出各个字母出
pascal 单词统计
单词统计(word count.pas)
Time Limit:1000MS Memory Limit:65536K
Total Submit:52
Accepted:14
Description
【问题描述】
读入一英文句子,单词之间用空格或逗号隔开,统计其中单词个数,并输出各个字母出现的频率(大写小写算同一字母).(句子末尾不一定用"."结束)
【输入文件】(xx.in)
共1行,要统计的英文句子.注:要注意连续两个空格或逗号与空格连在一起时的误判断.例如输入以下字符串:"abc_abc___abc,_abc___,_abc_,_."
( '_' 代表空格)
【输出文件】(xx.out)
见样列
【输入样例】
Your mother is a dog,and
your father has a bird.
【输出样例】
words:11
A 5
B 1
D 3
E 2
F 1
G 1
H 3
I 2
M 1
N 1
O 4
R 5
S 2
T 2
U 2
Y 2
pascal 单词统计单词统计(word count.pas)Time Limit:1000MS Memory Limit:65536KTotal Submit:52 Accepted:14Description【问题描述】 读入一英文句子,单词之间用空格或逗号隔开,统计其中单词个数,并输出各个字母出
var
ch:char;
wrd:boolean;
c:array['A'..'Z'] of integer;
ans:integer;
begin
wrd:=false; ans:=0;
fillchar(c,sizeof(c),0);
while not eoln do
begin
read(ch);
if (ch>='A')and(ch<='Z') then
begin
inc(c[ch]);
wrd:=true;
end else
if (ch>='a')and(ch<='z') then
begin
inc(c[chr(ord(ch)-32)]);
wrd:=true;
end else
begin
if not wrd then continue;
inc(ans);
wrd:=false;
end;
end;
writeln('words:',ans);
for ch:='A' to 'Z' do
if c[ch]<>0 then writeln(ch,' ',c[ch]);
end.