Logo教程-第十六课综合练习

　　Logo教程-第十六课综合练习一、海龟命令集锦RANDOM随机数命令WAIT等待命令TELL激活命令TELLALL同时激活命令MAKE赋值命令READ键盘输入命令IF条件命令STOP 停止命令二、小海龟大显身手例1：画海上的小船。（设：组成船身的半圆的半径为R，小船上的旗杆长为2R，旗面是等边三角形，边长为R。）(一）过程CHUAN（画一艘小船）TO CHUAN :rSETW 5 SETPC 6RT 90 FD 2*:r RT 90REPEAT 180[ FD 3.14*:r/180 RT 1]RT 90 FD :r LT 90SETPC 13 FD 2*:rRT 120 FD :r RT 120 FD :rEND(二）过程HAILANGTO HAILANG :r :nSETPC 9REPEAT :n [RT 180 REPEAT 180[FD 3.14*:r/180 LT 1]]END(三）过程HAI(调用前两个过程画整幅图)TO HAIDRAW SETW 20TELLALL 0 5 SETPC 9 HTRT 45 PU BK 150 PD LT 45STAMPRECT 320 200 SETW 1TELL 0 FD 120 HAILANG 10 16TELL 1 FD 120 HAILANG 10 4 CHUAN 15TELL 2 FD 100 HAILANG 15 11TELL 3 FD 100 HAILANG 15 5 CHUAN 20TELL 4 FD 60 HAILANG 20 8TELL 5 FD 60 HAILANG 20 5 CHUAN 25END

(四）运行HAI例2：编写过程，当我们输入1时，电脑根据我们指定的边长和边数画正多边形；当输入2时，电脑为我们演奏一曲生日歌；当输入3时，退出本过程(一）过程SHENGRIGETO SHENGRIGEPLAY [L8 G G L4 A G O4 C O3 L2 B]PLAY [L8 G G L4 A G O4 D L2 C]PLAY [L8 G G L4 O4 G E L8 C O3 B L2 A]PLAY [L8 O4F F L4E C D L2C]END(二）过程DUOBIANXING(画多边形）TO DUOBIANXINGPR [请输入边数：]MAKE "N READPR [请输入边长：]MAKE "L READREPEAT :N[FD :L RT 360/:N](三）过程XUANZE(进行选择的过程）TO XUANZEPR [请选择：]PR [1.画多边形2.点歌0.停止]MAKE "A READIF :A = 3 THEN STOPIF :A = 1 THEN DUOBIANXINGIF :A = 2 THEN SHENGRIGEEND（四）运行1XUANZE请选择： 1.画多边形2.点歌0.停止1请输入边数：6请输入边长：100(五）运行2请选择：1.画多边形2.点歌0.停止2(六）运行3请选择： 1.画多边形2.点歌3.停止

少儿编程培训哪家好