2017年9月9日普級組 優美三角剖分

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.