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.
阅读更多
版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/jing1223639316/article/details/46826549
个人分类: 编程
上一篇3813:【第七章数组】洗牌问题 分数: 3
下一篇1016:计算利息 分数: 1
想对作者说点什么? 我来说一句

东南大学计算机图形学实验

2012年01月17日 6KB 下载

没有更多推荐了,返回首页

关闭
关闭