统计文章中英文字符个数！

最新推荐文章于 2023-12-11 08:56:07 发布

Yhong88

最新推荐文章于 2023-12-11 08:56:07 发布

阅读量973

点赞数

分类专栏：信息学奥赛辅导文章标签： c

本文链接：https://blog.csdn.net/yhong88/article/details/6292151

版权

信息学奥赛辅导专栏收录该内容

2 篇文章 0 订阅

订阅专栏

program aa;
var
   f1,f2:text;
   c:char;
   a:array ['a'..'z'] of integer;
begin
     assign(f1,'english.in');
     reset(f1);
     assign(f2,'english.out');
     rewrite(f2);

     while not eof(f1) do
     begin
          read(f1,c);
          if (c>='A') and (c<='Z') then
             c:=chr(ord(c)+32);
          if (c>='a') and (c<='z') then
             a[c]:=a[c]+1;
     end;

for c:='a' to 'z' do
writeln(f2,c,a[c]:5);

close(f1);
close(f2);
end.