中级班练习

LOGO中级班教学要点与练习1）编号姓名教学要点：1、递归复习PAUSE 暂停命令CONTINUE（CO）恢复运行命令WAIT :n 等待命令 :n 为一个自然数，值越大，等待的时间越长2、算机程序的基本结构：顺序结构、分支结构、重复结构LOGO 的比较符= 、> 、>= 、< 、<=LOGO 的逻辑表达式的结果：真 TRUE 、假 FALSELOGO 的逻辑运算非 NOT 、与 AND 、或 OR复杂的逻辑表达式的写法：NOT 逻辑表达式AND 逻辑表达式1 逻辑表达式2（AND 逻辑表达式1 逻辑表达式2 逻辑表达式3 ……）OR 逻辑表达式1 逻辑表达式2（OR 逻辑表达式1 逻辑表达式2 逻辑表达式3 ……）条件分支语句完整形式： IF …… THEN …… ELSE ……条件分支语句必须写在一行以内，THEN可以省略。

不属于条件分支语句的命令一定要写在下一行。

条件语句的变形：IF < 条件 > < 命令串 >IF < 条件 > < 命令串1 > ELSE < 命令串2 >IF < 条件 > [ 命令串1 ] [ 命令串2 ]3、龟的色彩和笔宽设定笔色SETPC :n :n可以取 0 – 15，默认值为0，即黑色。

查询笔色代码PC设定背景色SETBG :n :n可以取 0 – 15，默认值为15，即白色。

查询背景色代码 BG设定笔宽SETW :n :n可以取1 –999，默认值为1，即笔宽为1个海龟步。

注意：DRAW命令自动把笔色定为0、背景色定为15、笔宽值定为1，这是就是初始化的另三项内容。

想一想，初始化的含义是什么？作业：一、DRAW命令包含了下面哪些命令的功能（在合适的命令后的括号内打√）：SS（） WRAP（） CS（） SETW 1（）SETPC 0（） SETBG 0（） CLEAN（）HOME （） SETH 0（） ST（） SETX 0（）二、写出下列条件表达式的含义：:X = 8 :X = :Y + 2 NOT :X = 14 NOT :X > 20 NOT :Y < 20 AND :X < 30 :X > 10 AND :X < 30 :Y > 10 OR :X < 30 :Y > 10 OR :X < 30 :X > 50 NOT OR :X < 30 :X > 50 :X < 30 :X > 50三、写出满足下列要求的条件语句：1、当 :X的值大于 9 并且小于 100 时，海龟后退100步，否则前进100步。

2、当 :X的值大于等于 9并且小于 100 时，海龟后退100步，否则前进100步。

3、当 :X的值大于 9 并且小于等于 100 时，海龟后退100步，否则前进100步。

4、当 :X的值大于等于 9 并且小于等于 100 时，海龟后退100步，否则前进100步。

四、编写LOGO程序：1、输入三个数，输出其中最大的一个。

2、在算式 3□×6528 = □3×8256 中的□处填上同一个数字使算式成立。

3、用递归的方法解鸡兔同笼问题。

有鸡兔同笼，共有头73只。

足234只，求出鸡、兔各几只。

五、画出下列过程的运行结果：1、TO EX1 :X2、TO EX2 :RIF :X >100 STOP HT IF :R<1 STOPFD :X RT 90 SY :R :R-10 PU RT 90 FD 20 LT 90 PD EX1 :X+10 EX2 :R-30END END执行 EX1 10 TO Y :RREPEAT 36 [ RT 5 FD :R*0.174 RT 5 ]3、TO EX3 :B ENDHT IF :B>100 STOP TO SY :R :R1REPEAT 4 [ FD :B RT 90 ] IF :R<:R1 STOPRT 90 FD :B LT 90 Y :R RT 90 FD 1 LT 90EX3 :B*2 SY :R-1 :R1END END执行 EX3 10 执行 EX2 704、TO EX4 :Y TO GE :BIF :Y>4 STOP HT IF :B>15 STOPREPEAT 4[GE 15 FD 15 GE 1 FD 15] REPEAT 4[FD :B RT 90]SETX XCOR+30 SETH HEADING+180 GE :B+1REPEAT 4[GE 15 FD 15 GE 1 FD 15] ENDSETH HEADING-180EX4 :Y+1END 执行 EX4 1LOGO中级班教学要点与练习2）编号姓名教学要点：一次中间递归尾递归是在过程体的最后调用本过程的，中间递归是在过程体的中间调用本过程的。

