9.9 优美三角剖分 2718

最新推荐文章于 2019-08-27 11:51:05 发布

yjy_aii

最新推荐文章于 2019-08-27 11:51:05 发布

阅读量361

点赞数 1

分类专栏：递推模拟

本文链接：https://blog.youkuaiyun.com/yjy_aii/article/details/77996325

版权

模拟同时被 2 个专栏收录

65 篇文章

订阅专栏

递推

9 篇文章

订阅专栏

本文介绍了一种通过模拟或递归方式生成由无限三角形构成的精美图形的方法。该图形每一阶由三个上一阶图形组成，适用于数据规模较小的情况（如n<=10）。文章还提供了一个具体的Pascal语言实现示例。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

题目
题解
代码

题目

小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.