第13课 《多个海龟齐画图》
目 录
CONTENTS
01
关键词
指定海龟命令
02
关键词
激活海龟命令
03
关键词
单查询活动海龟命令
04
关键词
单各自执行命令
指定海龟命令
1
单ASK【海龟代号】【命令组】
单执行ASK命令,可以让指定代号的海龟执行命令组中的命令。命令组可以是一个命令、一组命令或调用过程的命令。
ASK命令是指定某些海龟出来画图的命令,命令的格式是:
定义并调用下面的过程,观察画出的图形
TO SZ
ASK [2 4 6 8] [ST FD 80]
ASK [ST ] ASK 2 [ FD 80 ]
ASK 4 [RT 90 FD 80 ]
ASK 6 [LT 90 FD 80 ]
END
2
激活海龟命令
TELL命令是激活某些海龟的命令,命令格式是:
TELL
【海龟代号】
TELLALL 海龟代号1 海龟代号2
例如
TELL [3 7 11 15]
TELLALL 2 11
激活海龟命令
查询活动海龟命令
3
TELLALL
WHO
执行DRAW命令后,只有0号海龟被激活
DRAW WHO
TELLALL 1 9 WHO
表示1至9号海龟都被激活了
WHO命令用于查询被激活的海龟代号
各自执行命令
4
TO QJX
TELLALL 2 6 ST
EACH [PU SETPC WHO RT 90 FD WHO*100-400 LT 90 PD]
REPEAT 7[FD 20 RT 720/7 FD 20 LT 360/7 WAIT 50]
PU RT 90 FD 10 PD FILL
END
EACH命令是让海龟各自执行命令组的命令,命令格式是:
EACH [命令组】
EACH命令常常与WHO命令一起使用,让海龟各自分头行动,实现多海龟同时作图,画出奇妙的图形。
动手做
TO SJ
REPEAT 3[FD 50 RT 120]
END
TO SHANZI
TELLALL 1 8 ST FS
EACH[SETPC WHO RT WHO845 PU FD 80 PD]
REPEAT 16[SJ RT 5 WAIT 50] SS
END
动手做
TO SY
FD
REPEAT 2[FD 60 RT 90 FD 30 RT 90]
BK 40
END
TO FENGCHE :N
TELL 9 RT 90
TELL 10 RT 180
TELL 11 RT 270
TELLALL 9 12 EACH [SETPC WHO]
REPEAT :N[PD SY WAIT 10 PE SY RT 20]
PD SY
END
DRAW FENGCHE 40
管理工作区中的过程
5
要看一看工作区中都有哪些过程,可以使用以下命令
删除工作区中指定的过程
ERASE 过程名
删除工作区中的所有过程
ER PROCEDURES
删除工作区中的所有过程和变量
ERASE
ALL
显示过程名
删除过程
POTS
1、让6~12号海龟同时画不同颜色的空心五角星,并填上颜色。
2、观察下面过程的运行,尝试修改XUEHUA过程,在满足条件时能停止.
思考与练习
TO HUAB
FD 10 LT 90
REPEAT 360[FD 3.14*0.5/18 RT 1]
RT 90 BK 10
END
TO XHUA
REPEAT 6[HUAB RT 60]
END
TO DXHUA
HT PD XHUA WAIT 5
CLEAN PU FD 10 DXHUA
END
TO XUEHUA
CS TELLALL 10 13 LT 90
TELL 10 PU FD 350 RT 90
TELL 11 PU FD 250 RT 90
TELL 12 PU FD 160 RT 90
TELL 13 PU FD 80 RT 90
TELLALL 9 13 EACH[SETPC WHO] LT 180 PD DXHUA
END
THANK YOU