P1598 垂直柱状图

 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