綜合練習(xí)（三）

1、第十六課 大顯身手綜合練習(xí)（三）一、海龜命令集錦RANDOM隨機(jī)數(shù)命令WAIT等待命令TELL激活命令TELLALL同時(shí)激活命令MAKE賦值命令READ鍵盤輸入命令I(lǐng)F條件命令STOP停止命令二、小海龜大顯身手 畫海上的小船。（設(shè)：組成船身的半圓的半徑為R，小船上的旗桿長為2R，旗面是等邊三角形，邊長為R。）例1：（一）過程CHUAN（畫一艘小船）TO CHUAN :r SETW 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

2、120 FD :r END（二）過程HAILANGTO HAILANG :r :nSETPC 9REPEAT :nRT 180 REPEAT 180FD 3.14*:r/180 LT 1END（調(diào)用前兩個(gè)過程畫整幅圖）TO HAI DRAW 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

3、 HAILANG 15 5 CHUAN 20TELL 4 FD 60 HAILANG 20 8TELL 5 FD 60 HAILANG 20 5 CHUAN 25END（三）過程HAI（四）運(yùn)行? HAI?例2： 編寫過程，當(dāng)我們輸入“1”時(shí)，電腦根據(jù)我們指定的邊長和邊數(shù)畫正多邊形；當(dāng)輸入“2”時(shí)，電腦為我們演奏一曲“生日歌”；當(dāng)輸入“0”時(shí)，退出本過程。TO SHENGRIGE PLAY L8 G G L4 A G O4 C O3 L2 BPLAY L8 G G L4 A G O4 D L2 CPLAY L8 G G L4 O4 G E L8 C O3 B L2 APLAY L8 O4 F

4、F L4 E C D L2 CEND（一）過程SHENGRIGE （畫多邊形）TO DUOBIANXINGPR 請輸入邊數(shù)： MAKE N READ PR 請輸入邊長：MAKE L READ REPEAT :NFD :L RT 360/:N HTEND（二）過程DUOBIANXING （進(jìn)行選擇的過程）TO XUANZEPR 請選擇：PR 1.畫多邊形 2.點(diǎn)歌 0.停止MAKE A READIF :A = 0 THEN STOPIF :A = 1 THEN DUOBIANXINGIF :A = 2 THEN SHENGRIGEXUANZEEND（三）過程XUANZE （四）運(yùn)行1? XUANZE請選擇：1.畫多邊形 2.點(diǎn)歌 0.停止? 1請輸入邊數(shù)：? 6