变量(多个变量)
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
设计程序ZSP，画一排如图3的指示牌。要求：间隔可稀可密， 数量可多可少。
设计程序FLO，画一排如图4的花朵。要求：间隔可稀可密， 数量可多可少。
图1
图2
图3
图4
举一反三
图5
图6
图7
图8
动脑筋
HUAYUAN SHULIN
CAODI FLOWERS
TO CAO SETPC 2 SETW 3 FD 20 BK 20 REPEAT 9 [RT 10 FD 0.174 * 20] RT 90 PU REPEAT 9 [RT 10 FD 0.174 * 20] PD SETH 0 REPEAT 9 [LT 10 FD 0.174 * 20] LT 90 PU REPEAT 9 [LT 10 FD 0.174 * 20] PD SETH 0
END
TO HUA YUAN 15 15 13 PU BK 15 - 11 PD YUAN 11 11 12 PU BK 11 - 7 PD YUAN 7 7 14 PU BK 7 - 4 PD YUAN 4 4 5 PU BK 4 PD SETPC 10 SETW 3 BK 15 SETH 45 FD 15 BK 15 SETH -45 FD 15 BK 15 PU SETH 0 FD 15 + 15 PD
END
TO HUA2 :KS :JJ REPEAT :KS [HUA PU SETH 90 FD :JJ SETH 0 PD] PU SETH 90 BK :KS * :JJ SETH 0 PD
END
TO HUAYUAN :HS :JJ REPEAT :HS [HUA2 8 PU BK :JJ PD] PU FD :HS * :JJ PD
例二:设计程序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
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
TREE
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
练一练
设计程序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。
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__ 距离
练一练(书60页)
设计程序SJQP，画一排小旗。要求：小旗间隔可稀 可密，数量可多可少。
END
to fl setpc 12 (stampoval 20 8"true) (stampoval 8 20"true) setpc 14 (stampoval 8 4 "true) (stampoval 4 8 "true) pu bk 20 pd setpc 2 setw 3 bk 20 fd 10 seth 30 fd 10 bk 10 seth -30 fd 10 bk 10 pu seth 0 fd 30 pd end
变量(多个变量)
变量:
变量就是可以变化的量。 LOGO规定 （1）变量名是字母打头的字母数字串， （2）变量名前必须要加上一个冒号：
带变量的过程
格式：
TO 程序名 :变量名1 :变量名2 …… :变量名N 命令组
END
程序使用方法：
?程序名 数值1 数值2 …… 数值N
例一：设计程序FX。要求画出大小不 同、颜色不同的正方形。
to zfxb :bc :gs repeat :gs[repeat 4[fd :bc rt 90] rt 360/:gs] end
例三：设计程序SHUP，画一排小树苗。要求： 小树苗间隔可稀可密，小树的棵树可多可少。
TO SJX ：BC REPEAT 3[FD ：BC LT 120]
END
TO SHU SETW 4 FD 30 SETH 90 BK 10 SJX 20
END
TO FL2 :KS :JJ REPEAT :KS [FS PU SETH 90 FD :JJ SETH 0 PD] PU SETH 90 BK :JJ * :KS SETH 0 PD
END
TO FLOWERS :HS :JJ REPEAT :HS [FL2 5 50 PU BK :JJ PD] PU FD :HS * :JJ PD
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。要求画出大小不同、颜色不同的九角形。
TO CAO2 :KS :JJ REPEAT :KS [CAO PU SETH 90 FD :JJ SETH 0 PD] PU SETH 90 BK :JJ * :KS SETH 0 PD
END
TO CAODI :HS :JJ REPEAT :HS [CAO2 5 50 PU BK :JJ PD] PU FD :HS * :JJ PD
向右移动
TO SJQP :KS :JJ REPEAT :KS[SJQ PU SETH 90 FD :JJ SETH 0 PD] END
QQP
TO YUAN :BJ
STAMPOVAL :BJ :BJ
END
TO QQ
FD 30
PU FD 20 PD
YUAN 20
PU BK 30+20 PD
END
向右移动
Biblioteka Baidu
TO ZYE REPEAT 9[LT 10 FD 0.174*半径] LT 90 REPEAT 9[LT 10 FD 0.174*半径] PU SETH -45 FD 10 PD FILL PU BK 10 SETH 0 PD END
春游
END
SETPC 14 REPEAT 20 [PU FD 大圆半径 PD 小圆 PU BK 大圆半径 PD RT 360 / 20] SETPC 10 SETPATTERN 7 大圆 SETPATTERN 1 PU BK 大圆半径 PD
TO YYE REPEAT 9[RT 10 FD 0.174*半径] RT 90 REPEAT 9[RT 10 FD 0.174*半径] PU SETH 45 FD 10 PD FILL PU BK 10 SETH 0 PD END
回到起点圆心
TO TREE :KS :JJ REPEAT :KS[T PU SETH 90 FD :JJ SETH 0 PD] PU SETH -90 FD :KS*:JJ SETH 0 PD END
HUA
TO H SETPC 12 (STAMPOVAL 25 25 "TRUE) PU BK 25-15 PD SETPC 14 (STAMPOVAL 15 15 "TRUE) PU BK 15-8 PD SETPC 13 (STAMPOVAL 8 8 "TRUE) PU BK 8 PD SETPC 2 SETW 3 BK 30 SETH 45 FD 25 BK 25 SETH -45 FD 25 BK 25 SETH 0 PU FD 30+25 PD END
TO HUA :KS :JJ REPEAT :KS[H PU SETH 90 FD :JJ SETH 0 PD] PU SETH -90 FD :KS*:JJ SETH 0 PD END
回到起点圆心
举一反三
设计程序SJS，画一排如图1的小树。要求：小旗间隔可稀可密 ，数量可多可少。
设计程序YUP，画一排如图2的小鱼。要求：间隔可稀可密， 数量可多可少。
设计程序QQP，画一排气球。要求：气球间隔可稀 可密，数量可多可少。
设计程序TREE，画一排树。要求：数量可多可少。 设计程序HUA，画一排花。要求：数量可多可少。
SJQP
QQP
TREE
HUA
SJQP
TO SJX2 :BC REPEAT 3[FD :BC RT 120] END
TO SJQ FD 30 SJX2 20 BK 30 END
设计程序FLO，画一排如图4的花朵。要求：间隔可稀可密， 数量可多可少。
图1
图2
图3
图4
举一反三
图5
图6
图7
图8
动脑筋
HUAYUAN SHULIN
CAODI FLOWERS
TO CAO SETPC 2 SETW 3 FD 20 BK 20 REPEAT 9 [RT 10 FD 0.174 * 20] RT 90 PU REPEAT 9 [RT 10 FD 0.174 * 20] PD SETH 0 REPEAT 9 [LT 10 FD 0.174 * 20] LT 90 PU REPEAT 9 [LT 10 FD 0.174 * 20] PD SETH 0
END
TO HUA YUAN 15 15 13 PU BK 15 - 11 PD YUAN 11 11 12 PU BK 11 - 7 PD YUAN 7 7 14 PU BK 7 - 4 PD YUAN 4 4 5 PU BK 4 PD SETPC 10 SETW 3 BK 15 SETH 45 FD 15 BK 15 SETH -45 FD 15 BK 15 PU SETH 0 FD 15 + 15 PD
END
TO HUA2 :KS :JJ REPEAT :KS [HUA PU SETH 90 FD :JJ SETH 0 PD] PU SETH 90 BK :KS * :JJ SETH 0 PD
END
TO HUAYUAN :HS :JJ REPEAT :HS [HUA2 8 PU BK :JJ PD] PU FD :HS * :JJ PD
例二:设计程序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
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
TREE
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
练一练
设计程序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。
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__ 距离
练一练(书60页)
设计程序SJQP，画一排小旗。要求：小旗间隔可稀 可密，数量可多可少。
END
to fl setpc 12 (stampoval 20 8"true) (stampoval 8 20"true) setpc 14 (stampoval 8 4 "true) (stampoval 4 8 "true) pu bk 20 pd setpc 2 setw 3 bk 20 fd 10 seth 30 fd 10 bk 10 seth -30 fd 10 bk 10 pu seth 0 fd 30 pd end
变量(多个变量)
变量:
变量就是可以变化的量。 LOGO规定 （1）变量名是字母打头的字母数字串， （2）变量名前必须要加上一个冒号：
带变量的过程
格式：
TO 程序名 :变量名1 :变量名2 …… :变量名N 命令组
END
程序使用方法：
?程序名 数值1 数值2 …… 数值N
例一：设计程序FX。要求画出大小不 同、颜色不同的正方形。
to zfxb :bc :gs repeat :gs[repeat 4[fd :bc rt 90] rt 360/:gs] end
例三：设计程序SHUP，画一排小树苗。要求： 小树苗间隔可稀可密，小树的棵树可多可少。
TO SJX ：BC REPEAT 3[FD ：BC LT 120]
END
TO SHU SETW 4 FD 30 SETH 90 BK 10 SJX 20
END
TO FL2 :KS :JJ REPEAT :KS [FS PU SETH 90 FD :JJ SETH 0 PD] PU SETH 90 BK :JJ * :KS SETH 0 PD
END
TO FLOWERS :HS :JJ REPEAT :HS [FL2 5 50 PU BK :JJ PD] PU FD :HS * :JJ PD
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。要求画出大小不同、颜色不同的九角形。
TO CAO2 :KS :JJ REPEAT :KS [CAO PU SETH 90 FD :JJ SETH 0 PD] PU SETH 90 BK :JJ * :KS SETH 0 PD
END
TO CAODI :HS :JJ REPEAT :HS [CAO2 5 50 PU BK :JJ PD] PU FD :HS * :JJ PD
向右移动
TO SJQP :KS :JJ REPEAT :KS[SJQ PU SETH 90 FD :JJ SETH 0 PD] END
QQP
TO YUAN :BJ
STAMPOVAL :BJ :BJ
END
TO QQ
FD 30
PU FD 20 PD
YUAN 20
PU BK 30+20 PD
END
向右移动
Biblioteka Baidu
TO ZYE REPEAT 9[LT 10 FD 0.174*半径] LT 90 REPEAT 9[LT 10 FD 0.174*半径] PU SETH -45 FD 10 PD FILL PU BK 10 SETH 0 PD END
春游
END
SETPC 14 REPEAT 20 [PU FD 大圆半径 PD 小圆 PU BK 大圆半径 PD RT 360 / 20] SETPC 10 SETPATTERN 7 大圆 SETPATTERN 1 PU BK 大圆半径 PD
TO YYE REPEAT 9[RT 10 FD 0.174*半径] RT 90 REPEAT 9[RT 10 FD 0.174*半径] PU SETH 45 FD 10 PD FILL PU BK 10 SETH 0 PD END
回到起点圆心
TO TREE :KS :JJ REPEAT :KS[T PU SETH 90 FD :JJ SETH 0 PD] PU SETH -90 FD :KS*:JJ SETH 0 PD END
HUA
TO H SETPC 12 (STAMPOVAL 25 25 "TRUE) PU BK 25-15 PD SETPC 14 (STAMPOVAL 15 15 "TRUE) PU BK 15-8 PD SETPC 13 (STAMPOVAL 8 8 "TRUE) PU BK 8 PD SETPC 2 SETW 3 BK 30 SETH 45 FD 25 BK 25 SETH -45 FD 25 BK 25 SETH 0 PU FD 30+25 PD END
TO HUA :KS :JJ REPEAT :KS[H PU SETH 90 FD :JJ SETH 0 PD] PU SETH -90 FD :KS*:JJ SETH 0 PD END
回到起点圆心
举一反三
设计程序SJS，画一排如图1的小树。要求：小旗间隔可稀可密 ，数量可多可少。
设计程序YUP，画一排如图2的小鱼。要求：间隔可稀可密， 数量可多可少。
设计程序QQP，画一排气球。要求：气球间隔可稀 可密，数量可多可少。
设计程序TREE，画一排树。要求：数量可多可少。 设计程序HUA，画一排花。要求：数量可多可少。
SJQP
QQP
TREE
HUA
SJQP
TO SJX2 :BC REPEAT 3[FD :BC RT 120] END
TO SJQ FD 30 SJX2 20 BK 30 END