海龟作图Logo程序设计

1、语言辅导语言辅导LogoLogo语言绘图的基本命令语言绘图的基本命令 LogoLogo语言绘图基础语言绘图基础 LogoLogo语言绘图的辅助方法语言绘图的辅助方法 图形程序设计图形程序设计 数值计算数值计算 字和表字和表 简单动画简单动画 典型试题分析与解答典型试题分析与解答 语言辅导语言辅导一、一、LogoLogo语言绘图基础语言绘图基础 1 1、LogoLogo的启动的启动 将将LogoLogo的的WindowsWindows版本系统文件夹直接复制在版本系统文件夹直接复制在WindowsWindows操作系统下，双击操作系统下，双击Logo.exeLogo.exe即可启动即可启动Logo

2、Logo语言。语言。2 2、LogoLogo语言窗口语言窗口 logologo窗口同常用的应用软件窗口基本相同，它由系统窗口和平窗口同常用的应用软件窗口基本相同，它由系统窗口和平辅其上的绘图窗口、命令窗口组成。这就具备了小海龟绘图的基辅其上的绘图窗口、命令窗口组成。这就具备了小海龟绘图的基本环境条件。本环境条件。 3 3、LogoLogo的屏幕显示方式的屏幕显示方式 图文方式：图文方式：设置命令：设置命令：ssss或按功能键或按功能键shift+f2,shift+f2,这是这是LogoLogo默认的窗口方式。默认的窗口方式。文本方式：文本方式：设置命令：设置命令：tsts或按功能键或按功能键s

3、hift+f3shift+f3。 图形方式图形方式：设置命令：设置命令：fsfs或按功能键或按功能键shift+f4shift+f4。二、二、logologo语言绘图的基本命令语言绘图的基本命令（一）常用的绘图环境命令：（一）常用的绘图环境命令：显龟命令：显龟命令：stst 作用：在屏幕上显示海龟。作用：在屏幕上显示海龟。 藏龟命令：藏龟命令：htht作用：隐藏屏幕上的海龟。作用：隐藏屏幕上的海龟。 清屏命令：清屏命令：cscs 作用：清除屏幕上的图形，海龟回到屏幕中心位置。作用：清除屏幕上的图形，海龟回到屏幕中心位置。 清图命令：清图命令：cleanclean 作用：清除屏幕上的图形，但海龟

4、的位置和方向不改变。作用：清除屏幕上的图形，但海龟的位置和方向不改变。清文本命令：清文本命令：ctct ( (也可按按功能键也可按按功能键shift+f9)shift+f9)作用：清除文本区的所有命令行，光标回到第一行开始处。作用：清除文本区的所有命令行，光标回到第一行开始处。 初始化命令：初始化命令：drawdraw 作用：清屏、显龟、黑色笔、笔宽为作用：清屏、显龟、黑色笔、笔宽为1 1、环绕模式、环绕模式、海龟回到窗口中心头向上、落笔、白色背景、字体为海龟回到窗口中心头向上、落笔、白色背景、字体为系统字体。系统字体。 回家命令：回家命令：homehome作用：使海龟回到屏幕中心位置（海龟的

