綜合練習(xí)（三）

1、第十六課 大顯身手綜合練習(xí)（三）一、海龜命令集錦RANDOM隨機(jī)數(shù)命令WAIT等待命令TELL激活命令TELLALL同時(shí)激活命令MAKE賦值命令READ鍵盤輸入命令I(lǐng)F條件命令STOP停止命令二、小海龜大顯身手 畫海上的小船。（設(shè)：組成船身的半圓的半徑為R，小船上的旗桿長(zhǎng)為2R，旗面是等邊三角形，邊長(zhǎng)為R。）例1：（一）過(guò)程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（二）過(guò)程HAILANGTO HAILANG :r :nSETPC 9REPEAT :nRT 180 REPEAT 180FD 3.14*:r/180 LT 1END（調(diào)用前兩個(gè)過(guò)程畫整幅圖）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（三）過(guò)程HAI（四）運(yùn)行? HAI?例2： 編寫過(guò)程，當(dāng)我們輸入“1”時(shí)，電腦根據(jù)我們指定的邊長(zhǎng)和邊數(shù)畫正多邊形；當(dāng)輸入“2”時(shí)，電腦為我們演奏一曲“生日歌”；當(dāng)輸入“0”時(shí)，退出本過(guò)程。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（一）過(guò)程SHENGRIGE （畫多邊形）TO DUOBIANXINGPR 請(qǐng)輸入邊數(shù)： MAKE N READ PR 請(qǐng)輸入邊長(zhǎng)：MAKE L READ REPEAT :NFD :L RT 360/:N HTEND（二）過(guò)程DUOBIANXING （進(jìn)行選擇的過(guò)程）TO XUANZEPR 請(qǐng)選擇：PR 1.畫多邊形 2.點(diǎn)歌 0.停止MAKE A READIF :A = 0 THEN STOPIF :A = 1 THEN DUOBIANXINGIF :A = 2 THEN SHENGRIGEXUANZEEND（三）過(guò)程XUANZE （四）運(yùn)行1? XUANZE請(qǐng)選擇：1.畫多邊形 2.點(diǎn)歌 0.停止? 1請(qǐng)輸入邊數(shù)：? 6