P1598 垂直柱状图
题目描述
写一个程序从输入文件中去读取四行大写字母(全都是大写的,每行不超过72个字符),然后用柱状图输出每个字符在输入文件中出现的次数。严格地按照输出样例来安排你的输出格式。
输入输出格式
输入格式:四行字符,由大写字母组成,每行不超过72个字符
输出格式:由若干行组成,前几行由空格和星号组成,最后一行则是由空格和字母组成的。在任何一行末尾不要打印不需要的多余空格。不要打印任何空行。
输入输出样例
输入样例#1:
THE QUICK BROWN FOX JUMPED OVER THE LAZY DOG. THIS IS AN EXAMPLE TO TEST FOR YOUR HISTOGRAM PROGRAM. HELLO!
输出样例#1:
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
说明
每行输出后面不允许出现多余的空格。
var
i,j,max:longint;
s:
string
;
k:
char
;
a:
array
[
'A'
..
'Z'
] of longint;
begin
for
i:=
1
to
4
do//4行
begin
readln(s)
;
for
j:=
1
to length(s) do
if s[j] in ['A'..'Z'] then inc(a[s[j]])
;//统计字数
end;
for
k:=
'A'
to
'Z'
do
if
a[k]>
0
then
if
a[k]>max then max:=a[k];//取出最大的
for
i:=max downto
1
do
begin
for
k:=
'A'
to
'Z'
do
if
a[k]>=
i then write('* ')//从大往小输出
else write(' ')
;
writeln;//输完一行后空格
end;
for
k:=
'A'
to
'Z'
do write(k,' ')
;
end.
var
i,j,max:longint; s:string; k:char; a:array['A'..'Z'] of longint;begin for i:=1 to 4 do begin readln(s); for j:=1 to length(s) do if s[j] in ['A'..'Z'] then inc(a[s[j]]); end; for k:='A' to 'Z' do if a[k]>0 then if a[k]>max then max:=a[k]; for i:=max downto 1 do begin for k:='A' to 'Z' do if a[k]>=i then write('* ') else write(' '); writeln; end; for k:='A' to 'Z' do write(k,' ');end.
输出样例#1:
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * A B C D E F G H I J K L M N O P Q R S T U V W X Y Z