5、家）。作用：使海龟回到屏幕中心位置（海龟的家）。二、二、logologo语言绘图的基本命令语言绘图的基本命令( (二）移动命令：二）移动命令： 前进命令：前进命令：fd fd 参数参数 作用：海龟沿龟头方向移动指定的龟步数。作用：海龟沿龟头方向移动指定的龟步数。后退命令；后退命令；bk bk 参数参数 作用：海龟沿龟头反方向移动指定的龟步数。作用：海龟沿龟头反方向移动指定的龟步数。（三）旋转命令（三）旋转命令左转命令：左转命令：lt lt 参数参数 作用：海龟向左旋转指定的角度。作用：海龟向左旋转指定的角度。 右转命令：右转命令：rt rt 参数参数 作用：海龟向右旋转指定的角度。作用：海龟向

6、右旋转指定的角度。 以以0 0度为基准顺时针旋转命令：度为基准顺时针旋转命令：seth seth 参数参数 （四）笔命令（四）笔命令抬笔命令：抬笔命令：pu pu 作用：使海龟变为抬笔状态。作用：使海龟变为抬笔状态。 落笔命令：落笔命令：pd pd 作用：使海龟变为落笔状态。作用：使海龟变为落笔状态。 笔宽命令：笔宽命令：setw setw 参数参数(1-999)(1-999)作用：设置海龟笔画线的宽度。（作用：设置海龟笔画线的宽度。（width width 查查询笔宽）询笔宽） 笔擦命令：笔擦命令：pe pe 作用作用: :使海龟变成一个活动的笔擦使海龟变成一个活动的笔擦 二、二、logol

7、ogo语言绘图的基本命令。语言绘图的基本命令。（五）文本输出命令：五）文本输出命令：tt tt 字或表字或表 （六）字体、字号、字型设置命令：（六）字体、字号、字型设置命令：setfont “setfont “字体名称字体名称 字号字号 字型字型字型属性有下面四种：字型属性有下面四种：1 1 粗体、粗体、2 2 斜体、斜体、4 4 有下划线、有下划线、8 8 删除线删除线 （七）画矩形命令：（七）画矩形命令：空心矩形：空心矩形：stamprect stamprect 参数参数1 1 参数参数2 2 功能：画一个由参数功能：画一个由参数1 1和参数和参数2 2确定长和宽的空心矩形。确定长和宽的空

8、心矩形。 实心矩形：实心矩形：(stamprect (stamprect 参数参数1 1 参数参数2 “true)2 “true) （八）画椭圆命令：（八）画椭圆命令：空心椭圆：空心椭圆：stampoval stampoval 横向半径横向半径 纵向半径纵向半径 功能：画一个由参数功能：画一个由参数1 1和参数和参数2 2确定了横轴半径和纵轴半径的空心椭圆确定了横轴半径和纵轴半径的空心椭圆。实心椭圆：实心椭圆：(stampoval (stampoval 横向半径横向半径 纵向半径纵向半径 “ “true)true)二、二、logologo语言绘图的基本命令。语言绘图的基本命令。（九）用重复命令

9、绘图（九）用重复命令绘图 格式：格式：REPEAT REPEAT 重复次数重复次数 重复内容重复内容 功能：此命令将中括号中的内容重复执行一定的次数。功能：此命令将中括号中的内容重复执行一定的次数。1 1、用重复命令画正多边形、用重复命令画正多边形格式：格式：REPEAT REPEAT 边数边数FD FD 边长边长 RT 360/RT 360/边数边数 2 2、用重复命令画长方形、用重复命令画长方形 格式：格式：REPEAT 2 FD REPEAT 2 FD 边长边长1 RT 90 FD 1 RT 90 FD 边长边长2 RT 902 RT 90 3 3、用重复命令画平行四边形、用重复命令画平

10、行四边形 格式：格式：REPEAT 2 FD REPEAT 2 FD 边长边长1 RT 1 RT 角角1 FD 1 FD 边长边长2 RT 180-2 RT 180-角角11二、二、logologo语言绘图的基本命令。语言绘图的基本命令。（九）用重复命令绘图（九）用重复命令绘图 4 4、用重复命令画菱形、用重复命令画菱形 格式：格式：REPEAT 2 FD REPEAT 2 FD 边长边长 RT RT 角角1 FD 1 FD 边长边长 RT 180-RT 180-角角11 5 5、用重复命令画圆形、用重复命令画圆形 格式：格式：REPEAT 36 RT 5 FD RREPEAT 36 RT 5

11、 FD R* *0.174 RT 50.174 RT 5 6 6、用重复命令画弧、用重复命令画弧 右弧：右弧：REPEAT REPEAT 弧的度数弧的度数/10 RT 5 FD R/10 RT 5 FD R* *0.174 RT 50.174 RT 5 左弧：左弧：REPEAT REPEAT 弧的度数弧的度数/10 LT 5 FD R/10 LT 5 FD R* *0.174 LT 50.174 LT 5 小技巧小技巧 画完弧后，将画弧命令重复内容中的命令变为相反的命令，能使小海画完弧后，将画弧命令重复内容中的命令变为相反的命令，能使小海龟沿弧返回原位。龟沿弧返回原位。 7 7、用重复命令画多

12、角星、用重复命令画多角星 格式格式: :repeat 角数角数 fd 边长边长 rt 360*倍数因子倍数因子/角数角数用重复命令画多角星转角的计算方法是：用重复命令画多角星转角的计算方法是：360360* *K/K/角数角数 K K的范围是的范围是1K1K3 STOPN3 STOPREPEAT 3 FD 80 RT 120 RT 120REPEAT 3 FD 80 RT 120 RT 120SJX :N+1SJX :N+1ENDEND有条件判断语句的递归叫做条件递归，这样的过程叫条件递归过程。有条件判断语句的递归叫做条件递归，这样的过程叫条件递归过程。 递归过程中调用自身的语句称为递归语句。

13、递归过程中调用自身的语句称为递归语句。按照递归语句在过程体中的位置和调用的次数把递归过程分为首递归、尾按照递归语句在过程体中的位置和调用的次数把递归过程分为首递归、尾递归、中间递归和多重递归。递归、中间递归和多重递归。四、图形程序设计四、图形程序设计 （五）过程的递归调用（五）过程的递归调用 5 5、尾递归、尾递归递归语句单独出现在过程体的末尾的递归过程叫做尾递归过程。递归语句单独出现在过程体的末尾的递归过程叫做尾递归过程。尾递归的特点：尾递归的特点：（1 1）条件未成立时，逐层执行递归语句前的命令。但）条件未成立时，逐层执行递归语句前的命令。但IFIF语句除外。语句除外。（2 2）条件成立时

14、，执行）条件成立时，执行IFIF语句后面的命令。语句后面的命令。（3 3）返回时，只逐层回报，没有工作可做。）返回时，只逐层回报，没有工作可做。四、图形程序设计四、图形程序设计 （五）过程的递归调用（五）过程的递归调用 5 5、尾递归、尾递归尾递归小结：尾递归小结： 如果一个图形，是由多个形状相同，大小不同的图形组成，而决定图形如果一个图形，是由多个形状相同，大小不同的图形组成，而决定图形大小的边长又是有规律的递增或递减，画这类图形可以用尾递归的方法。大小的边长又是有规律的递增或递减，画这类图形可以用尾递归的方法。四、图形程序设计四、图形程序设计 （五）过程的递归调用（五）过程的递归调用 6

15、6、中间递归、中间递归 递归过程中，如果递归调用语句在过程体的中间，这样的递归过程叫中递归过程中，如果递归调用语句在过程体的中间，这样的递归过程叫中间递归过程。间递归过程。 四、图形程序设计四、图形程序设计 （五）过程的递归调用（五）过程的递归调用 7 7、复杂中间递归、复杂中间递归 TO SHU :ATO SHU :A IF :A 10 STOP IF :A 10 STOP LT 45 FD :A LT 45 FD :A SHU :A/2 SHU :A/2 BK :A BK :A RT 90 FD :A RT 90 FD :A SHU :A/2 SHU :A/2 BK :A LT 45 BK

16、 :A LT 45 END ENDTO SHU1 :ATO SHU1 :A LT 45 FD :A BK :A LT 45 FD :A BK :A RT 90 FD :A BK :A RT 90 FD :A BK :A LT 45 LT 45ENDEND四、图形程序设计四、图形程序设计 （五）过程的递归调用（五）过程的递归调用 中间递归的特点：中间递归的特点： 1 1条件未成立时，逐层执行递归句前各命令，条件未成立时，逐层执行递归句前各命令，IFIF句除外。句除外。 2 2条件成立时，便是最后一层，执行条件成立时，便是最后一层，执行IFIF句后面的命令。句后面的命令。 3 3返回时逐层执行递归

17、句后各命令。返回中，后被调用的过程反而先返回时逐层执行递归句后各命令。返回中，后被调用的过程反而先 执行。执行到哪一层，要用回该层原来的参数值执行。执行到哪一层，要用回该层原来的参数值7 7、复杂中间递归、复杂中间递归 对复杂而有规律的图形，寻找出构成复杂图形的简单图形，我们称对复杂而有规律的图形，寻找出构成复杂图形的简单图形，我们称它为它为“基本作图单元基本作图单元”，同时，又有合适的，同时，又有合适的“生叉点生叉点”整个图形的位置整个图形的位置是相互对称的，画这类图形可用中间递归的方法。是相互对称的，画这类图形可用中间递归的方法。五、数值计算五、数值计算1 1、常数与变量、常数与变量在在L

18、OGOLOGO语言中，我们把不能变化的数，称为常数。语言中，我们把不能变化的数，称为常数。 整型数整型数实型数实型数取值范围是取值范围是999999999999到到999999999999 取值范围是取值范围是3.40279993879014E3.40279993879014E3838到到3.40279993879014 E3.40279993879014 E3838 在在LOGOLOGO语言进行计算时，对于常数一般要注意以下几点：语言进行计算时，对于常数一般要注意以下几点：正数的前面可加正数的前面可加“”，也可以不写；但负数前面的必须写负号，也可以不写；但负数前面的必须写负号 “”，不能省略

19、。，不能省略。小数的整数部分为小数的整数部分为0 0时，小数点前面的零可以省略不写，如时，小数点前面的零可以省略不写，如0 0174174可写成可写成.174.174。对一个绝对值大于对一个绝对值大于999999999999的整数，的整数，LOGOLOGO系统将会以科学记数法来表系统将会以科学记数法来表示。示。 2 2、运算符和表达式、运算符和表达式 LOGOLOGO中的运算符有（加号）、（减号）、中的运算符有（加号）、（减号）、* *（乘号）、（乘号）、/ /（除号）。（除号）。 LOGOLOGO中的表达式是数、变量、函数等用运算符号和圆括号等连接起来的数学式。中的表达式是数、变量、函数等用

20、运算符号和圆括号等连接起来的数学式。 五、数值计算五、数值计算3 3、赋值和输出、赋值和输出(1)(1)打印输出语句打印输出语句标准格式打印命令：标准格式打印命令：PRINTPRINT（缩写（缩写PRPR）用法用法1 1：PR PR 打印内容打印内容作用：一是计算并打印表达式的值，二是原样打印字和表的内容。作用：一是计算并打印表达式的值，二是原样打印字和表的内容。 用法用法2 2：(PR (PR 打印内容打印内容1 1 打印内容打印内容2 )2 )作用：在同一行打印多项内容，打印内容如有运算符号要用中括号括起来。作用：在同一行打印多项内容，打印内容如有运算符号要用中括号括起来。紧凑格式打印命令

21、：紧凑格式打印命令：TYPETYPE 用法用法1 1：TYPE TYPE 打印内容打印内容用法用法2 2：(TYPE (TYPE 打印内容打印内容1 1 打印内容打印内容2 )2 )作用：作用：TYPETYPE与与PRINTPRINT功能基本相同，不同的是功能基本相同，不同的是PRINTPRINT命令打印完后光标移到下命令打印完后光标移到下一行，而一行，而TYPETYPE命令打印完后光标不换行。命令打印完后光标不换行。 编写过程输出。 666666 555554444333221五、数值计算五、数值计算3 3、赋值和输出、赋值和输出(2)(2)赋值语句赋值语句 MAKEMAKE命令命令用法：用

22、法：MAKE “MAKE “变量名变量名 赋值内容（数、字和表等）赋值内容（数、字和表等）作用：将数、字或表赋值给变量。作用：将数、字或表赋值给变量。说明：说明：MAKEMAKE是赋值命令，后面是变量名，而不是变量，变量名前必须加一是赋值命令，后面是变量名，而不是变量，变量名前必须加一个双引号个双引号“”。求求1+2+3+N1+2+3+N的值。的值。 TO L6 :NTO L6 :NMAKE K 0 MAKE K 0 （将（将K K的值从初始值开始）的值从初始值开始）MAKE S 0 MAKE S 0 （清（清0 0语句）语句）REPEAT :NMAKEK :K+1 MAKES :S+:KRE

23、PEAT :NMAKEK :K+1 MAKES :S+:K(PR S= :S)(PR S= :S)ENDEND五、数值计算五、数值计算4 4、循环语句、循环语句 （1 1）FORFOR循环循环格式格式1 1：FOR “FOR “变量变量 初值初值 终值终值 命令串命令串 作用：让变量由初值开始执行，以后每次加一并执行后面的命令串一遍，直到作用：让变量由初值开始执行，以后每次加一并执行后面的命令串一遍，直到变量超过终值停止执行。变量超过终值停止执行。TO A1TO A1DRAW DRAW FOR X 40 80 REPEAT 4 FD :X RT 90 RT 5FOR X 40 80 REPEA

24、T 4 FD :X RT 90 RT 5ENDEND格式格式2 2：（：（FOR “FOR “变量变量 初值初值 终值终值 命令串命令串 步长）步长）作用：让变量由初值开始执行，以后每次增加一个步长并执行后面的命令串作用：让变量由初值开始执行，以后每次增加一个步长并执行后面的命令串一遍，直到变量超过终值停止执行。一遍，直到变量超过终值停止执行。 TO A2TO A2DRAW DRAW （FOR X 40 80 REPEAT 4 FD :X RT 90 RT 5 10FOR X 40 80 REPEAT 4 FD :X RT 90 RT 5 10）ENDEND五、数值计算五、数值计算4 4、循环

25、语句、循环语句 （2 2）WHILEWHILE循环循环格式：格式：WHILE WHILE 条件条件 循环体循环体 作用：当条件成立时，就不断执行循环体的内容，直到条件不成立，才执行作用：当条件成立时，就不断执行循环体的内容，直到条件不成立，才执行下面的语句。下面的语句。To ATo AMAKE “X 1MAKE “X 1WHILE :X5 TYPE MAKE “X :X+1WHILE :X5 TYPE MAKE “X :X+1ENDEND5 5、常用标准函数、常用标准函数6 6、程序控制基础知识、程序控制基础知识六、字和表六、字和表1 1、字和表的概念、字和表的概念(1)(1)字的概念字的概念

26、 在在LOGOLOGO中，中，“字字”是指用双引号开头的字符串。是指用双引号开头的字符串。 空字，即只有一个引号的字，不包含任何元素空字，即只有一个引号的字，不包含任何元素。 (2)(2)表的概念表的概念 在在LOGOLOGO语言中，所谓语言中，所谓“表表”是指用中括号是指用中括号括起来的任意表元素括起来的任意表元素（表元素可以是数，也可以是字，字不加双引号，也可以是表，还可（表元素可以是数，也可以是字，字不加双引号，也可以是表，还可以是逻辑值）组成的有序集合（包括空表以是逻辑值）组成的有序集合（包括空表），表元素之间用空格分），表元素之间用空格分开。开。 2 2、字和表的赋值、字和表的赋值（

27、1 1）把字赋给变量）把字赋给变量 （2 2）把表赋给变量）把表赋给变量 3 3、字和表的操作、字和表的操作 六、字和表六、字和表4 4、字和表的应用、字和表的应用* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *to xsjto xsjts ctts ctmake a | |make a | |make b make b * *repeat 4 type :a pr :b make b fput :b | repeat 4 type :a pr :b make b fput :b | * *| | mak

28、e a bf :amake a bf :aendend * * * * * * * * * * * * * * * * * * * * 六、字和表六、字和表4 4、字和表的应用、字和表的应用输入一个不超过六位的数，打印其倒置数。如输入输入一个不超过六位的数，打印其倒置数。如输入123123，输，输321321。TO DZ :NTO DZ :NMAKE “X “MAKE “X “(FOR “I COUNT :N 1 MAKE “X FPUT :X ITEM :I :N -1)(FOR “I COUNT :N 1 MAKE “X FPUT :X ITEM :I :N -1)PR :NPR :NPR

29、 :XPR :XENDEND5 5、练习：、练习： 编写程序输出下面的字符图形编写程序输出下面的字符图形 1 222 33333 4444444555555555 4444444 33333 222 1七、简单动画七、简单动画 1 1、用画擦法来实现动画、用画擦法来实现动画 画擦法实际上就是采用画擦法实际上就是采用“画画擦擦画画”的方法，即在屏幕上显示一组的方法，即在屏幕上显示一组图形后并擦除该组图形的不同静止图像，接着显示下一组图形，以此类推。图形后并擦除该组图形的不同静止图像，接着显示下一组图形，以此类推。 主要用的命令是笔擦命令主要用的命令是笔擦命令PEPE、反笔命令、反笔命令 PXPX

30、、等待命令、等待命令 WAITWAIT。2 2、用填色法来实现动画、用填色法来实现动画 填色法实际上就是利用背景色和填充中溢满屏现象来完成的，即在屏填色法实际上就是利用背景色和填充中溢满屏现象来完成的，即在屏幕上显示出图形后，用填满屏的方法覆盖图形，然后再显示图形。幕上显示出图形后，用填满屏的方法覆盖图形，然后再显示图形。3 3、练习、练习 编程画出下面的雪花。要求：雪花要从上到下飘落。编程画出下面的雪花。要求：雪花要从上到下飘落。 编程画出下面的奥运五环。要求：五环要从左向右移动。五环的颜色第编程画出下面的奥运五环。要求：五环要从左向右移动。五环的颜色第一排从左到右蓝、黑、红，第二排为黄和绿

31、。一排从左到右蓝、黑、红，第二排为黄和绿。 八、典型试题分析与解答八、典型试题分析与解答 （一）图形题：（一）图形题：1 1、编程画一个花环。要求：主过程名为、编程画一个花环。要求：主过程名为XXT4XXT4。参数为：。参数为：M M：N N其中其中M M为花环半为花环半径，径，N N为花环上叶的对数。例如，运行为花环上叶的对数。例如，运行XXT4 50 8XXT4 50 8时画出下面图形。花环的颜时画出下面图形。花环的颜色为绿色。（第十届）色为绿色。（第十届） to xxt4 :m :nto xxt4 :m :nsetpc 10setpc 10repeat :n repeat 360/:n

32、rt 0.5 fd :mrepeat :n repeat 360/:n rt 0.5 fd :m* *0.0174 rt 0.5 xxt0.0174 rt 0.5 xxtendendto xxtto xxtrepeat 2 repeat 9 rt 5 fd 20repeat 2 repeat 9 rt 5 fd 20* *0.174 rt 5 rt 900.174 rt 5 rt 90lt 90lt 90repeat 2 repeat 9 rt 5 fd 20repeat 2 repeat 9 rt 5 fd 20* *0.174 rt 5 rt 900.174 rt 5 rt 90rt 90

33、rt 90endend八、典型试题分析与解答八、典型试题分析与解答 （一）图形题：（一）图形题： 2 2、编程绘出如下图的牛角图案。、编程绘出如下图的牛角图案。 要求：主过程名为要求：主过程名为FST4FST4，运行该过程，屏幕上显示该图形，图形大小自定。，运行该过程，屏幕上显示该图形，图形大小自定。（参考数据：牛角尖小下方形边长为（参考数据：牛角尖小下方形边长为5 5，相连正方形的转角为，相连正方形的转角为1515度，边长递增为度，边长递增为1.51.5。（第六届）。（第六届） to fst4 :nto fst4 :nzfx :nzfx :npu home pdpu home pdzfx1

34、:nzfx1 :nendendto zfx :nto zfx :nif :n5 stopif :n5 stoprepeat 4 fd :n rt repeat 4 fd :n rt 9090fd :n rt 15 fd :n rt 15 zfx :n-1.5 zfx :n-1.5 endendto zfx1 :n to zfx1 :n if :n5 stop if :n5 stop repeat 4 fd :n lt 90repeat 4 fd :n lt 90fd :n lt 15 fd :n lt 15 zfx1 :n-1.5 zfx1 :n-1.5 end end 八、典型试题分析与解答

35、八、典型试题分析与解答 （一）图形题：（一）图形题：3 3、编程绘出下图。、编程绘出下图。要求：主过程名为要求：主过程名为FST3FST3，运行该过程，屏幕上，运行该过程，屏幕上上能显示出该图形，图形大小自定。上能显示出该图形，图形大小自定。to ye :rto ye :rrepeat 2 repeat 9 rt 5 fd :rrepeat 2 repeat 9 rt 5 fd :r* *0.174 rt 5 rt 900.174 rt 5 rt 90endendto ye1 :rto ye1 :rrepeat 4 ye :r repeat 9 rt 5 fd :rrepeat 4 ye :r

36、 repeat 9 rt 5 fd :r* *0.174 rt 5 0.174 rt 5 endendto fst3 :rto fst3 :rye1 :rye1 :rpu rt 90 fd :rpu rt 90 fd :r* *4/7 lt 90 pd4/7 lt 90 pdye1 :rye1 :r* *3/73/7endend八、典型试题分析与解答八、典型试题分析与解答 （一）图形题：（一）图形题：4 4、编程画出一变换的椭圆。要求：最小椭圆横轴半径为、编程画出一变换的椭圆。要求：最小椭圆横轴半径为6 6，纵轴半径为，纵轴半径为9 9，然，然后椭圆依次变大，变化规律为横纵半径初起比值为后椭圆

37、依次变大，变化规律为横纵半径初起比值为1 1：1.51.5，下一次为，下一次为1.51.5：1 1，如此变换。主过程名为如此变换。主过程名为ST4 ST4 参数为参数为 :N :N ，N N为椭圆个数。例如，运行为椭圆个数。例如，运行ST4 6ST4 6时，时，画出图画出图6.1.106.1.10。 to st4 :nto st4 :nmake x 6make x 6make y 9make y 9a :na :nendendto a :nto a :nif :n=0 stopif :n=0 stopstampoval :x :ystampoval :x :ymake z :ymake z :

38、y* *1.51.5stampoval :z :ystampoval :z :ymake x :zmake x :zmake y :zmake y :z* *1.51.5a :n-2a :n-2endend八、典型试题分析与解答八、典型试题分析与解答 （一）图形题：（一）图形题：5 5、编程画出下面图形。要求：主过程名为、编程画出下面图形。要求：主过程名为X14X14，每朵花用不同的颜色。，每朵花用不同的颜色。 （第八届）（第八届）to x14to x14tellall 1 8 tellall 1 8 each setpc who seth whoeach setpc who seth who

39、* *45 hu 90 80 ye145 hu 90 80 ye1endendto hu :n :rto hu :n :rrepeat :n/10 rt 5 fd:rrepeat :n/10 rt 5 fd:r* *0.174 rt 50.174 rt 5endendto ye to ye repeat 2 hu 90 30 rt 90repeat 2 hu 90 30 rt 90repeat 2 hu 90 20 rt 90repeat 2 hu 90 20 rt 90endendto ye1to ye1repeat 8 ye rt 45repeat 8 ye rt 45endend八、典型

40、试题分析与解答八、典型试题分析与解答 （一）图形题：（一）图形题：6 6、设有、设有Z Z块方砖（块方砖（Z Z为任意自然数，方砖的边长为为任意自然数，方砖的边长为1515），要垒成如图所示的金字），要垒成如图所示的金字塔。编程画金字塔并求出金字塔砖的层数和剩余砖数。（第五届）塔。编程画金字塔并求出金字塔砖的层数和剩余砖数。（第五届）要求：主过程为：要求：主过程为：99fs599fs5。当给定。当给定Z Z的数值后，画出金字塔并输出金字塔的层数和的数值后，画出金字塔并输出金字塔的层数和剩余砖数。例：当剩余砖数。例：当Z Z为为1717时，画出如图并输出层数为时，画出如图并输出层数为5 5，剩余

41、砖数为，剩余砖数为2.2.。TO 99FS5 :ZTO 99FS5 :ZDRAW CT FSDRAW CT FSMAKE A 0MAKE A 0JZT :ZJZT :ZENDENDTO JZT :ZTO JZT :ZIF (OR :Z=:A :Z:A) SS (PR :A CENG) (PR YU :Z KUAI) IF (OR :Z=:A :Z999 stop if :n999 stop make a first :nmake a first :nmake b first bf :nmake b first bf :nmake c last :nmake c last :nmake d :c

42、make d :c* *100+:b100+:b* *10+:a10+:apr :dpr :dendend方法二：方法二：to x12 :nto x12 :nts ctts ctif :n999 stopif :n999 stopmake a int :n/100make a int :n/100make b int (:n-:amake b int (:n-:a* *100)/10100)/10make c :n-:amake c :n-:a* *100-:b100-:b* *1010make d :cmake d :c* *100+:b100+:b* *10+:a10+:apr :dpr

43、:dendend八、典型试题分析与解答八、典型试题分析与解答 （二）数值题（二）数值题2 2、编写程序，输入两个自然数，求两个数的最大公因数。要求：主过程、编写程序，输入两个自然数，求两个数的最大公因数。要求：主过程名为名为ST2ST2参数为：参数为：M M ：N N。例如，输入。例如，输入ST2 105 42 ST2 105 42 输出应为输出应为2121。 改这个程序可以用来求任意两个自然数的最小公倍数改这个程序可以用来求任意两个自然数的最小公倍数 八、典型试题分析与解答八、典型试题分析与解答 （二）数值题（二）数值题3 3、编程求能被、编程求能被1111整除，且每个数位上的数字的平方和是

44、整除，且每个数位上的数字的平方和是122122的所有三位数。的所有三位数。（要求：主过程名是（要求：主过程名是FST2FST2，运行该过程，屏幕显示出符合条件的三位数。），运行该过程，屏幕显示出符合条件的三位数。） to fst :nto fst :nif :n999 stopif :n999 stopmake a int :n/100make a int :n/100make b int (:n-:amake b int (:n-:a* *100)/10100)/10make c :n-:amake c :n-:a* *100-:b100-:b* *1010if (and :n/11=int

45、 :n/11 :aif (and :n/11=int :n/11 :a* *:a+:b:a+:b* *:b+:c:b+:c* *:c=122) then pr :n:c=122) then pr :nfst :n+1fst :n+1endendto fst2to fst2ts ctts ctfst 100fst 100end end 八、典型试题分析与解答八、典型试题分析与解答 （二）数值题（二）数值题4 4、有一个整数，如果加上、有一个整数，如果加上100100，则是一个完全平方数；如果加上，则是一个完全平方数；如果加上168168，则，则为另一个完全平方数，编程求此数。为另一个完全平方数，

46、编程求此数。to fst3 :nto fst3 :nmake a :n+100make a :n+100make b :n+168make b :n+168if (and (sqrt :a)=int (sqrt :a) (sqrt :b)=int (sqrt :b) pr :n stopif (and (sqrt :a)=int (sqrt :a) (sqrt :b)=int (sqrt :b) pr :n stopfst3 :n+1fst3 :n+1endend八、典型试题分析与解答八、典型试题分析与解答 （二）数值题（二）数值题5 5、已知某数是、已知某数是2 2、3 3、5 5的倍数，被的倍数，被1111除余除余1010，被，被1313除余除余7 7，被，被1717除余除余1313，求满，