变量(多个变量).ppt

变量(多个变量) 变量: 变量就是可以变化的量。 LOGO规定 （1）变量名是字母打头的字母数字串， （2）变量名前必须要加上一个冒号： 带变量的过程 格式： TO 程序名 :变量名1 :变量名2 …… :变量名N 命令组 END 程序使用方法： ?程序名 数值1 数值2 …… 数值N 例一：设计程序FX。要求画出大小不同、颜色不同的正方形。 TO FX :C :BC SETPC :C (STAMPRECT :BC :BC “TRUE) END 变量说明: :C 输入颜色值(0-15) :BC 输入正方形的边长 执行例一: ?FX 11 50 ?FX 4 20 ?FX 3 70 …… 1：设计程序YX。要求画出大小不同、颜色不同的实心圆。 举一反三。 2：设计程序SJX。要求画出大小不同、颜色不同的实心三角形。 3：设计程序WJX。要求画出大小不同、颜色不同的实心五角星。 4：设计程序BBX。要求画出大小不同、颜色不同的实心八边形。 5：设计程序LLB。要求画出大小不同、颜色不同的实心六边形。 6：设计程序JJX。要求画出大小不同、颜色不同的九角形。 例二:设计程序ZDBX。要求编程画任意正多边形，边长可变。 TO ZDBX :N :B REPEAT :N[FD :B RT 360/:N] END 变量说明: :N 正多边形的边数 :B 正多边形的边长 动脑筋： 如果要涂色的正多边形，怎么办？ TO ZDBX :YS :BS :BC SETPC :YS REPEAT :BS[FD :BC RT 360/:BS] PU RT 10 FD 10 PD FILL PU BK 10 LT 10 PD END 练一练 设计程序XMG。（一圈小木棍）要求笔宽为3，背景色、木棍颜色和木棍长度都能变。 TO XMG :BJS :BS :BC :SL SETPC :BS SETBG :BJS SETW 3 REPEAT :SL [FD :BC BK :BC RT 360/:SL] END 设计程序画出正方形，正方形的边长和个数都可变，主程序名为ZFXB。 to zfxb :bc :gs repeat :gs[repeat 4[fd :bc rt 90] rt 360/:gs] end TO SJX ：BC REPEAT 3[FD ：BC LT 120] END TO SHU SETW 4 FD 30 SETH 90 BK 10 SJX 20 FD 10 SETH 0 BK 30 END TO SHUP :KS :JJ REPEAT :KS[SHU PU SETH 90 FD :JJ SETH 0 PD] END :KS__棵数 :JJ__ 距离 例三：设计程序SHUP，画一排小树苗。要求： 小树苗间隔可稀可密，小树的棵树可多可少。 向右移动 练一练(书60页) 设计程序SJQP，画一排小旗。要求：小旗间隔可稀可密，数量可多可少。 设计程序QQP，画一排气球。要求：气球间隔可稀可密，数量可多可少。 设计程序TREE，画一排树。要求：数量可多可少。 设计程序HUA，画一排花。要求：数量可多可少。 SJQP QQP TREE HUA TO SJX2 :BC REPEAT 3[FD :BC RT 120] END TO SJQ FD 30 SJX2 20 BK 30 END TO SJQP :KS :JJ REPEAT :KS[SJQ PU SETH 90 FD :JJ SETH 0 PD] END SJQP 向右移动 TO YUAN :BJ STAMPOVAL :BJ :BJ END TO QQ FD 30 PU FD 20 PD YUAN 20 PU BK 30+20 PD END TO QQP :KS :JJ REPEAT :KS[QQ PU SETH 90 FD :JJ SETH 0 PD] PU SETH -90 FD :KS*:JJ SETH 0 PD END QQP 向右移动 TO T SETPC 2 (STAMPOVAL 30 30 TRUE) SETPC 4 SETW 3 BK 60 FD 60-30 SETH 45 FD 25 BK 25 SETH -45 FD 25 BK 25 SETH 0 FD 60-30 END TO TREE :KS :JJ REPEAT :KS[T PU SETH 90 FD :JJ SETH 0 PD] PU SETH -90