海龟作图Logo程序设计ppt课件.ppt

《海龟作图Logo程序设计ppt课件.ppt》由会员分享，可在线阅读，更多相关《海龟作图Logo程序设计ppt课件.ppt（62页珍藏版）》请在三一办公上搜索。

1、语言辅导,Logo语言绘图的基本命令,Logo语言绘图基础,Logo语言绘图的辅助方法,图形程序设计,数值计算,字和表,简单动画,典型试题分析与解答,语言辅导,一、Logo语言绘图基础,1、Logo的启动,将Logo的Windows版本系统文件夹直接复制在Windows操作系统下，双击Logo.exe即可启动Logo语言。,2、Logo语言窗口,logo窗口同常用的应用软件窗口基本相同，它由系统窗口和平辅其上的绘图窗口、命令窗口组成。这就具备了小海龟绘图的基本环境条件。,3、Logo的屏幕显示方式,图文方式：设置命令：ss或按功能键shift+f2,这是Logo默认的窗口方式。,文本方式：设置

2、命令：ts或按功能键shift+f3。,图形方式：设置命令：fs或按功能键shift+f4。,二、logo语言绘图的基本命令,（一）常用的绘图环境命令：,显龟命令：st,作用：在屏幕上显示海龟。,藏龟命令：ht,作用：隐藏屏幕上的海龟。,清屏命令：cs,作用：清除屏幕上的图形，海龟回到屏幕中心位置。,清图命令：clean,作用：清除屏幕上的图形，但海龟的位置和方向不改变。,清文本命令：ct,(也可按按功能键shift+f9),作用：清除文本区的所有命令行，光标回到第一行开始处。,初始化命令：draw,作用：清屏、显龟、黑色笔、笔宽为1、环绕模式、海龟回到窗口中心头向上、落笔、白色背景、字体为系