一次中间递归：过程体被分为两部分。

变量的变化规律，基本图形的选取，开始点、递归点与结束点。

TO A :XIF :X < 20 LT 90 FD 10 RT 90 BY 10 RT 90 FD 10 RT 90 STOPZFX :X FD :X RT 90 FD 10 LT 90A :X - 20LT 90 BK :X - 10SJX :X FD :X RT 90 BK :XENDTO ZFX :XREPEAT 4 [FD :X RT 90]ENDTO BY :RREPEAT 18 [RT 5 FD :R * 0.174 RT 5]ENDTO SJX :XREPEAT 3 [FD :X LT 120]END执行 A 60TO AAREPEAT 2 [RT 45 FD 20 RT 45 FD 40 RT 90 ] SETX XCOR+40ENDTO BB :NPU RT 45 FD 20 LT 45 SETX XCOR - 20 * (2 * :N + 1) PDENDTO CC :NIF :N = 4 HT REPEAT 4 [AA] STOPREPEAT :N [AA] BB :NCC :N + 1BB :N REPEAT :N [AA]END执行 CC 1作业：一、说出下列命令的意义（所给形式是简写的写出全称，是全称的写出简写）：WAIT FS CO SETW BG REPEAT SPLITSCREEN CLEAN二、用LOGO语言逻辑表达式表示如下意义：1、 3 ≤ X < 102、 3 < X < 103、 3 < X ≤ 104、 X ≠ Y5、大于0小于10的偶数三、写出下列程序的运行结果1、TO L1 :B2、TO L2 :BIF :B < 10 STOP HT REPEAT 4 [ FD :B L1 :B/2 LT 90 ] FD :B RT 90 FD :B LT 90 ENDL1 :B / 2 执行 L2 60RT 180 FD :B RT 90 FD :B RT 90END 执行 L1 603、TO L3 :X4、TO L4 :YIF :X < 10 HT STOP IF :Y<10 [ XQ STOP ]REPEAT 6 [ FD :X RT 90 ] RT 180 REPEAT 6 [ FD :Y RT 90 ] LT 180 L3 :X / 2 L4 :Y / 2REPEAT 4 [ FD :X RT 120 ] LT 120 REPEAT 6 [ FD :Y RT 90 ] LT 180 END ENDTO XQ执行 L3 60 FD 10 REPEAT 3 [ FD 10 RT 120 ] BK 10 RT 10 HTEND 执行 L4 405、TO L5 :BIF :B <40 STOPREPEAT 2 [ FD :B RT 90 ] PU FD 10 RT 90 FD 10 LT 90 PDL5 :B - 20PU BK 10 LT 90 FD 10 RT 90 PD REPEAT 2 [ FD :B RT 90 ]END执行 L5 80四、用中间递归编程序画出如下图形最小正方形边长为20 依次为前一个乘1.5 最大的长方形高 80 长 200 依次减半LOGO中级班教学要点与练习3）编号姓名教学要点：一、工作区管理我们编写的LOGO过程、使用的变量及其值都暂时存放在计算机内部存储器的一个特定区域——工作区内。

我们可以用一组LOGO命令，来对工作区加以管理。

PRINTOUT 简写 PO 显示工作区内容例如：PO 过程名1 过程名2 ……可以显示指定的过程的内容。

