1317:【数组字符练习】7

来源：学生作业帮编辑：拍题作业网作业帮分类：综合作业时间：2024/05/07 17:33:49

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
提示
来源
[提交][状态][讨论版]

下面的程序假定英语句子只由小写字母和空格、标点组成：
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.
再问：不对啊，输入abc abc abc, abc , abc ,a应该是5，总共也应该是5，但输出的是

再答：修改一下，这回没问题了： 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 (not (s[i] in ['a'..'z']))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.

C语言中的字符数组名与数组元素有什么区别 10.有字符数组定义char a[]="abc\n\n",则数组a中有（A）个元素.A．5 B．7 C．6 D．8 C语言习题,有一字符数组,通过scanf函数或者getchar函数存储进去13个字符,然后以中间对称,数组两侧内容互换. c语言字符数组作为条件怎么理解如if(str[i]) srt[]是一个包括数字与字母的字符数组字符练习数组指针作为函数参数：求3×4的二维数组{1,3,5,7,9,11,13,17,19,21,23,25}中的所有元素声明一个一维字符型数组,有20个元素,每个元素最多包含10个字符.生成的字符分为4行,并输出字符数最多的用C语言编写程序,对字符数组中存放的任意英语文章,统计其单词个数. 输入一行文字,分别统计其中英文大写字母,小写字母,空格,数字,其他字符个数.【用指针,数组实现】 Free Pascal 如何求出一个数组中的有效元素个数难道高精度计算一般要转成字符型来求数的长度? 1.在主函数中定义一个5 行50列的字符数组,然后调用两个函数进行处理： c语言输入一个字符一个数,s[10]=“ABCDE”.如：输入*和数组3,则输出 “AB*CDE”