logo语言常用命令详解

end
to p34cc
draw fs
ask 1 [rt 45 setpc 1]
ask 2 [rt 90 setpc 2]
ask 3 [rt 135 setpc 3]
ask 4 [rt 180 setpc 4]
ask 5 [rt 225 setpc 5]
ask 6 [rt 270 setpc 6]
TELLALL 海龟代号1 海龟代号2 告诉从代号1至代号2的海龟为活动龟
六、定义过程：
过程结构：
TO 过程名
过程体
END
带变量的过程
TO 过程名 变量名1 变量名2 变量名3…… (变量名的表示是:+英文字母，英文字母可以是一个或多个，一个变量用多个字母时字母之间不能有空格)
end
to p29
draw fs
pu lt 90 fd 300 rt 90 fd 100 pd setpc 12
stamprect 40 25
stamprect 60 50
stamprect 80 75
stamprect 100 95
stamprect 120 120
pu rt 90 fd 300 setpc 9 lt 90 fd 50 pd
stampoval 50 50
pu home setpc 0 bk 80 lt 90 fd 80 rt 90 pd stamprect 150 100
pu fd 25 rt 90 fd 25 pd (stamprect 100 50 "true)
pu fd 30 lt 90 fd 75 pd lt 30 fd 50 (stampoval 15 15 "true)
pu fd 100
end
to p34a
draw fs
ask 1 [pu lt 90 fd 300 setpc 9]
ask 2 [pu rt 90 fd 300 setpc 12]
ask 3 [pu bk 100 lt 90 fd 150 setpc 2]
ask 4 [pu bk 100 rt 90 fd 150 setpc 14]
FILL 以当前笔色同色填充
（FILL 图形线的颜色号） 异色填充
DOT [:X :Y] 在指定的坐标位置[:x :y]处画一个点，不改变海龟位置
四、其它命令
SETBG 代号 设置背景色，代号取值为0——15
ask 7 [rt 315 setpc 7]
ask 8 [setpc 8]
tellall 1 8
st fd 50 repeat 5[fd 30 rt 144]
end
to p37
draw fs
pu lt 90 fd 300 pd setpc 2 setw 2
repeat 12[repeat 3[fd 30 rt 120] rt 60 fd 20 lt 30]
变量的值由初值开始，每次增长步长，并将后面的命令串执行一遍，直至超过终值停止。
to p5
draw fs
fd 100 rt 90 fd 100 rt 90 fd 100 rt 90 fd 100 rt 90
pu bk 100 rt 45 pd （调整海龟位置，准备画下一个图，练习时可省略）
logo语言常用命令详解
[ 录入者:亿生爱岩 | 时间:2011-10-31 09:25:08 | 浏览:328次 | 来源: | 作者: ]
一、小海龟绘图环境命令：
DRAW 初始化
CLEAN清图，不改变海龟当前位置
CS 清图，海龟回原位
CT 清文本
SS 图文混合窗口模式
当符合条件时执行命令1，然后跳过命令2向后执行其它命令，当不符合条件时执行跳过命令1执行命令2再向后执行其它命令。
5、循环控制命令FOR语句
格式1：FOR “变量 初值 终值 [命令串]
变量的值由初值开始，每次加1并将后面的命令串执行一遍，直至超过终值停止。
格式2：（FOR “变量 初值 终值 [命令串] 步长）
LT 参数 以海龟当前头的方向左转参数给出的度数
SETH 参数 以0度为基准顺时针转参数所给出的度数
SETXY [:X :Y] 将海龟移到指定的坐标位置，不改变海龟方向
SETX :X 将海龟移到指定的X坐标位置，不改变Y坐标，不改变方向
多角星：REPEAT :N[FD 步长 RT 360*:K/:N]
注：:N为多角星的角数
:K的确定方法：（1）1<:K<:N.2；（2）:K为整数；（3）:K和N不能有公约数
五、多龟作图命令
ASK [海龟代号] [命令组] 呼叫指定代号海龟执行命令组
TELL [海龟代号] 告诉指定代号海龟为活动龟
过程体
END
相关命令：
1、EDIT 打开编辑器
2、SAVE 存盘
3、LOAD 调用
4、条件语句：IF
格式1：IF 条件 [命令]
当符合条件时执行中括号内的命令，不符合条件不执行中括号内的命令，向后执行其它命令。
格式2：IF 条件 THEN [命令1] ELSE [命令2]
pu rt 90 fd 60 rt 90 fd 100 pd
fd 100 bk 45 lt 90 bk 120 fd 75 rt 135 fd 30
ht
end
to p15
draw fs
pu lt 90 fd 300 rt 90 bk 200 rt 90 pd
repeat 8[fd 600 bk 600 lt 90 pu fd 50 pd rt 90]
pu bk 50 rt 30 rt 90 fd 40 lt 60 pd fd 50 (stampoval 15 15 "true)
end
to p31
draw fs
tellall 0 14
st each [seth who*24 setpc who] each：协同命令，同时执行命令
pu home pd setpc 12
repeat 6[repeat 2[fd 25 rt 90 fd 50 rt 90] rt 60]
pu rt 90 fd 300 setpc 6 pd
STAMPOVAL 横向半径 纵向半径 画椭圆
（STAMPOVAL 横向半径 纵向半径 “TRUE） 画实心椭圆
STAMPRECT 横向参数 纵向参数 画矩形
（STAMPRECT 横向参数 纵向参数 “TRUE） 画实心矩形
ask 13 [rt 312]
ask 14 [rt 336]
tellall 0 14
ht pu fd 50 pd fd 50
end
to p34c
draw fs
tellall 1 8
each [seth who*45 setpc who]
st fd 50 repeat 5[fd 30 rt 144]
SETTURTLES 参数 设置海龟数量为参数值
REPEAT重复次数[命令组] 重复命令
正多边形：REPEAT 边数[FD 步长 RT 360/边数]
多个正多边形图形：REPEAT 个数[REPEAT 边数[FD 步长 RT 360/边数]RT 360/个数]
pu fd 45 pd repeat 2[pu fd 14 pd fd 1]
pu setw 1 fd 25
lt 90 fd 40 rt 90 pd
repeat 2[fd 50 rt 90 fd 80 rt 90]
pu fd 15 rt 90 fd 35 pd
setpc 14 (fill 0)
pu bk 10 lt 10 fd 60 rt 90 fd 80 pd setpc 0 setw 10 fd 2
ht
pu setw 1 fd 200 lt 90 bk 60 pd
setw 3 fd 40
setpc 12 setw 12 repeat 6[fd 1 pu fd 10 pd]
fd 80 rt 90 fd 80 rt 90 fd 80 rt 90 fd 80
end
to p10
draw fs
fd 120 bk 60 rt 90 fd 25 bk 25 lt 90 bk 60 lt 90 fd 55 bk 100
pu bk 100 pd
bk 100 fd 50 rt 90 fd 120 lt 90 fd 50 bk 100 fd 50 rt 90 bk 60 lt 90 fd 50 bk 100
stampoval 40 20
stampoval 60 30
stampoval 80 45
stampoval 100 60
pu rt 90 fd 170 lt 90 bk 50 pd setpc 10
stamprect 100 100
pu fd 50 rt 90 fd 50 pd
FS 全图窗口模式
TS 全文本窗口模式
ST 显龟
HT 藏龟
HOME 回家，小海龟回原位
二、移动、旋转命令
FD 参数 以海龟当前头的方向前进参数给出的步数
BK参数 以海龟当前头的方向后退参数给出的步数
RT 参数 以海龟当前头的方向右转参数给出的度数
rt 10 pu fd 10 pd setpc 5 (fill 0) pu bk 10 lt 10 repeat 2[fd 50 rt 120] lt 240 pd