POTS 显示工作区内全部过程的名称。

POPS 显示工作区内全部过程的内容。

PONS 显示工作区内所有变量的名称和当前值。

PO ALL 显示工作区内全部过程的内容和所有变量的值（相当于 POPS + PONS ）ERASE 简写 ER 删除工作区里的过程。

例如：ER 过程名1 过程名2 ……可以删除指定过程。

ER ALL 删除工作区内全部过程二、中间递归种种1、2 注意两段方向的差别2、3 注意个数奇偶的不同 4 注意海龟的回归与圆弧的方向 5、6 注意变量的变化趋势（递减与递增）参考程序：TO AT1 :XIF :X < 10 STOPREPEAT 6[FD :X RT 90]RT 180AT1 :X / 2REPEAT 6[FD :X RT 90]RT 180 END执行 AT1 40TO AT2 :XIF :X < 10 RT 180 STOPREPEAT 6[FD :X RT 90]RT 180PR :XAT2 :X / 2REPEAT 6[FD :X LT 90]RT 180 END执行 AT2 40 TO AT3 :XIF :X < 10 REPEAT 7[FD :X RT 90]LT 90 STOP REPEAT 6[FD :X RT 90]RT 180AT3 :X / 2REPEAT 6[FD :X LT 90]RT 180END执行 AT3 40TO AT4 :X :KIF :X < 10 RT 180 STOPREPEAT 6[FD :X RT 90]RT 180AT4 :X / 2 -1 * :KREPEAT 9[RT 5 * :K FD :X * 0.174 RT 5 * :K] END执行AT4 60 1TO AT5 :XIF :X < 1 BK 60 RT 90 REPEAT 36 [RT 5 FD 1.74 RT 5] LT 90 FD 60 STOPBK :X FD :X SETX XCOR + 1AT5 :X - 1BK :X FD :X SETX XCOR + 1 试试把递归调用语句改为 AT5 :X * 0.8 END 上机看看是什么结果执行 AT5 40TO AT6 :XIF :X > 40 FD 100 LT 90 REPEAT 36 [RT 5 FD 1.74 RT 5] RT 90 BK 100 STOPFD :X BK :X SETX XCOR + 1AT6 :X + 1FD :X BK :X SETX XCOR + 1END 试试把递归调用语句改为 AT5 :X * 1.2 执行 AT6 1 上机看看是什么结果作业：一、复习，写出下列程序的运行结果TO A1 TO C :SREPEAT 3[RT 120 FD 50] REPEAT :S[FD :S*10 LT 360/:S] END REPEAT :S+1[FD :S*20 LT 360/:S] TO A REPEAT :S*2[FD :S*30 LT 720/:S] REPEAT 2[A1 BK 100 LT 180] ENDEND 执行 C 3执行 ATO D :X TO E :A :B :NIF :X < 20 [FD 150 BK 150 STOP] REPEAT :N[FD :A BK :B RT 360/:N] RT 30 FD :X RT 120 FD :X LT 150 ENDD :X/2 执行E 70 70 3END 执行 E 70 70 8 执行 D 100 执行 E 120 30 4执行 E 60 0 6二、画出下列过程执行的结果TO EA :X TO EB :RIF :X>100 STOP IF :R > 60 [ RT 180 STOP ]FD :X RT 90 EB1 :REA :X +1 EB :R +10LT 60 FD :X RT 180 EB1 :REND END执行 EA 20 TO EB1 :RREPEAT 36[RT 5 FD 3.14*:R/18 RT 5]END 执行 EB 10三、编写能画出下面图形的程序LOGO 中级班教学要点与练习4） 编号 姓名教学要点：多重递归举例分割正多边形：TO FG :X :B :J 变量意义表：:X 边数，:B 边长，:J 转角 IF :B< 30 [ STOP ]END作业：（ 对于中级班学生，多重递归仅需了解，不作进一步要求。