关闭

1036:镂空三角形

131人阅读 评论(0) 收藏 举报
分类:

题目描述

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

输入格式

每行包含一个字符和一个整数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.
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:16241次
    • 积分:119
    • 等级:
    • 排名:千里之外
    • 原创:91篇
    • 转载:0篇
    • 译文:0篇
    • 评论:0条
    文章分类
    文章存档