一、海龟命令集锦

  RANDOM随机数命令

  WAIT等待命令

  TELL激活命令

  TELLALL同时激活命令

  MAKE赋值命令

  READ键盘输入命令

  IF条件命令

  STOP 停止命令

  二、小海龟大显身手

  例1:画海上的小船。

  (设:组成船身的半圆的半径为R,小船上的旗杆长为2R,旗面是等边三角形,边长为R。)

  (一)过程CHUAN

  (画一艘小船)

  TO CHUAN :r

  SETW 5 SETPC 6

  RT 90 FD 2*:r RT 90

  REPEAT 180[ FD 3.14*:r/180 RT 1]

  RT 90 FD :r LT 90

  SETPC 13 FD 2*:r

  RT 120 FD :r RT 120 FD :r

  END

  (二)过程HAILANG

  TO HAILANG :r :n

  SETPC 9

  REPEAT :n [RT 180 REPEAT 180[FD 3.14*:r/180 LT 1]]

  END

  (三)过程HAI

  (调用前两个过程画整幅图)

  TO HAI

  DRAW SETW 20

  TELLALL 0 5 SETPC 9 HT

  RT 45 PU BK 150 PD LT 45

  STAMPRECT 320 200 SETW 1

  TELL 0 FD 120 HAILANG 10 16

  TELL 1 FD 120 HAILANG 10 4 CHUAN 15

  TELL 2 FD 100 HAILANG 15 11

  TELL 3 FD 100 HAILANG 15 5 CHUAN 20

  TELL 4 FD 60 HAILANG 20 8

  TELL 5 FD 60 HAILANG 20 5 CHUAN 25

  END

  (四)运行

  HAI

  例2: 编写过程,当我们输入“1”时,电脑根据我们指定的边长和边数画正多边形;当输入“2”时,电脑为我们演奏一曲“生日歌”;当输入“3”时,退出本过程

  (一)过程SHENGRIGE

  TO SHENGRIGE

  PLAY [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 DUOBIANXING

  PR [请输入边数:]

  MAKE "N READ

  PR [请输入边长:]

  MAKE "L READ

  REPEAT :N[FD :L RT 360/:N]

  (三)过程XUANZE

  (进行选择的过程)

  TO XUANZE

  PR [请选择:]

  PR [1.画多边形2.点歌0.停止]

  MAKE "A READ

  IF :A = 3 THEN STOP

  IF :A = 1 THEN DUOBIANXING

  IF :A = 2 THEN SHENGRIGE

  END

  (四)运行1

  XUANZE

  请选择: 1.画多边形2.点歌0.停止

  1

  请输入边数:

  6

  请输入边长:

  100

  (五)运行2

  请选择:

  1.画多边形2.点歌0.停止

  2

  (六)运行3

  请选择: 1.画多边形2.点歌3.停止

  3

本站内容未经许可,禁止任何网站及个人进行转载。