LOGO语言题库.pptVIP

带参数（变量）的过程 示例 TO ZFX :A REPEAT 4 [FD :A RT 90] END 输入 ZFX 20 ，回车。 再输入ZFX 30 ，回车。 再输入ZFX 40 ，回车…… 第三讲 带参数（变量）的过程 示例二： TO YUAN :A :B STAMPOVAL :A :B END 输入YUAN 20 60，回车。 再输入YUAN 80 50 ，回车。 再输入YUAN 100 80，回车…… 第三讲 一个画小海星的过程 TO HX :B :C FD :B RT :C HX :B :C+10 HT END 输入HX 10 3 ，回车试试。再输入HX 10 1 ，回车试试。 第三讲 试一试 过程的递归调用 一个程序中可以包括多个过程，当一个过程中出现另一个过程的过程名时，就表示要调用那个过程，这种情形称之为过程调用。 示例： TO LX :A FD :A RT 120 LX :A+10 END 这里的参数:A 表示第一次前进的步数。执行 LX 10，会发现出现对话框报错。这是由于循环调用，成了死循环，无法停止而造成内存缓冲区已满的错误。我们可以加一条控制过程停止的语句，避免死循环。如下页： 第三讲 试一试 过程的递归调用 TO S :A IF :A 300 THEN STOP FD :A RT 120 S :A + 10 END IF :A 300 THEN STOP 意思是，当参数值增加到300以上时，就停止过程的运行。 第三讲 试一试 练技能 画正N边形的过程： TO ZHDBX :N :A ;N是边数，A是正多边形的边长 REPEAT :N [FD :A RT 360/:N] END 画正多边形螺旋线的过程： TO DBLX :A :N ;N是边数，A是起始多边形的边长 IF :A150 THEN STOP FD :A RT 360/:N ; 画一条边，然后转到画下一条边的方向 DBLX :A+3 :N ; 调用自身，边长增加步 END 分别输入 DBLX 30 3 、 DBLX 30 4 、 DBLX 30 5 再回车试试。 第三讲 试一试 练技能 TO ZFX REPEAT 4 [FD 40 RT 90] END TO LX REPEAT 2 [FD 40 RT 60 FD 40 RT 120] END TO SJ REPEAT 3 [FD 40 RT 120] END TO XG CS PU FD 80 RT 90 BK 60 PD ZFX RT 90 LX LT 90 FD 40 RT 30 LX RT 60 FD 40 RT 30 SJ FD 40 RT 180 SJ RT 60 ZFX FD 40 LX FD 40 RT 60 FD 9 LT 120 SJ END 执行 XG ，可画出小狗。 注意：若在编辑器或命令窗口中同时定义了多个过程，保存过程文件时，会将定义的多个过程同时保存到一个文件中。装载保存的过程文件后，各过程会全部被调入内存中。大家可以把本页定义的各过程一起复制到编辑器中，再保存一下，然后装载到LOGO中试试。 若各个过程要单独保存，则要在编辑器中一个一个的分别定义，再一个一个地分别保存下来。 装载时，要一个一个地分别装载到内存中，才可以相互调用。 第三讲 试一试 练技能 to hua repeat 4 [repeat 3 [fd 30 rt 120] rt 90] end to huahuan setpc 12 repeat 8 [hua rt 45 pu fd 70 pd] end 定义过程后，输入 huahuan，再回车，即可画出一个花环。 第三讲 试一试 用递归的方法画三角形圆环 setpc 2 repeat 12 [pu fd 40 rt 30 pd repeat 3[fd 40 rt 120] lt 30 pu bk 40 rt 30] 上面的语句是我们以前画右图时使用的。 现在，若用递归调用的方法，应该怎样写呢？ to sj setpc 2 repeat 3[fd 40 rt 120] end to huan repeat 12 [pu fd 40 rt 30 pd sj lt 30 pu bk 40 rt 30]