【導讀】面對計算機，我們仿佛在和另外一個智慧體。答案很簡單——就如同我們人類。的交流一樣——用語言告訴它。1．程序設計語言的分類及分類依據(jù)；2．了解各種語言的優(yōu)缺點，能夠根據(jù)需要選擇合適的語言類型；5．掌握QBASIC語句的格式；6．了解程序的基本編寫規(guī)則。主要是通過教師的講解，使學生了解程序的發(fā)展和使用情況，以及編寫程序的一般規(guī)則，通過。一個簡單的實例，演示程序的執(zhí)行過程。通過學生書寫的書面材料，檢查學生對程序的認識和興趣情況，提高學習興趣。低級語言和高級語言兩大類。匯編語言和機器語言都是針對特定的計算機系統(tǒng)。用計算機處理問題時，必須告訴它明確的處理步。指令的序列就叫程序。過程被稱為程序設計。設邊長為L；面積為S。1．程序由若干程序行組成，以回車符作為行結束符。通過練習、作業(yè)或小測驗的方式來檢驗學生對所學程序語句的掌握情況。語句定義符決定了語句的功能，語句體說明了語句的具體內容。

　　

【正文】 —DO－ LOOP語句 應 知 應 會 ? DO－ LOOP循環(huán)的格式、功能和使用要點； ? 2．明確 DOLOOP語句與 WHILEWEND語句、 FORNEXT語句的異同及其各自的適用范圍。 ? 在 QBASIC語言中，除了允許 WHILEWEND、FORNEXT結構外，還增加了 DO循環(huán)結構，使循環(huán)結構的編程更容易，更靈活。 ? 語句的格式如下： ? DO ? 循環(huán)體 ? LOOP ? 作用：反復執(zhí)行循環(huán)體。 ? 注意： 終止循環(huán)可用 “exit do” ? 【 學習任務４ 】 從鍵盤輸入若干整數(shù)，找出其中的最大值。當輸入值是0時結束輸入。 ? 【 算法描述 】 ? （ 1）輸入第一個整數(shù) max； ? （ 2）判斷 max是否為零，若為零則結束； ? （ 3）輸入下一個整數(shù) k； ? （ 4）若 kmax，將 k賦給 max； ? （ 5）當 k值不為 0時，轉向 (3)； ? （ 6）輸出最大值 max； ? （ 7）結束。 ? 【 程序清單 】 ? INPUT max ? IF max=0 THEN END ? DO ? INPUT k ? IF kmax THEN max=k ? IF k=0 THEN PRINT max ： END ? LOOP ? 【 想一想 】 以學習任務 4為例，說明在用 DOLOOP語句的編程過程中應該注意哪些問題？ 第四節(jié) 環(huán)環(huán)相扣 ——循環(huán)嵌套 應 知 應 會 ? １ .掌握循環(huán)嵌套的結構及其使用方法； ? ２ .理解算法（如窮舉法）的基本概念，并能用于解決實際問題。 ? 在一個循環(huán)體中又完整地包含另一個循環(huán)稱為循環(huán)嵌套。前面介紹的三種循環(huán)都允許嵌套使用，也允許互相嵌套使用。在設計程序解決實際問題時，循環(huán)嵌套的使用極為廣泛。 ? 【 學習任務 5】 某單位共有四個部門，各部門的人數(shù)不同，但都不超過 20人?，F(xiàn)進行勞資調查，統(tǒng)計各部門年齡在 30到 50歲之間的人數(shù) (包括 30歲和 50歲 )。 ? 【 算法描述 】 ? （ 1）讓變量 j從 1到 4做循環(huán)，執(zhí)行以下步驟； ? （ 2）累加量 s賦值為 0； ? （ 3）讀入一個數(shù)據(jù) x； ? （ 4）判斷 x是否為 0，若為 0則打印 s； ? （ 5）判斷 x是否在 30～ 50之間，是則 s=s＋ 1，否則轉向步驟 (3)； ? （ 6）結束。 ? 【 程序清單 】 ? FOR j=1 TO 4 ? s=0 ? FOR k=1 TO 20 ? READ x ? IF x=0 THEN PRINT ＂部門＂； j；＂年齡在 30～ 50歲之間的人數(shù)為＂； s；＂人＂ ? IF FIX(x)=30 AND INT(x)=50 THEN s=s＋ 1 ? NEXT k ? NEXT j ? DATA 28， 34， 26， 47， ， 0 ? DATA 19， ， 27， 45， 48， 0 ? DATA 24， 24， 37， ， 53， 0 ? DATA 39， 4， ,48， 0 ? END ? 【 學習任務６ 】 找出 100～ 200之間的全部素數(shù)（如果一個數(shù)的約數(shù)只有 1和它本身，那么這個數(shù)就被稱為素數(shù)）。 ? 【 算法描述 】 ? （ 1） n=101； ? （ 2） n=n＋ 1，如果 n200則轉向步驟（ 7）； ? （ 3）把 INT(SQR(n))賦給變量 k；（判斷素數(shù)的條件：如果數(shù) n不能被 2～SQR(n)之間的任意一個整數(shù)整除，那么 n就是素數(shù)）） ? （ 4）把內層循環(huán)變量 j初值設為 2，標志位 flag設為 0； ? （ 5） n與 j相除，若能整除，則 n不是素數(shù)，把標志位 flag改為 1；否則 j=j＋ 1，循環(huán)執(zhí)行步驟（ 5），直到 j的值超出范圍或者 flag為 1時，結束內層循環(huán)； ? （ 6）如果 flag為 0，則輸出 n； ? （ 7）結束。 ? 【 程序清單 】 ? FOR n=101 TO 200 STEP 2 ? k=INT(SQR(n)) ? j=2 ? flag=0 ? WHILE j=k AND flag=0 ? IF n MOD j =0 THEN flag=1 ELSE j=j＋ 1 ? WEND ? IF flag=0 THEN PRINT n, ? NEXT n ? END ? 【 練一練 】 ? 1．求 n!的值小于 5000時的最大 n值。(n!=1 2 3…… n)。 ? 2．有一段臺階，若每步上 2階，最后余 1階；每步上 3階，最后余 2階；每步上 5階，最后余 4階；每步上 6階，最后余 5階；每步上 7階，恰好上完。問這段臺階共有多少階。 ? 3．編寫程序，輸出所有的“水仙花數(shù)”。所謂“水仙花數(shù)”是指一個三位數(shù)，其各位數(shù)的立方和等于該數(shù)。如： 153=13＋ 53＋ 33。 ? 1．順序輸出斐波那契數(shù)列 (Fibonacci)的前 30項。 Fibonacci數(shù)列的變化規(guī)律是：第一項和第二項都是 ? 1，從第三項起，每項的值都是前兩項的和。如： 1， 1， 2， 3， 5， 8， 13… 。 ? 2．甲、乙、丙三艦同時開始放禮炮，各放 21響，甲艦每隔 3分鐘放一次，乙艦每隔 5分鐘放一次，丙艦每隔 7分鐘放一次。假設發(fā)射時刻絕對準確，問能聽到多少聲禮炮聲？ ? 3．用一張一元票換 1分、 2分和 5分的硬幣，每種至少一枚，問有哪幾種換法（各幾枚）？ ? 4．求恰好使 s=1+1/2+1/3+…+1/n 的值大于 10時 n的值。 ? 5．一個炊事員上街采購 ,用 500元錢買了 90只雞 , 其中母雞一只 15元 ,公雞一只 10元 ,小雞一只 5元 ,正好把錢買完。問母雞、公雞、小雞各買多少只？ 6．求 1!+2!+…+10! 的值。 ? 7．編寫一程序，驗證角谷猜想。所謂的角谷猜想是：對于任意大于 1的自然數(shù) n，若 n為奇數(shù)，則將 n變?yōu)?3*n+1，否則將n變?yōu)?n的一半。經(jīng)過若干次這樣的變換，一定會使 n變?yōu)?1。 ? 8．求兩個正整數(shù) m和 n的最大公約數(shù)。 9．一個兩位數(shù) x，將它的個位數(shù)字與十位數(shù)字對調后得到一個新數(shù) y，此時 y比 x大 36，請編程求出所有這樣的兩位數(shù)。 ? 10．有一個三位數(shù)，它的各位數(shù)字之和的 11倍恰好等于它自身，請編程求出這個三位數(shù)。 ? 11．編程打印出如下圖案： ? 1 ? 121 ? 12321 ? 1234321 ? 123454321 ? 12．猜價格：中央電視臺的“幸運 52‖欄目深受觀眾喜愛，其中的“猜商品價格”的節(jié)目更是膾炙人口，現(xiàn)在請你編一個程序模擬這一游戲：由計算機隨機產(chǎn)生 200至 5000之間的一個整數(shù)，作為某件商品的價格，然后由你去猜是多少，若你猜的數(shù)大了，則計算機輸出提示“ Gao‖，若你猜的數(shù)小了，則計算機輸出提示“ Di‖，然后你根據(jù)提示繼續(xù)猜，直到你猜對了，計算機會提示“ Ok‖，并統(tǒng)計你猜的總次數(shù)。 ? 13．出售金魚者決定將缸里的金魚全部賣出。第一次賣出全部金魚的一半加二分之一條 。第二次賣出剩余的三分之一加三分之一條金魚 。第三次賣出余下金魚的四分之一加四分之一條 。第四次賣出余下的五分之一加五分之一條金魚。還剩下 11條金魚。當然 ,出售金魚時都是整數(shù)條 ,不能有任何破損。求缸里原有的金魚數(shù) ? 第五章 各就各位 —數(shù)組 ? 【 學習目標 】 ? 1．理解數(shù)組的概念及用途； ? 2．掌握數(shù)組的定義及用法； ? 3．熟練掌握數(shù)組的特點及使用方法； ? 4．靈活運用數(shù)組知識解決實際問題； ? 5．掌握數(shù)組的定義及使用方法； ? 6．靈活運用二維數(shù)組的知識解決實際問題。 ? 【 學習資源 】 ? QBASIC環(huán)境 ? 【 學習過程 】 ? 首先是教師講解數(shù)組的概念和程序中定義數(shù)組的方法，說明數(shù)組的實際應用，使數(shù)組和實際生活中的具體問題聯(lián)系起來，并通過實例分析和演示各種情況下數(shù)組的應用，說明數(shù)組的使用技巧，讓學生掌握數(shù)組的使用，在教師的幫助下，完成本單元實例程序的編寫和調試，完成對數(shù)組這種數(shù)據(jù)結構的掌握。 ? 【 學習成果 】 ? 編寫教材中給定的實例程序，并上機編寫、調試通過。 ? 【 學習評價建議 】 ? 通過練習、作業(yè)或小測驗的方式來檢驗學生對數(shù)組的理解和在程序編寫中使用技巧的掌握情況。 ? 【 基礎知識與技能 】 ? 1．數(shù)組的概念及用途； ? 2．掌握數(shù)組的特點及使用方法； ? 3．運用數(shù)組知識解決實際問題； ? 4．二維數(shù)組的定義及使用方法； ? 運用二維數(shù)組的知識解決實際問題。 ? 【 建議課時 】 ? 5課時 第一節(jié) 整裝待發(fā) ——認識數(shù)組 應 知 應 會 ? １ .理解數(shù)組的概念及用途； ? ２ .掌握數(shù)組的定義及用法。 ? 數(shù)組就是有著內在聯(lián)系和相同性質的數(shù)據(jù)，可以把它們按一定順序組織起來，共用一個統(tǒng)一的名字來代表的一組數(shù)據(jù)，這個名字就是數(shù)組名。數(shù)組中的各個數(shù)據(jù)用帶下標的數(shù)組名來區(qū)分，并規(guī)定將下標用括號括起來。例如： S(20)，其中“ S‖是數(shù)組名，“ 20‖是下標， S(20)是數(shù)組 S的一個元素。 ? 在程序中使用數(shù)組應遵循“先定義后使用”的原則。定義一個數(shù)組用“數(shù)組說明語句”來實現(xiàn)。 ? 數(shù)組的定義： ? 格式： DIM 數(shù)組名 (最大下標 ) ? 作用：說明數(shù)組的維數(shù)和數(shù)組元素的個數(shù)。只有一個下標的數(shù)組稱為一維數(shù)組，當我們定義了一個數(shù)組之后，程序中用到的數(shù)組下標不能超過所定義的最大下標。有兩個下標的數(shù)組稱為二維數(shù)組，有 n個下標的數(shù)組稱為 n維數(shù)組。 ? 比如建立一個一維的最大下標為 5的數(shù)組 A： ? DIM A(5) ? 【 學習任務 1】 從鍵盤輸入 10個數(shù)，把它們按反序輸出。 ? 【 算法描述 】 ? （ 1）定義數(shù)組 a； ? （ 2）把 10個數(shù)分別輸入 a(1)， a(2)， …a(10) 中； ? （ 3）輸出 a(10)， a(9)， …a(1) 的值； ? （ 4）結束。 ? 【 程序清單 】 ? DIM a(10) ? FOR j=1 TO 10 ? INPUT a(j) ? NEXT j ? PRINT ? FOR j=10 TO 1 STEP － 1 ? PRINT a(j) ? NEXT j ? END ? 【 想一想 】 上機試一試，將數(shù)組定義改為 DIM a(8)，重新運行程序，將會出現(xiàn)什么現(xiàn)象？為什么？ ? 【 練一練 】 ? 有一個已按由小到大規(guī)律排好序的數(shù)組，現(xiàn)在從鍵盤任意輸入一個數(shù)，把它插入到該數(shù)組中，要求插入完成后，該數(shù)組仍然由小到大的排序方式。 第二節(jié) 一字排開 ——一維數(shù)組 應 知 應 會 ? １ .熟練掌握數(shù)組的特點及使用方； ? ２ .靈活運用數(shù)組知識解決實際問題。 ? 隨著學習的深入，所要處理的數(shù)據(jù)可能會增多，對數(shù)據(jù)的處理也會起來越復雜，越來越綜合，利用數(shù)組可以解決較大批量的數(shù)據(jù)處理和訪問的問題。下面我們將會看到，數(shù)組的使用給數(shù)據(jù)的輸入和查找等處理帶來的方便。 ? 【 學習任務 2】 利用隨機函數(shù)產(chǎn)生 n個 10～ 99之間的整數(shù)并將它們存放在數(shù)組中，然后輸入一個要查找的數(shù) k，若 k存在，則輸出它在數(shù)組中的位置；否則輸出“沒找到”信息。 ? 【 算法描述 】 ? （ 1）輸入隨機數(shù)的個數(shù) n； ? （ 2）定義數(shù)組 x(n)； ? （ 3）利用 RND函數(shù)產(chǎn)生 n個 10～ 99之間的整數(shù)，并存放在數(shù)組 x中； ? （ 4）輸入待查找的數(shù) k； ? （ 5）把 k與數(shù)組 x中的每一個數(shù)相比較； ? （ 6）輸出結果； ? （ 7）結束。 ? 【 程序清單 】 ? INPUT ＂請輸入一個正整數(shù)：＂； n ? DIM x(n) ? FOR j=1 TO n ? x(j)=FIX(RND*90)＋ 10 ? NEXT j ? INPUT ＂請輸入待查找的數(shù)：＂； k ? j=1 ? WHILE x