寒假篇33

题目描述

自从到了南蛮之地，孔明不仅把孟获收拾的服服帖帖，而且还发现了不少少数民族的智慧，他发现少数民族的图腾往往有着一种分形的效果(看Hint)，在得到了酋长的传授后，孔明掌握了不少绘图技术，但唯独不会画他们的图腾，于是他找上了你的爷爷的爷爷的爷爷的爷爷……帮忙，作为一个好孙子的孙子的孙子的孙子……你能做到吗？

输入输出格式

输入格式：
每个数据一个数字，表示图腾的大小（此大小非彼大小） n<=10

输出格式：
这个大小的图腾

做法：这道题的样例没办法复制上来，但实际上按照题目要求的打印就好了
代码如下：

var
  n,i,j,t,k:longint;
  a:array[-1..10002] 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.