1036:镂空三角形

题目描述

把一个字符三角形掏空，就能节省材料成本，减轻重量，但关键是为了追求另一种视觉效果。在设计的过程中，需要给出各种花纹的材料和大小尺寸的三角形样板，通过电脑临时做出来，以便看看效果。

输入格式

每行包含一个字符和一个整数n(0<n<41)，不同的字符表示不同的花纹，整数n表示等腰三角形的高。显然其底边长为2n-1。如果遇到@字符，则表示所做出来的样板三角形已经够了。

输出

每个样板三角形之间应空上一行，三角形的中间为空。显然行末没有多余的空格。

样例输入

X 2
A 7
@

样例输出

 X
XXX

      A
     A A
    A   A
   A     A
  A       A
 A         A
AAAAAAAAAAAAA

program pq;

var a:char;n:integer;i:integer;j:integer;

begin

  read(a);

  while a<>'@' do

  begin

   readln(n);

   if n=1 then writeln(a)

   else

   begin

    write(' ':n-1);

    writeln(a);

    for i:=2 to n-1 do

     begin

      for j:=1 to n-i do

       write(' ');

       write(a);

      for j:=1 to 2*i-3 do

       write(' ');

       writeln(a);

     end;

    for j:=1 to 2*n-1 do

     write(a);

     writeln;

     end;

  read(a);

   if a<>'@' then writeln;

end;

end.