9.9 优美三角剖分 2718

题目

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

样例输入1 1样例输出1 /\/__\样例输入2 3样例输出2       /\      /__\     /\  /\    /__\/__\   /\      /\  /__\    /__\ /\  /\  /\  /\/__\/__\/__\/__\

题解

模拟，也可以递归

代码

var  s:array[1..2000]of ansistring;  i,j,h,k,n:longint;begin  readln(n);  s[1]:=' /\ ';  s[2]:='/__\';  h:=2;  for i:=2 to n do    begin      for j:=1 to h do        s[h+j]:=s[j]+s[j];      for j:=1 to h do        for k:=1 to h do          s[j]:=' '+s[j]+' ';      h:=h*2;    end;  for i:=1 to h do    writeln(s[i]);end.