3、统字体。,回家命令：home,作用：使海龟回到屏幕中心位置（海龟的家）。,二、logo语言绘图的基本命令,(二）移动命令：,前进命令：fd 参数 作用：海龟沿龟头方向移动指定的龟步数。,后退命令；bk 参数 作用：海龟沿龟头反方向移动指定的龟步数。,（三）旋转命令,左转命令：lt 参数 作用：海龟向左旋转指定的角度。,右转命令：rt 参数 作用：海龟向右旋转指定的角度。,以0度为基准顺时针旋转命令：seth 参数,（四）笔命令,抬笔命令：pu 作用：使海龟变为抬笔状态。,落笔命令：pd 作用：使海龟变为落笔状态。,笔宽命令：setw 参数(1-999)作用：设置海龟笔画线的宽度。（width

4、查询笔宽）,笔擦命令：pe 作用:使海龟变成一个活动的笔擦,二、logo语言绘图的基本命令。,（五）文本输出命令：tt 字或表,（六）字体、字号、字型设置命令：setfont “字体名称 字号 字型,字型属性有下面四种：1 粗体、2 斜体、4 有下划线、8 删除线,（七）画矩形命令：,空心矩形：stamprect 参数1 参数2,功能：画一个由参数1和参数2确定长和宽的空心矩形。,实心矩形：(stamprect 参数1 参数2 “true),（八）画椭圆命令：,空心椭圆：stampoval 横向半径 纵向半径,功能：画一个由参数1和参数2确定了横轴半径和纵轴半径的空心椭圆。,实心椭圆：(sta

5、mpoval 横向半径 纵向半径 “true),二、logo语言绘图的基本命令。,（九）用重复命令绘图,格式：REPEAT 重复次数重复内容功能：此命令将中括号中的内容重复执行一定的次数。,1、用重复命令画正多边形,格式：REPEAT 边数FD 边长 RT 360/边数,2、用重复命令画长方形,格式：REPEAT 2 FD 边长1 RT 90 FD 边长2 RT 90,3、用重复命令画平行四边形,格式：REPEAT 2 FD 边长1 RT 角1 FD 边长2 RT 180-角1,二、logo语言绘图的基本命令。,（九）用重复命令绘图,4、用重复命令画菱形,格式：REPEAT 2 FD 边长 R

6、T 角1 FD 边长 RT 180-角1,5、用重复命令画圆形,格式：REPEAT 36 RT 5 FD R*0.174 RT 5,6、用重复命令画弧,右弧：REPEAT 弧的度数/10 RT 5 FD R*0.174 RT 5,左弧：REPEAT 弧的度数/10 LT 5 FD R*0.174 LT 5,小技巧,画完弧后，将画弧命令重复内容中的命令变为相反的命令，能使小海龟沿弧返回原位。,7、用重复命令画多角星,格式:repeat 角数 fd 边长 rt 360*倍数因子/角数,用重复命令画多角星转角的计算方法是：360*K/角数,K的范围是1K角数/2，且与角数没有公约数的正整数。,REP

7、EAT 角数FD 边长 RT 720/角数 FD 边长 LT 360/角数,8、用重复命令画空心多角形,二、logo语言绘图的基本命令。,（九）用重复命令绘图,格式:REPEAT 角数FD 边长 RT 720/角数 FD 边长 LT 360/角数,（十）重复嵌套,REPEAT 4 REPEAT 4 FD 100 RT 90 RT 90,一个重复命令的重复内容中又包含了一个重复命令；有时根据需要，可能在重复内容中会包含多个重复命令。这样的命令组合称为重复嵌套。,系统在执行重复嵌套命令组时，先执行最里层的重复命令，然后再依次向外执行。,1、重复嵌套的方法,二、logo语言绘图的基本命令。,（十）重

8、复嵌套,2、画叶,方法：REPEAT 2 REPEAT 弧的度数/10RT 5 FD R*0.174 RT 5RT 180-弧的度数,3、多弧顺绕成花,方法：repeat 花的瓣数弧 lt 弧的度数-360/花的瓣数,4、多弧反绕成花,二、logo语言绘图的基本命令。,（十）重复嵌套,方法：REPEAT 花的瓣数 弧 LT弧的度数+360/花的瓣数,5、练习,三、PCLOGO语言绘图的辅助方法,（一）彩色绘图,1、颜色代号表,2、设置画笔颜色命令：SETPC，用法：SETPC 颜色号 作用：使海龟以指定的颜色绘图。,3、设置屏幕背景颜色命令：SETBG，用法：SETBG 颜色号 作用：将屏幕作

9、图区设置为指定颜色。绘图时要先设置背景色，否则会将屏幕上的图形消除。,三、PCLOGO语言绘图的辅助方法,（一）彩色绘图,4、填充颜色命令：FILL 用法1：FILL作用：用封闭线颜色填充封闭图形。用法2：（FILL 封闭线颜色号）作用：用当前画笔颜色填充封闭图形。,使用FILL命令要按下列步骤进行：第一步，海龟抬笔进入封闭区域内，注意不要停在封闭线上；第二步，海龟落笔，并设置画笔颜色为要填充的颜色；第三步，根据填充要求选择一种填充格式，执行填充命令。,5、图案填充,（二）多龟绘图,1、呼叫命令：ASK用法1：ASK 海龟代号 命令组用法2：ASK 海龟代号表 命令组作用：呼叫一个或多个海龟执

10、行命令组中的命令。,非活动龟被呼叫成为活动龟执行完任务后，恢复原来的非活动龟状态；且其它海龟为活动龟时，0号海龟为非活动龟。,三、PCLOGO语言绘图的辅助方法,（二）多龟绘图,2、告诉命令：TELL和TELLALL用法1：TELL 海龟代号 或TELL 海龟代号表作用：告诉一个或几个海龟成为活动龟。用法2：TELLALL 海龟代号 海龟代号作用：使两个海龟代号之间的海龟（包括这两只海龟）成为活动龟。,告诉命令”与“呼叫命令”不同，在“告诉”一些海龟为活动龟后，这些海龟始终处于活动状态，直到下次重新“告诉”为止。其余没有被“告诉”的海龟（包括0号海龟），都成为非活动龟。,3、询问命令：WHO，

11、用法：WHO作用：指出当前活动海龟的代号表。,4、协同命令：EACH，用法：EACH 命令组作用：与WHO命令一起使海龟各自分头执行命令。,5、设置海龟总数命令：SETTUETLES 参数（1-32767）6、查询当前设置的海龟总数命令：TURTLES,三、PCLOGO语言绘图的辅助方法,（二）多龟绘图,（三）坐标绘图,1、设置横坐标命令：SETX X,作用：海龟移动到横坐标X的位置，纵坐标和方向不变。,2、设置纵坐标命令：SETY Y 作用：海龟移动到纵坐标Y的位置，横坐标和方向不变。,3、设置坐标命令：SETXY X Y 作用：海龟移动到坐标（X Y）的位置。,4、查询坐标命令：GETXY

12、 作用：显示出海龟当前位置的坐标值。,5、查询横坐标命令：XCOR作用：显示出海龟当前位置的横坐标值。,三、PCLOGO语言绘图的辅助方法,（三）坐标绘图,6、查询纵坐标命令：YCOR 作用：显示出海龟当前位置的纵坐标值。,7、画点命令：DOT X Y 作用：海龟在坐标X Y位置画了一个点。,?PU BK 50 PD ?SETXY 20 -70 SETX 100 ?SETXY 120 -50 SETX 0 ?SETX 50 SETY 100 ?SETXY 130 -20 SETXY 50 -40 ?SETXY 35 0 SETY 25 ?SETXY 50 70 SETXY -10 -5 ?SE

13、TXY 50 -40,三、PCLOGO语言绘图的辅助方法,（四）随机绘图,随机函数：random 参数（小于等于32767） (随机产生一个由1-参数之间的一个整数。),(1)repeat 100repeat 5rt 45 pu fd 20 setpc random 15 pd repeat 5fd 30 rt 144(2)repeat 40setpc random 14 pu seth random 360 setxy se random 400 random 200 pd stampoval random 50 random 20SE是将两个或多个变量连接成表的命令。格式：SE 变量1 变

14、量2因为SETXY后面要求的是表，所以要用SE命令将两个变量合成一个表。,(3)repeat 20setpc random 14 pu seth random 360 fd random 80 pd repeat 5fd 10 rt 144 (4)repeat 100 repeat 8 repeat 4 setpc random 15 repeat 9 rt 5 fd 40*0.174 rt 5 repeat 9 lt 5 fd 40*0.174 lt 5 rt 90 rt 45,四、图形程序设计,（一）过程和过程的编辑,1、什么是过程,TO YE DRAW REPEAT 2 REPEAT 9

15、 RT 5 FD 80*0.174 RT 5 RT 90END,一个过程的基本结构是：TO 过程名过程体END,2、过程名的取法,3、编写和定义过程,（1）在命令状态下定义过程,（2）在编辑窗口中定义过程,在“？”提示符后输入EDIT回车或直接按功能键shift+F10，还可以使用常用工具栏中的 打开编辑窗口按钮或File菜单下New命令，都可打开过程编辑窗口。在编辑窗口中我们可以按照一般文本编辑的方法，按照过程的结构输入过程的各命令行。,四、图形程序设计,（一）过程和过程的编辑,EDIT命令的三种使用方法： 第一种，?EDIT回车，打开一个空白编辑窗口，窗口名为Editor； 第二种，?ED

16、IT 过程名回车，打开一个有过程头和过程尾的编辑窗口，窗口名为指定的过程名； 第三种，?EDIT 过程名1 过程名2 回车，打开一人同时定义多个过程的编辑窗口，且每个过程都有过程头和过程尾，窗口名为第一个过程的过程名。,4、过程的执行,5、保存过程,过程编辑完成之后，可按功能键F2退出编辑窗口，返回命令绘图状态。,四种方法。,第一种是使用常用工具栏中的 保存命令按钮；第二种是使用文件菜单下的Save选项；第三种是按键盘上功能键F6。,第四种使用SAVE命令。,无论用哪种方法保存，其操作与其它应用软件的操作相同。但文件名与过程名是两个概念，可以相同也可以不同。,四、图形程序设计,（一）过程和过程

17、的编辑,6、读取磁盘上的过程文件到工作区,读取磁盘上的过程文件到工作区有四种方法：第一种，使用常用工具栏中的 读取磁盘文件按钮；第二种，使用功能键F5；第三种，使用文件菜单下的Load选项；第四种，使用load命令。,7、过程的修改,8、练习,（二）过程与磁盘的管理,四、图形程序设计,1、过程的管理,（1）查看某一指定过程的命令,用法1：PO 过程名 用法2：PO 过程名1 过程名2 作用：显示指定的一个或多个过程的全部内容。 用法3：PO ALL 作用：显示工作区中所有过程的全部内容。,（2）查看过程名命令 用法：POTS 作用：显示当前工作区中所有过程的过程名。,（3）查看所有过程内容命令

18、 用法：POPS 作用：显示当前工作区中所有过程的全部内容。,（4）删除过程命令 用法：ER 过程名 ER 过程名1、过程名2 ER ALL 作用：删除工作区中指定的一个、多个或全部的过程。,2、磁盘文件的管理,（二）过程与磁盘的管理,四、图形程序设计,（1）查看磁盘文件命令 用法：DIR 作用：查看当前磁盘上当前目录中所有的文件（2）显示当前磁盘命令 用法：DISK 作用：显示当前操作的磁盘名称。（3）保存图形命令 用法：SAVEPIC “图形文件名.扩展名 作用：将屏幕上的图形以文件的形式存盘。（4）取出图形命令 用法：LOADPIC “图形文件名.扩展名 作用：将指定的图形文件从磁盘读入

19、屏幕。（5）删除磁盘文件命令 用法：DELETE “文件名 作用：删除指定的磁盘文件。,（三）过程的调用,1、什么是过程调用,TO ZFXREPEAT 4 FD 40 RT 90END,TO TIAN REPEAT 4 ZFX RT 90 END,TO A REPEAT 8 FD 56 ZFX RT 45 END,一个过程中又出现了另一个过程的过程名，称之为过程调用。被调用的过程称为子过程，调用子过程的过程称为主过程。,四、图形程序设计,（三）过程的调用,2、过程的多重调用,过程的多重调用大致包含三种情况，即调用多个过程、多次调用和多层调用。,（1）调用多个过程,四、图形程序设计,（三）过程的

20、调用,2、过程的多重调用,（2）多次调用,四、图形程序设计,（三）过程的调用,2、过程的多重调用,（3）多层调用,四、图形程序设计,（三）过程的调用,四、图形程序设计,（四）带参数的过程,TO ZFX :A REPEAT 4FD :A RT 90END,在LOGO的过程里，我们可以假设一个或几个可以取不同数值的量，这样的量称为参数，也叫变量。并且规定参数的表示形式为“:参数名”，冒号与参数之间不能有空格。参数名是由字母或字母数字串组成。,过程里有参数了，称为带参数的过程。,1、带参数过程的结构,TO 过程名 参数名 或 TO 过程名 参数名 参数名 参数名 过程体 过程体END END,2、带

21、参数过程的执行 方法是：过程名 参数值 参数值 参数值,四、图形程序设计,（四）带参数的过程,3、带参数过程的调用,（1）子过程中的参数被赋值调用,TO YUAN :R（:R为圆的半径） REPEAT 36 FD :R*0.174 RT 10ENDTO A :N（:N为重复次数） CS REPEAT :N YUAN 60 RT 360/:NEND,（2）主过程与子过程用同样的参数,TO SJX :C（:C为正三角形的边长） REPEAT 3 FD :C RT 120 ENDTO SHU :C CS FD :C*2 LT 90 FD :C/2 RT 120 SJX :CEND,四、图形程序设计,

22、（四）带参数的过程,3、带参数过程的调用,（3）子过程中的参数被一起调用,TO WBX :S REPEAT 5 FD :S RT 72ENDTO Q :N :S CS REPEAT :N WBX :S RT 360/:NEND,按下面要求执行主过程，画出图形。Y 3 40 (2) Y 4 20 (3) Y 5 20 ( 4) Y 6 20 (5) Y 8 10 (6) Y 10 15 (7) Y 18 10 (8) Y 36 5,四、图形程序设计,（四）带参数的过程,4、常用的几种图形的参数过程,（1）画任意大小的长方形 TO CFX :S1 :S2 REPEAT 2 FD :S1 RT 90

23、 FD :S2 RT 90 END（2）画任意大小和形状的菱形 TO LX :B :J REPEAT 2 FD :B RT :J FD :B RT 180-:J END（3）画任意大小和形状的平行四边形 TO PSX :B1 :B2 :J REPEAT 2 FD :B1 RT :J FD :B2 RT 180-:J END（4）画任意边长和边数的正多边形 TO ZDBX :N :B REPEAT :N FD :B RT 360/:N END,（5）画空心星 TO KXX :B :J :N REPEAT :N FD :B RT :J FD :B LT :J-360/:N END（6）画圆 TO

24、YUAN :R REPEAT 36 FD :R*0.174 RT 10 END（7）画弧 TO HU :R :D :j REPEAT :D/10 RT :j FD :R*0.174 RT :j END（8）画叶（调用HU过程） TO YE :R :D :j REPEAT 2 HU :R :D :j RT 180-:D END,四、图形程序设计,（四）带参数的过程,4、常用的几种图形的参数过程,（9）多弧顺绕成花（调用HU过程） TO HUA1 :R :D :N REPEAT :N HU :R :D LT :D-360/:N END,（10）多弧反绕成花TO HUA2 :R :D :N REPE

25、AT :N HU :R :D LT :D+360/:NEND,四、图形程序设计,（四）带参数的过程,（五）过程的递归调用,、什么是递归过程,在过程体中出现自己定义的过程名，叫过程的递归调用（自己调用自己）。,2、条件判断命令格式1：IF 条件 命令串（当条件满足时，执行条件后面的命令串。）格式2：IF 条件 THEN 命令串1 ELSE 命令串2（当条件满足时，执行命令串1；当条件不满足时，执行命令串2。）,四、图形程序设计,（五）过程的递归调用,3、停止命令格式：STOP功能：停止当前过程的执行，返回到调用当前过程的过程。,4、条件递归,TO SJX ：NIF ：N3 STOPREPEAT

26、3 FD 80 RT 120 RT 120SJX :N+1END,有条件判断语句的递归叫做条件递归，这样的过程叫条件递归过程。,递归过程中调用自身的语句称为递归语句。按照递归语句在过程体中的位置和调用的次数把递归过程分为首递归、尾递归、中间递归和多重递归。,四、图形程序设计,（五）过程的递归调用,5、尾递归,递归语句单独出现在过程体的末尾的递归过程叫做尾递归过程。,尾递归的特点：（1）条件未成立时，逐层执行递归语句前的命令。但IF语句除外。（2）条件成立时，执行IF语句后面的命令。（3）返回时，只逐层回报，没有工作可做。,四、图形程序设计,（五）过程的递归调用,5、尾递归,尾递归小结： 如果一

27、个图形，是由多个形状相同，大小不同的图形组成，而决定图形大小的边长又是有规律的递增或递减，画这类图形可以用尾递归的方法。,四、图形程序设计,（五）过程的递归调用,6、中间递归,递归过程中，如果递归调用语句在过程体的中间，这样的递归过程叫中间递归过程。,四、图形程序设计,（五）过程的递归调用,7、复杂中间递归,TO SHU :A IF :A 10 STOP LT 45 FD :A SHU :A/2 BK :A RT 90 FD :A SHU :A/2 BK :A LT 45 END,TO SHU1 :A LT 45 FD :A BK :A RT 90 FD :A BK :A LT 45END,四

28、、图形程序设计,（五）过程的递归调用,中间递归的特点： 1条件未成立时，逐层执行递归句前各命令，IF句除外。 2条件成立时，便是最后一层，执行IF句后面的命令。 3返回时逐层执行递归句后各命令。返回中，后被调用的过程反而先 执行。执行到哪一层，要用回该层原来的参数值,7、复杂中间递归,对复杂而有规律的图形，寻找出构成复杂图形的简单图形，我们称它为“基本作图单元”，同时，又有合适的“生叉点”整个图形的位置是相互对称的，画这类图形可用中间递归的方法。,五、数值计算,1、常数与变量,在LOGO语言中，我们把不能变化的数，称为常数。,整型数实型数,取值范围是999999到999999,取值范围是3.4

29、0279993879014E38到3.40279993879014 E38,在LOGO语言进行计算时，对于常数一般要注意以下几点：正数的前面可加“”，也可以不写；但负数前面的必须写负号 “”，不能省略。小数的整数部分为0时，小数点前面的零可以省略不写，如0174可写成.174。对一个绝对值大于999999的整数，LOGO系统将会以科学记数法来表示。,2、运算符和表达式,LOGO中的运算符有（加号）、（减号）、*（乘号）、/（除号）。,LOGO中的表达式是数、变量、函数等用运算符号和圆括号等连接起来的数学式。,五、数值计算,3、赋值和输出,(1)打印输出语句标准格式打印命令：PRINT（缩写PR

30、）用法1：PR 打印内容作用：一是计算并打印表达式的值，二是原样打印字和表的内容。,用法2：(PR 打印内容1 打印内容2 )作用：在同一行打印多项内容，打印内容如有运算符号要用中括号括起来。,紧凑格式打印命令：TYPE,用法1：TYPE 打印内容用法2：(TYPE 打印内容1 打印内容2 )作用：TYPE与PRINT功能基本相同，不同的是PRINT命令打印完后光标移到下一行，而TYPE命令打印完后光标不换行。,编写过程输出。 666666 555554444333221,五、数值计算,3、赋值和输出,(2)赋值语句,MAKE命令用法：MAKE “变量名 赋值内容（数、字和表等）作用：将数、字

31、或表赋值给变量。说明：MAKE是赋值命令，后面是变量名，而不是变量，变量名前必须加一个双引号“”。,求1+2+3+N的值。,TO L6 :NMAKE K 0 （将K的值从初始值开始）MAKE S 0 （清0语句）REPEAT :NMAKEK :K+1 MAKES :S+:K(PR S= :S)END,五、数值计算,4、循环语句,（1）FOR循环格式1：FOR “变量 初值 终值 命令串作用：让变量由初值开始执行，以后每次加一并执行后面的命令串一遍，直到变量超过终值停止执行。,TO A1DRAW FOR X 40 80 REPEAT 4 FD :X RT 90 RT 5END,格式2：（FOR

32、“变量 初值 终值 命令串 步长）作用：让变量由初值开始执行，以后每次增加一个步长并执行后面的命令串一遍，直到变量超过终值停止执行。,TO A2DRAW （FOR X 40 80 REPEAT 4 FD :X RT 90 RT 5 10）END,五、数值计算,4、循环语句,（2）WHILE循环格式：WHILE 条件 循环体作用：当条件成立时，就不断执行循环体的内容，直到条件不成立，才执行下面的语句。,To AMAKE “X 1WHILE :X5 TYPE MAKE “X :X+1END,5、常用标准函数,6、程序控制基础知识,六、字和表,1、字和表的概念,(1)字的概念,在LOGO中，“字”是

33、指用双引号开头的字符串。,空字，即只有一个引号的字，不包含任何元素。,(2)表的概念,在LOGO语言中，所谓“表”是指用中括号括起来的任意表元素（表元素可以是数，也可以是字，字不加双引号，也可以是表，还可以是逻辑值）组成的有序集合（包括空表），表元素之间用空格分开。,2、字和表的赋值,（1）把字赋给变量,（2）把表赋给变量,3、字和表的操作,六、字和表,4、字和表的应用,* *,to xsjts ctmake a | |make b *repeat 4 type :a pr :b make b fput :b | *| make a bf :aend,* * * * * * * * * *,六

34、、字和表,4、字和表的应用,输入一个不超过六位的数，打印其倒置数。如输入123，输321。,TO DZ :NMAKE “X “(FOR “I COUNT :N 1 MAKE “X FPUT :X ITEM :I :N -1)PR :NPR :XEND,5、练习： 编写程序输出下面的字符图形,1 222 33333 4444444555555555 4444444 33333 222 1,七、简单动画,1、用画擦法来实现动画,画擦法实际上就是采用“画擦画”的方法，即在屏幕上显示一组图形后并擦除该组图形的不同静止图像，接着显示下一组图形，以此类推。 主要用的命令是笔擦命令PE、反笔命令 PX、等待

35、命令 WAIT。,2、用填色法来实现动画,填色法实际上就是利用背景色和填充中溢满屏现象来完成的，即在屏幕上显示出图形后，用填满屏的方法覆盖图形，然后再显示图形。,3、练习,编程画出下面的雪花。要求：雪花要从上到下飘落。,编程画出下面的奥运五环。要求：五环要从左向右移动。五环的颜色第一排从左到右蓝、黑、红，第二排为黄和绿。,八、典型试题分析与解答,（一）图形题：,1、编程画一个花环。要求：主过程名为XXT4。参数为：M：N其中M为花环半径，N为花环上叶的对数。例如，运行XXT4 50 8时画出下面图形。花环的颜色为绿色。（第十届）,to xxt4 :m :nsetpc 10repeat :n r

36、epeat 360/:n rt 0.5 fd :m*0.0174 rt 0.5 xxtendto xxtrepeat 2 repeat 9 rt 5 fd 20*0.174 rt 5 rt 90lt 90repeat 2 repeat 9 rt 5 fd 20*0.174 rt 5 rt 90rt 90end,八、典型试题分析与解答,（一）图形题：,2、编程绘出如下图的牛角图案。 要求：主过程名为FST4，运行该过程，屏幕上显示该图形，图形大小自定。（参考数据：牛角尖小下方形边长为5，相连正方形的转角为15度，边长递增为1.5。（第六届）,to fst4 :nzfx :npu home pdz

37、fx1 :nend,to zfx :nif :n5 stoprepeat 4 fd :n rt 90fd :n rt 15 zfx :n-1.5 end,to zfx1 :n if :n5 stop repeat 4 fd :n lt 90fd :n lt 15 zfx1 :n-1.5 end,八、典型试题分析与解答,（一）图形题：,3、编程绘出下图。要求：主过程名为FST3，运行该过程，屏幕上上能显示出该图形，图形大小自定。,to ye :rrepeat 2 repeat 9 rt 5 fd :r*0.174 rt 5 rt 90endto ye1 :rrepeat 4 ye :r repe

38、at 9 rt 5 fd :r*0.174 rt 5 endto fst3 :rye1 :rpu rt 90 fd :r*4/7 lt 90 pdye1 :r*3/7end,八、典型试题分析与解答,（一）图形题：,4、编程画出一变换的椭圆。要求：最小椭圆横轴半径为6，纵轴半径为9，然后椭圆依次变大，变化规律为横纵半径初起比值为1：1.5，下一次为1.5：1，如此变换。主过程名为ST4 参数为 :N ，N为椭圆个数。例如，运行ST4 6时，画出图6.1.10。,to st4 :nmake x 6make y 9a :nendto a :nif :n=0 stopstampoval :x :yma

39、ke z :y*1.5stampoval :z :ymake x :zmake y :z*1.5a :n-2end,八、典型试题分析与解答,（一）图形题：,5、编程画出下面图形。要求：主过程名为X14，每朵花用不同的颜色。 （第八届）,to x14tellall 1 8 each setpc who seth who*45 hu 90 80 ye1endto hu :n :rrepeat :n/10 rt 5 fd:r*0.174 rt 5endto ye repeat 2 hu 90 30 rt 90repeat 2 hu 90 20 rt 90endto ye1repeat 8 ye rt

40、 45end,八、典型试题分析与解答,（一）图形题：,6、设有Z块方砖（Z为任意自然数，方砖的边长为15），要垒成如图所示的金字塔。编程画金字塔并求出金字塔砖的层数和剩余砖数。（第五届）要求：主过程为：99fs5。当给定Z的数值后，画出金字塔并输出金字塔的层数和剩余砖数。例：当Z为17时，画出如图并输出层数为5，剩余砖数为2.。,TO 99FS5 :ZDRAW CT FSMAKE A 0JZT :ZENDTO JZT :ZIF (OR :Z=:A :Z:A) SS (PR :A CENG) (PR YU :Z KUAI) STOPMAKE A :A+1 MAKE Z :Z-:AFOR I 1

41、:A REPEAT 7 FD 15 RT 90 RT 90PU LT 90 FD 15*:A+7.5 RT 90 BK 15 PDJZT :ZEND,八、典型试题分析与解答,（二）数值题,1、编写过程，输入一个三位数，将它反向输出。例如：输入126，输出为621。要求：主过程名为X12，参数为N（N为任意三位整数）。,方法一：to x12 :nts ct if :n999 stop make a first :nmake b first bf :nmake c last :nmake d :c*100+:b*10+:apr :dend,方法二：to x12 :nts ctif :n999 st

42、opmake a int :n/100make b int (:n-:a*100)/10make c :n-:a*100-:b*10make d :c*100+:b*10+:apr :dend,八、典型试题分析与解答,（二）数值题,2、编写程序，输入两个自然数，求两个数的最大公因数。要求：主过程名为ST2参数为：M ：N。例如，输入ST2 105 42 输出应为21。,改这个程序可以用来求任意两个自然数的最小公倍数,八、典型试题分析与解答,（二）数值题,3、编程求能被11整除，且每个数位上的数字的平方和是122的所有三位数。（要求：主过程名是FST2，运行该过程，屏幕显示出符合条件的三位数。）

43、,to fst :nif :n999 stopmake a int :n/100make b int (:n-:a*100)/10make c :n-:a*100-:b*10if (and :n/11=int :n/11 :a*:a+:b*:b+:c*:c=122) then pr :nfst :n+1endto fst2ts ctfst 100end,八、典型试题分析与解答,（二）数值题,4、有一个整数，如果加上100，则是一个完全平方数；如果加上168，则为另一个完全平方数，编程求此数。,to fst3 :nmake a :n+100make b :n+168if (and (sqrt :

44、a)=int (sqrt :a) (sqrt :b)=int (sqrt :b) pr :n stopfst3 :n+1end,八、典型试题分析与解答,（二）数值题,5、已知某数是2、3、5的倍数，被11除余10，被13除余7，被17除余13，求满足这些条件的最小自然数。,to fst4 :nif (and (remainder :n 11)=10 (remainder :n 13)=7 (remainder :n 17)=13) pr :n stopfst4 :n+30end,八、典型试题分析与解答,（二）数值题,6、用100元买了100只鸡，其中母鸡5元一只，公鸡3元一只，小鸡1元三只，问

45、母鸡、公鸡、小鸡各买了多少只？,to fst5 :xif :x20 stopmake y (100-7*:x)/4make z 100-:x-:yif (and :y=int :y :y0 :z0 )(pr |x=| :x |y=| :y |z=| :z)fst5 :x+1end,八、典型试题分析与解答,（二）数值题,7、编程输出用1、2、3、4四个数字，组成互不相同且无重复数字的三位数，并统计出三位数的个数。,to fst6 ts ctmake m 0 for i 1 4 for j 1 4 for k 1 4 fstpr :m endto fstif (or :i=:j :i=:k :j=

46、:k) stop(pr :i :j :k) make m :m+1 end,八、典型试题分析与解答,（二）数值题,8、有五名同学，每两人组成一个学习小组，有几种分组方法？三个人组成一个学习小组，又有几种分组方法？,to fzmake s2 0make s3 0for i 1 5 for j 1 5 fz2 pr :s2 for i 1 5 for j 1 5 for k 1 5 fz3 pr :s3 endto fz2 if :i=:j stop make s2 :s2+1 endto fz3 if (or :i=:j :i=:k :j=:k) stop make s3 :s3+1 end,谢谢,