一、海龟命令集锦
RANDOM随机数命令
WAIT等待命令
TELL激活命令
TELLALL同时激活命令
MAKE赋值命令
READ键盘输入命令
IF条件命令
STOP 停止命令
二、小海龟大显身手
例1：画海上的小船。
（设：组成船身的半圆的半径为R，小船上的旗杆长为2R，旗面是等边三角形，边长为R。）
(一）过程CHUAN
（画一艘小船）
TO CHUAN :r
SETW 5 SETPC 6
RT 90 FD 2*:r RT 90
REPEAT 180[ FD 3.14*:r/180 RT 1]
RT 90 FD :r LT 90
SETPC 13 FD 2*:r
RT 120 FD :r RT 120 FD :r
END
(二）过程HAILANG
TO HAILANG :r :n
SETPC 9
REPEAT :n [RT 180 REPEAT 180[FD 3.14*:r/180 LT 1]]
END
(三）过程HAI
(调用前两个过程画整幅图)
TO HAI
DRAW SETW 20
TELLALL 0 5 SETPC 9 HT
RT 45 PU BK 150 PD LT 45
STAMPRECT 320 200 SETW 1
TELL 0 FD 120 HAILANG 10 16
TELL 1 FD 120 HAILANG 10 4 CHUAN 15
TELL 2 FD 100 HAILANG 15 11
TELL 3 FD 100 HAILANG 15 5 CHUAN 20
TELL 4 FD 60 HAILANG 20 8
TELL 5 FD 60 HAILANG 20 5 CHUAN 25
END
(四）运行
HAI
例2： 编写过程，当我们输入“1”时，电脑根据我们指定的边长和边数画正多边形；当输入“2”时，电脑为我们演奏一曲“生日歌”；当输入“3”时，退出本过程
(一）过程SHENGRIGE
TO SHENGRIGE
PLAY [L8 G G L4 A G O4 C O3 L2 B]
PLAY [L8 G G L4 A G O4 D L2 C]
PLAY [L8 G G L4 O4 G E L8 C O3 B L2 A]
PLAY [L8 O4F F L4E C D L2C]
END
(二）过程DUOBIANXING
(画多边形）
TO DUOBIANXING
PR [请输入边数：]
MAKE "N READ
PR [请输入边长：]
MAKE "L READ
REPEAT :N[FD :L RT 360/:N]
(三）过程XUANZE
(进行选择的过程）
TO XUANZE
PR [请选择：]
PR [1.画多边形2.点歌0.停止]
MAKE "A READ
IF :A = 3 THEN STOP
IF :A = 1 THEN DUOBIANXING
IF :A = 2 THEN SHENGRIGE
END
（四）运行1
XUANZE
请选择： 1.画多边形2.点歌0.停止
1
请输入边数：
6
请输入边长：
100
(五）运行2
请选择：
1.画多边形2.点歌0.停止
2
(六）运行3
请选择： 1.画多边形2.点歌3.停止
3
本站内容未经许可，禁止任何网站及个人进行转载。
