一、海龟命令全集
隐藏：lt 显示：st 前进：fd 后退：bk
左转：lt 右转：rt 重复：repeat 4[fd 80 rt 90 ]
抬笔：pu 落笔：pd 清除：cs 返回原点:home
画矩形：stamprect 40 40
画五角星：repeat 5[ fd 80 rt 144]
设置画笔颜色：tpc 颜色代码
0 | 黑 | 4 | 红 | 8 | 深灰 | 12 | 浅红 |
1 | 蓝 | 5 | 洋红 | 9 | 浅蓝 | 13 | 淡洋红 |
| 书法家的小故事 2 | 绿 | 6 | 棕 | 10 | 浅绿 | 14 | 黄 |
3 | 青 | 7 | 浅灰 | 11 | 淡青 | 15 | 白 |
| | | | | | | |
填充封闭图形：fill
设置背景色：thg 颜色代码
画笔宽度：twidth 宽度
画圆海龟在中点的圆：repeat 36[ rt 5 fd 0.175*r rt 5 ]
设置画笔花纹： tpattern 代码
实线 | 粗横线 | 细横线 | 细斜线 | 粗反斜线高考2进1 | 虚影反斜线 | 直网络交叉线 | 斜网络交叉线 | 密集点 | 稀疏点 | 间隔点 |
1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 |
| | | | | | | | 金安区 | | |
笔刷命令 : pp 笔檫命令： pe
进入图文混合屏幕状态：格式：ss 按键：F2
全屏作图状态：格式：fs 按键: F4
全屏文本状态：格式：ts 按键：F3
清除文本屏幕：格式：nd
显示输出命令：格式：pr 对象 功能：在命令行显示指定对象结果
格式：Type 对象 功能：在命令行输出指定对象结果
求余数：格式：remainder x y 功能：求x除以y所得余数
求整数：格式：int x 董事会章程
求平方根：格式：sqrt x
球随机数：格式： random x 功能：求1到x之间的随机数
赋值命令：格式： make ＂变量名 对象 功能：将对象的值赋给变量
海龟定位命令：水平格式：tx x
竖直格式： ty y
Setxy [ x y] 将海龟从当前位置移动到坐标（x,y）的对应点位置
海龟定向命令：th 度数 功能：顺时针旋转的角度
画点图形：格式：dot [x y]
输出海龟当前的横坐标: 格式: xcor
输出还对的纵坐标: 格式：ycor
查询海龟当前的位置： 格式：getxy
输出海龟当前方向： 格式：heading
查询海龟的朝向： 格式：towards [x y]
建立过程和编辑过程：edit 过程名
带参数的过程定义：
格式1：to 过程名 ：形参名
过程体
End
显示过程名命令：格式：pots
显示一个或者多个指名过程的内容：格式：po 过程名列表
显示工作区中所有过程的内容：格式：pops
删除一个或多个工作区中指名过程：格式：era 过程名列表
显示用赋值命令定义的所有变量名及其值：格式：pons
删除变量：格式：ern 变量名列表
显示当前目录下所有文件名命令：格式：dir
文件更名命令：格式 ：rename＂源文件名＂新文件名
删除文件命令：格式：delete＂文件名
程序存盘命令：格式：save＂文件名
装入程序文件名：格式：load＂文件名
图形存盘命令：格式：savepic＂文件名
装入图形命令：格式：loadpic＂文件名
循环体：
For ＂变量名 初值 终值 [命令序列] 步长
While ［条件］［命令序列］
停止命令：stop
终止命令并返回到命令行: toplevel
等待命令：wait
选取对象的第一个元素：格式：first 对象
选取对象最后的一个元素：格式：last 对象
选取对象中除了第一个元素以外的所有元素：bf 对象
选取对象中除了最后一个元素以外的所有元素：bl 对象
将两个或者对个对象连成一个字：word 对象１ 对象２
将两个或多个对象连接成一个表： 对象１ 对象２
read 命令： make ＂变量名 read
变量接收从键盘输入的一个字符： make ＂变量名 rc
清除屏幕上的图形，不改变海龟的方向和位置：clean
指定一个或多个非活动海龟同时执行所指出的命令序列：ask 海龟号
使指定的海龟成为当前活动的海龟：tell 海龟号
输出当前活动海龟代号：who奇迹作文
使激活海龟分别执行所给出的命令：each［命令序列］
编程题
1、任意输入三个数，输出最小值
To min :x :y :z
Make ＂min :x
If :y<min then make ＂min :y
If :z<min then make ＂min :z
Pr :min
End
2、猴子吃桃
To hzct
Make ＂：tz
For ＂ I 1 9 [make ＂:tz (:tz+1)*2]
Pr :tz
End
3、圆形金字塔
To jzt :r :n
If :n=0 then stop
Seth make ＂x xcor make ＂y ycor
Pd repeat :n [repeat 36[fd 0.175*r rt 10]
rt 90 pu fd 2*r pd lt 90]
Pu txy :x :y
Seth 30 fd 2*r lt 30
Jzt :r :n-1
End
Cs
Jzt 30 6
4、用非尾部递归画正方形内切圆
To znqy :s
If :s<10 then stop
Repeat 5[fd :s rt 90]lt 90
Znqy :s/2
Bk :s/2
Repeat 36[rt 5 fd :s/2*0.175 rt 5 ]
bk :s/2
end
cs pd
乱扔垃圾英语
znqy 80
5、编写一个过程 实现输入0~6之间的一个整数关于小猫的作文
To ex4
Make ＂m[sun mon tue wed thur fri sat ]
Type [shuru 0-6]
Make ＂n read
If or :n int :n
Repeat :n+1 [make ＂mm frist :m ]
Make ＂n int :n
Pr :mm
End
6、旋转de风筝
熬夜对身体的危害To fz :r
If key? Then stop
Repeat 4[ fd :r *2 rt 90 repeat 18 [rt 5 fd 0.175 *r rt 5]]
Wait 5
Clean rt 5
Fz :r
End
Fz :30
7、判断某年是否为闰年
To nian :y
If or(and (remainder :y 4)=0 \
(not (remainder :y 100) =0)) \
(remainder :y 400) =0 (pr :y [runnian]) \
El (pr :y [pingnian])
End
8、
