一、海龜命令集錦

　　RANDOM隨機數命令

　　WAIT等待命令

　　TELL激活命令

　　TELLALL同時激活命令

　　MAKE賦值命令

　　READ鍵盤輸入命令

　　IF條件命令

　　STOP 停止命令

　　二、小海龜大顯身手

　　例1：畫海上的小船。

　?。ㄔO：組成船身的半圓的半徑為R，小船上的旗桿長為2R，旗面是等邊三角形，邊長為R。）

　　(一）過程CHUAN

　?。ó嬕凰倚〈?/p>

　　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

本站內容未經許可，禁止任何網站及個人進行轉載。