P1598 垂直柱状图

题目描述

写一个程序从输入文件中去读取四行大写字母（全都是大写的，每行不超过72个字符），然后用柱状图输出每个字符在输入文件中出现的次数。严格地按照输出样例来安排你的输出格式。

输入输出格式

输入格式：

四行字符，由大写字母组成，每行不超过72个字符

输出格式：

由若干行组成，前几行由空格和星号组成，最后一行则是由空格和字母组成的。在任何一行末尾不要打印不需要的多余空格。不要打印任何空行。

输入输出样例

输入样例#1：

THE QUICK BROWN FOX JUMPED OVER THE LAZY DOG.THIS IS AN EXAMPLE TO TEST FOR YOURHISTOGRAM 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 4do//4行

begin

readln(s);

for j:=1tolength(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 1do

begin

for k:='A' to 'Z'do

if a[k]>=i thenwrite('* ')//从大往小输出

elsewrite(' ');

writeln;//输完一行后空格

end;

for k:='A' to 'Z'dowrite(k,' ');

end.

var

i,j,max:longint; s:string; k:char; a:array['A'..'Z'] of longint;begin for i:=1 to 4do begin readln(s);for j:=1tolength(s)doif s[j] in ['A'..'Z'] theninc(a[s[j]]); end; for k:='A' to 'Z'doif a[k]>0 then if a[k]>max then max:=a[k]; for i:=max downto 1do begin for k:='A' to 'Z'doif a[k]>=i thenwrite('* ')elsewrite(' '); writeln; end; for k:='A' to 'Z'dowrite(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