海龟命令集

一、海龟命令全集
隐藏：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]
填充封闭图形：fill
设置背景色：sethg 颜色代码
画笔宽度：setwidth 宽度
画圆海龟在中点的圆：repeat 36[ rt 5 fd 0.175*r rt 5 ]
笔刷命令 : 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 ＂变量名对象功能：将对象的值赋给变量
海龟定位命令：水平格式：setx x
竖直格式： sety y
Setxy [ x y] 将海龟从当前位置移动到坐标（x,y）的对应点位置海龟定向命令：seth 度数功能：顺时针旋转的角度
画点图形：格式：dot [x y]
输出海龟当前的横坐标: 格式: xcor
输出还对的纵坐标: 格式：ycor
查询海龟当前的位置：格式：getxy
输出海龟当前方向：格式：heading
查询海龟的朝向：格式：towards [x y]
建立过程和编辑过程：edit 过程名
带参数的过程定义：
格式1：to 过程名：形参名
过程体
End
显示过程名命令：格式：pots
显示一个或者多个指名过程的内容：格式：po 过程名列表
显示工作区中所有过程的内容：格式：pops
删除一个或多个工作区中指名过程：格式：erase 过程名列表
显示用赋值命令定义的所有变量名及其值：格式：pons
删除变量：格式：ern 变量名列表
显示当前目录下所有文件名命令：格式：dir
文件更名命令：格式：rename＂源文件名＂新文件名
删除文件命令：格式：delete＂文件名
程序存盘命令：格式：save＂文件名
装入程序文件名：格式：load＂文件名
图形存盘命令：格式：savepic＂文件名
装入图形命令：格式：loadpic＂文件名
循环体：
For ＂变量名初值终值 [命令序列] 步长
While ［条件］［命令序列］
停止命令：stop
终止命令并返回到命令行: toplevel
等待命令：wait
选取对象的第一个元素：格式：first 对象
选取对象最后的一个元素：格式：last 对象
选取对象中除了第一个元素以外的所有元素：bf 对象
选取对象中除了最后一个元素以外的所有元素：bl 对象
将两个或者对个对象连成一个字：word 对象１对象２
将两个或多个对象连接成一个表：se 对象１对象２
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 setxy se :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]) \ Else (pr :y [pingnian])
End
8、。