FPOI'2003 复赛第二题《分形艺术》答案 - 达人(蔬菜)

2004/11/30 | FPOI'2003 复赛第二题《分形艺术》答案
类别(信息技术教师) | 评论(0) | 阅读(144) | 发表于 21:12: 晚上开会，正好琢磨。题目：
物体部分与整体以某种形式相似的形，称为分形。现在布印中有许多图案都是分形图形，正面的图形就是其中一种。
你的任务是编写程序FPOI2.LGO，程序中必须含有一个主过程FPOI2 :N :S，能画出如下的图案。
过程FPOI2 :N :S中的:N参数表示层数，:S参数表示图形中每一短边的长度。

图片如下：

以下为源代码：
;FPOI'200复赛试卷第二题《分形艺术》
;近一个月的时间，没有时间去想，但又一直想。
;今天为学生讲解分形范例，得到启发，晚间开会，边听边想，遂得。
;2004年11月30日

TO FX :N :S
　　　IF :N=0 THEN JI :S STOP
　　　FX :N-1 :S LT 90 FD :S RT 90 FD :S LT 90
　　　FX :N-1 :S RT 90 FD :S RT 90
　　　FX :N-1 :S LT 90 FD :S RT 90 FD :S LT 90
　　　FX :N-1 :S
END
TO JI :s
　　　FD :S LT 90
　　　REPEAT 3[FD :S RT 90]RT 180
　　　FD :S
END
TO FPOI2 :N :S
　　　DRAW HT
　　　REPEAT 2[FX :N :S RT 90 FD :S RT 90]
END; 0