第三章 几种复杂的绘图方式
第一节 可变的画图方法
学习任务：
1、初步了解LOGO语言变量的表示方法；
2、掌握带变量过程的编辑与执行；
在前面编写的过程中，前进步数、转角的度数等都是一定的数值（常数），这样画出的图形大小是一定的。若要改变其大小与形状，只有重新编写过程，这样显然是比较麻烦的。LOGO语言中有一种过程，在过程中某些数字可以取不同的数值，画图时只需要调整这些数值，就改变了图形的大小或形状。这样的过程叫做带变量的过程。吃什么能增强记忆力
（1）什么叫变量？
可以取不同数值的量称为变量（也叫参数）。
变量在各种数学公式中常常见到如：
正方形周长L=4×A
（2）LOGO语言中变量的规定
LOGO语言中，变量用：后跟变名来表示，变量名是字母打头的字母数字串，如:B:X:A1等都可以表示变量。（:号与变量名之间不能有空格）
（3）LOGO语言允许一个过程带有多个变量。
劝孝歌带变量的过程必须在它的过程名后列出本过程所要使用到的全部变量名（局部变量）。例如：教师威信
TO SU :B :A :X（变量与变量之间有空格）
例1：辨写一个画长方形的过程
变量设置：分别用:B1、:B2来表示长方形的长和宽
过程如下：
TO CFX :B1 :B2
DRAW
REPEAT 2[FD :B1 RT 90 FD :B2 RT 90]
END
执行CFX 100 50
CFX 50 100
例2：编写一个画六角星的过程
变量设置：用:X来表示六角星边长
过程如下：
TO LJX :X
DRAW
REPEAT 6[FD :X RT 120 FD :X LT 60]
END
执行 LJX 30
例3：编写一个可以画任意大小的正多边形过程
分析：正N边形的外角和等于360度，每一个外角等于360/:N度。
变量设置：用:B表示正多边形的边长，用:N表示正多边形的边数。
程序如下：
TO DBX :N :B
HT REPEAT :N[FD :B RT 360/:N]
END
注意：执行时边数从3到8或更大一点，边长不变，观察图表，能否得出，边数越多图形越接近圆。关于自信的作文
例4：编写一个可以画任意大小的平行四边形过程
分析：平行四边形两组对边分别相等，相邻两个内角和为180度。
变量设置：分别用:B1、:B2来表示平行四边形两条相邻边长，用:J表示一个内角的度数。
程序如下：
TO D4 :B1 :B2 :J
HT REPEAT 2[FD :B1 RT :J FD :B2 RT 180-:J]
END
执行RT 30 D4 70 100 60
例5利用上述过程画一个长方体
TO CFT
DRAW
LT 90 D4 120 50 140
LT 90 D4 50 120 90
LT 130 D4 50 50 130
END
执行CFT
练习：
1．用最少的参数编写一个过程，通过改变参数值画出下列图形。
2．上机练习，画出图形。
TO P :B1 :B2 :J
HT REPEAT 2[FD :B1 RT :J FD :B2 RT 180-:J]
END
TO DSJ
PU FD 60 PD
LT 90 P 130 40 140
LT 90 P 100 130 90
LT 130 P 40 100 130
RT 40 BK 6 PU RT 90 FD 6 PD
P 50 15 90 PU FD 88 RT 90 PD
P 15 10 90 PU FD 21 PD
P 97 88 90 PU FD 49 RT 90 FD 44
FD 60 REPEAT 6[P 15 15 40 RT 60]
END
3．编写画出下图：
第二节多角星与空心多角星
学习任务：
1、初步掌握多角星的画法；
2、初步掌握空心多角星的画法；
3、初步掌握空心多角星图形嵌套的设计；
一、画奇数多角星
画奇数多角星比较简单，它与画正多边形很相似，也是每画一条边要转一个角（外角），外角的算法为：180-180/角数。画任意大小的正奇数多角星的过程如下：
TO DX :N :B（:N为角数，:B为边长）
REPEAT :N[FD :B RT 180-180/:N]
山洞英语END
执行DX 5 100 画出边长为100的五角星，
执行DX 9 100画出边长为100 的九角星。
二、画空心多角形
画空心多角形与画奇数多角星是不同。每画一个角要画两条边，转二次角（右转一次，左转一次）。过程如下：
TO KX :N :B
REPEAT :N[FD :B RT 729/:N FD :B LT 360/:N]
适合表演的成语END
执行KX 7 30画出边长为30的正空心七角形。过程中:N为角数，:B为边长。
空心多角星图形嵌套的设计：
这些图形，每幅图其各个多边形之间有一条是通过线段来连接的，把这些线段和边全部连接起来，不难看出，正多边形嵌套在空心正多边形之中。
TO ZDBX :N :B
REPEAT :N[FD :B RT 360/:N]
END过年的风俗习惯
TO QTTX :X :N :B
REPEAT :X[FD :B RT 360/:X*2 ZDBX :N :B FD :B LT 360/:X]美育教育
END
三、画任意多角星
多角星的转角（外角）应为：
180-（:N-2*:K）*180/:N=:K*360/:N。过程如下：
TO DJX :B :N :K
REPEAT :N[FD :B RT :K*360/:N]
END
过程中:B为边长，:N为角数，:K为参数（1<:K<:N/2），且K与N没有公因数。
例1：十一角星。1<k<11/2，且与11没有公因数的。有K=2，3，4，5。
例2：十六角星。1<k<8，且与16没有公因数的，有k=3，5，7。
可以很容易编写画任意多角星的公式，其转角应为外角180-（:N-2*:K）*（180/:N）=:K*360/:N。
过程中有三个变量，边长:B，角数:N，:K为参数。
TO DJX :B :N :K
HT REPEAT :N[FD :B RT :K*360/:N]
END
例3：要以最小的内角画边长为50的 24角星。0<k<12，与24没有公因数的有k=5，7，11。 K取最大的，其内角最小，因此取K=11。
