2017年9月9日普级组 优美三角剖分

Description

小X同学为了搞好和小C同学的关系，特意寻找了一些优美的图像作为礼物。
这是一些由无穷无尽三角形组成的极为优美的图形，小X同学很想实现这些极富美感的图形，但是作为一名初赛都未过的伪退役选手，他水平有限，于是这个艰巨的任务就落在你们身上了。
由于好心的出题人，数据范围n<=10。
（具体图形详见样例，每一阶图形都是由3个上一阶图形拼成的）

Input

只有一行，输入一个整数为N，表示要求出N阶的图形。

Output

输出相应的图形。

Sample Input

（三合一，最终评测样例只有一行，1个N）
3
2
1

Sample Output

Hint

10个测试点，n为1-10

程序：

var
  n,i,j,t,k:longint;
  a:array[0..10001] of ansistring;
begin
  readln(n);
  a[1]:=' /\ ';
  a[2]:='/__\';
  t:=2;
  for i:=2 to n do
  begin
    for j:=t+1 to t*2 do 
      a[j]:=a[j-t]+a[j-t];
    for j:=1 to t do
      for k:=1 to length(a[j]) div 2 do
        a[j]:=' '+a[j]+' ';
    t:=t*2;
  end;
  for i:=1 to t do
    writeln(a[i]);
end.

转载于:https://www.cnblogs.com/YYC-0304/p/9500049.html