【正文】 如有興趣，請大家在“蓋州信息技術(shù)教師 2群中”討論或直接與本人交流。 本 PPT教程到此結(jié)束，因本人水平有限，且時間倉促，其中一定存在著錯誤和不足，望大家指正。自學(xué)時能結(jié)合教材看懂這些過程語句就行了。本 PPT不作講解。 給變量賦值后，若要在過程中或命令行中使用該變量，則要在變量名前加上冒號。 后邊的數(shù)據(jù)是賦值內(nèi)容，也可用 READ命令等待鍵盤輸入。 賦值命令 MAKE 變量必須先賦值，有了確定的值后，該變量才能參與運算。在一些帶參數(shù)的命令中，用隨機函數(shù)作為參數(shù)，使執(zhí)行結(jié)果在預(yù)定的范圍內(nèi)，但不能具體確定。遞歸調(diào)用是一個過程中調(diào)用另一個過程。（答案：能。如下例： to xjj for i 1 9 [for j 1 :i [(pr :j [*] :i [=] :i * :j)]] end 動腦筋（ P70） FOR循環(huán)有幾種格式，每種功能有什么不同？ （答案略。 type命令的作用和用法與 pr命令類似，但它是不換行輸出，而 pr是換行輸出。 語句中那對空括號 [ ]的作用是產(chǎn)生空格，否則第行內(nèi)的各乘法算式會連在一起（教材中的語句是沒有這個空格的。 提示：利用 FOR循環(huán)嵌套 FOR循環(huán)來實現(xiàn)。 提示：利用隨機函數(shù) RANDOM，隨機產(chǎn)生不同的顏色。 setw 4 setpc 13 for p 3 9 [repeat :p [fd 30 rt 360/:p] 提示：正多邊形的邊數(shù)變化借助于 FOR循環(huán)中的變量，將 FOR循環(huán)的初值設(shè)為 3，終值設(shè)為 9。 在命令窗口中輸出所求的和。 將變量值 0依次加上 1~100并累加求和。 本過程最后結(jié)果顯示為： 1 * 2 * 3 * 4 * ... * 30 = +32 這里的+32 是科學(xué)計數(shù)法，表示 1032 FOR語句應(yīng)用范例 * 想一想：若用 for語句累加，求 1~100的和，應(yīng)該怎么寫過程呢？ to qh make s 0 。 在命令窗口中輸出所求的積。 將變量值 1分別乘以 1~30并累乘求積。 過程如下： to sh make s 1 。 FOR循環(huán)中變量每次加 1，將其與存積變量 S相乘，作為變量 S的新值繼續(xù)保存。 FOR語句應(yīng)用范例（ P69） 用 FOR語句累乘求積 編寫過程求 1 2 3 4 … 30和值。格式 2中，步長若為 1時，可以省略步長值。 例如： DRAW SETPC 12 SETW 4 FOR I 3 6 [REPEAT 3 [FD :I*20 RT 120 ]] 循環(huán)語句 FOR 格式 2： (FOR “變量 初值 終值 [命令串 ] 步長） 功能：變量的值由初值開始，每次增長一個步長， 并將后面的命令串執(zhí)行一遍，直到超過終值為止。 用輸入的角度值 r 畫角，畫出一個 r 度的角 if :r90 then pr [您輸入的角度是銳角 ] else pr [您輸入的角度不是銳角 ] end 練技能 （ P65） 試調(diào)用下面的兩個過程，編寫一個名為 XZ 的過程，完成以下功能：命令窗口顯示提示： “請選擇： 1 同心圓 2 兩個正方形”，如果輸入 1，調(diào)用 YUAN 畫出同心圓；如果輸入 2，調(diào)用 ZFX畫出兩個正方形；如果輸入其他數(shù)字，過程結(jié)束，無任何提示。 讓屏幕顯示 請輸入角度： make r read 。 左轉(zhuǎn)輸入的角度 fd 100 ht 。 to jd :n cs rt 90 fd 100 bk 100 。它只能使用于過程當(dāng)中。 例如畫風(fēng)車的范例： TO FC REPEAT 6 [FD 70 REPEAT 4 [FD 30 RT 90] BK 70 RT 60] WAIT 10 CLEAN RT 10 MAKE N :N+1 IF :N = 60 THEN STOP ELSE FC END 注意：在遞歸調(diào)用時，若過程自己調(diào)用自己，一定要設(shè)計至少一個出口，來結(jié)束過程，否則會造成死循環(huán)，過程不停地運行，甚至導(dǎo)致死機等來重后果。 請大家自行閱讀一下教材 P63頁的兩個范例，對 IF語句的這種格式加以理解。不屬于 THEN中的命令，一定要寫到下一行。 此時，若在命令窗口內(nèi)輸入 pr :n ，回車后會看到此時變量 N的值為 60. 條件判斷語句 —— IF語句 下面我們講解一下 IF語句 IF語句有兩種格式： 格式 1： IF 條件 THEN [命令 ] （ THEN 可以省略不寫） 當(dāng)符合條件時，執(zhí)行 THEN后面的命令，否則就不執(zhí)行THEN后面的命令，直接執(zhí)行其它命令。會發(fā)現(xiàn)風(fēng)車旋轉(zhuǎn)一會兒就自動停止了。下面的范例，使用了 IF語句，避免了死循環(huán)。 條件判斷語句 —— IF語句 還記得以前我們畫過的風(fēng)車吧？那個旋轉(zhuǎn)的風(fēng)車，運行時，需要單擊停止按鈕停止它的運行。 現(xiàn)在，若用遞歸調(diào)用的方法，應(yīng)該怎樣寫呢？ to sj setpc 2 repeat 3[fd 40 rt 120] end to huan repeat 12 [pu fd 40 rt 30 pd sj lt 30 pu bk 40 rt 30] end 小知識 調(diào)用磁盤上保存的過程，除了用“文件”菜單中的“裝載”外，還有以下方法： （ 1）按 F5鍵 （ 2）單擊工具欄上的 Load 按鈕 停止按鈕 在 LOGO系統(tǒng)中有一個“交通崗”，當(dāng)你進行遞歸調(diào)用時，如果想停止、暫?；蚶^續(xù)運行該過程，可以單擊工具欄中的三個相應(yīng)的“紅綠燈”按鈕。 練技能（參考 P61） to hua repeat 4 [repeat 3 [fd 30 rt 120] rt 90] end to huahuan setpc 12 repeat 8 [hua rt 45 pu fd 70 pd] end 定義過程后，輸入 huahuan，再回車，即可畫出一個花環(huán)。 若各個過程要單獨保存，則要在編輯器中一個一個的分別定義，再一個一個地分別保存下來。裝載保存的過程文件后，各過程會全部被調(diào)入內(nèi)存中。 練技能 （ p60） TO ZFX REPEAT 4 [FD 40 RT 90] END TO LX REPEAT 2 [FD 40 RT 60 FD 40 RT 120] END TO SJ REPEAT 3 [FD 40 RT 120] END TO XG CS PU FD 80 RT 90 BK 60 PD ZFX RT 90 LX LT 90 FD 40 RT 30 LX RT 60 FD 40 RT 30 SJ FD 40 RT 180 SJ RT 60 ZFX FD 40 LX FD 40 RT 60 FD 9 LT 120 SJ END 執(zhí)行 XG ，可畫出小狗。 畫一條邊，然后轉(zhuǎn)到畫下一條邊的方向 DBLX :A+3 :N 。N是邊數(shù)， A是正多邊形的邊長 REPEAT :N [FD :A RT 360/:N] END 畫正多邊形螺旋線的過程： TO DBLX :A :N 。如下頁： 過程的遞歸調(diào)用 TO S :A IF :A 300 THEN STOP FD :A RT 120 S :A + 10 END IF :A 300 THEN STOP 意思是，當(dāng)參數(shù)值增加到 300以上時，就停止過程的運行。這是由于循環(huán)調(diào)用，成了死循環(huán)，無法停止而造成內(nèi)存緩沖區(qū)已滿的錯誤。 示例： TO LX :A FD :A RT 120 LX :A+10 END 這里的參數(shù) :A 表示第一次前進的步數(shù)。再輸入 HX 10 1 ，回車試試 。 例如畫線長為 第一次轉(zhuǎn)角為 100的的空心五角星，輸入 KXX 5 40 100，再回車即可。 :BC 表示線長。 ? 例如畫線長為 50的空心九角星，輸入 KXX 9 50，再回車即可。 畫任意空心多角星 （請參見本 PPT 69頁） ? TO KXX :N :BC ? REPEAT :N [ FD :BC RT 720/:N FD :BC LT 360/:N] ? END ? 其中， :N 表示角數(shù)。 倍數(shù) K的確定方法，參見以前內(nèi)容。 :BC 表示多角星的線長。 輸入 DBX 8 100 ，回車后即可畫出邊長為 100的八邊形。 再輸入 YUAN 80 50 ，回車。 ? 再輸入 ZFX 30 ，回車。 2＝ 5 K的取值范圍是 4，但 4與角數(shù) 10有公約數(shù) ，所以， K的取值是 3。所以， K的取值為 4。 九角星： 9 247。 八角星： 8 247。 七角星： 7 247。 六角星： 6 247。 計算 K的方法舉例： 五角星： 5247。 大家在電腦上試一下。 YCOR 輸出海龜 Y坐標(biāo)位置。 練技能 ? 自由閱讀教材 P 49~50內(nèi)容 小知識 GETXY 顯示海龜當(dāng)前的坐標(biāo)。 注意：上面的命令，在移動海龜時，會在前后位置間連上線。 設(shè)置橫坐標(biāo)命令 SETX :X 將海龜移到 X坐標(biāo)指定位置， Y坐標(biāo)和海龜方向不變。 ? 保存過程以后，可以使用“文件”菜單中的“打開”或“裝載”命令，或使用工具欄上的 LOAD按鈕，打開保存的過程文件（ *.LGO)，再輸入過程名，回車后即可執(zhí)行過程。說明修改成功。 此時，輸入 EDIT F ，回車則打開編輯器。 若定義了多個過程，則可以用 EDIT ALL 回車后，可以編輯器中編輯所有的過程。改正錯誤后，按 F2退出編輯器即可自動保存修改。即，定義過的過程，若用它的過程名，再次定義另一個過程，則先定義的過程被替換。 請大家分析一下上面畫立體五角星的方法。 過程定義范例 2 定義一個畫花的過程 TO HUA REPEAT 5 [REPEAT 3 [FD 50 RT 120] RT 72] END 定義過程后，輸入 HUA，回車，即可執(zhí)行過程，畫出花的圖形。 最后一行是