南蛮图腾

最新推荐文章于 2024-07-15 11:22:54 发布

原创最新推荐文章于 2024-07-15 11:22:54 发布 · 313 阅读

0 ·

CC 4.0 BY-SA版权

2018寒假专栏收录该内容

23 篇文章

订阅专栏

本文介绍了一种基于优美三角剖分的分形图腾绘制方法。通过递归地扩大图腾图案并填充细节，实现从小到大的图案绘制。程序使用Pascal语言实现，并提供了完整的源代码。

题目描述

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

输入输出格式

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

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

输入输出样例

输入样例#1：
2

输出样例#1：
这里写图片描述
输入样例#2：
3

输出样例#2：
这里写图片描述
.
.
.
.
.
.
.

分析：

这题其实就是优美三角剖分。
.
.
.
.
.
.
.
.

程序：

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.