【正文】 【 程序清單 】 ? READ A， B， C， D， E↙ ? LET S=A+B+C+D+E↙ ? PRINT ＂ S=＂； S ↙ ? DATA 170， 175， 172， 178， 174 ↙ ? END ↙ ? 運行結果： 869。一個程序可以使用多個 READ和 DATA語句。在執(zhí)行上列程序時，READ語句從數(shù)據(jù)區(qū)中取出 170賦給變量 A， 175賦給變量 B， 172賦給變量 C， 178賦給變量 D, 174賦給變量 E。一個程序可以使用多個 READ和 DATA語句。 DATA語句的數(shù)據(jù)只能是常量，不能是表達式。 ? 2．一人買蘋果 5斤，每公斤 ；買香蕉 3斤，每公斤 ；買橘子 4斤，每公斤 元。 例如： PRINT 13－ 3^2 ? PRINT 5*6 第三節(jié) 一次親密接觸 順序結構程序舉例 應 知 應 會 ? ； ? ； ? ，達到能熟練編寫順序結構的程序，提高分析問題、解決問題的能力和技能。 (3х－ 8)的值。 ? 分別利用賦值語句（ LET）、鍵盤輸入語句（ INPUT）和置數(shù) /讀書語句（ READ/DATA）進行編程。 ? 【 想一想 】 ? 1． LET語句是使變量從表達式取得數(shù)據(jù)的唯一語句。 3．編一程序，輸入三角形的三邊 a、 b、 c（假設這三邊可以構成一個三角形）的值，求三角形的面積Ｓ？ ? （提示：可利用海倫公式 ） ? 4．有三個小朋友甲乙丙。問最后甲、乙、丙三人各有多少粒糖果？ ? 5．某倉庫 5月 1日有糧食 100噸， 5月 2日又調(diào)進 20噸， 5月 3日賣出庫存的3分之二， 5月 4日又調(diào)進庫存的 3倍糧食，問該倉庫從 5月 1日到 5月 4日期間每天的糧食分別是多少噸？ (輸出每天的庫存量 ) ? 6．五位好朋友相聚。 【 學習資源 】 ? QBASIC環(huán)境 【 學習過程 】 ? 本單元的學習將在教師講解的前提下，讓學生通過上機實踐操作，完成教材中所列舉的實例，深入理解選擇結構概念、基本語句和分支結構的程序編寫方法和注意的問題，通過上機實踐，理解和掌握完成選擇功能的不同語句的使用方法和使用技巧。 【 基礎知識與技能 】 ? 1．多分支結構的含義與基本概念； ? 2．條件語句的格式及用法； ? 3．多分支語句的執(zhí)行過程； ? 4． SELECT CASE語句的功能及使用要點； ? 5．嵌套的 IF結構及多分支結構問題。這里的“天氣好”就是條件，條件成立與否，決定了我們?nèi)ソ加芜€是呆在家里。 X 10 or X0 ? 集合表示 ? A and B A or B not A ? QBASIC中的條件語句有兩種格式： ? 格式 1： ? IF 條件表達式 THEN 語句組 1 [ELSE語句組 2] ? 格式 2： ? IF 條件表達式 THEN ? 語句組 1 ? [ELSE ? 語句組 2] ? END IF ? 格式 1稱為 行 IF語句 ，即在 一行 內(nèi)完成； 格式 2稱為 塊 IF語句 ，需要 多條語句 完成。 ? 【 程序清單 】 ? REM 求兩個數(shù)中絕對值大的數(shù) ? INPUT ＂輸入兩個整數(shù)：＂； a， b ? max=a ? IF ABS(b)ABS(max) THEN max=b ? PRINT ＂絕對值大的數(shù)是：＂； max ? END ? 程序第一行的 RAM是注釋語句的語句定義符，這一行也叫注釋語句，注釋語句只起注釋作用，不參與程序的執(zhí)行。 ? （ 3）判斷（ y MOD 400=0） AND（ y MOD 10000）是否為真，若是則輸出“非閏年”，否則輸出“是閏年”。 ? 【 程序清單 】 ? INPUT ＂請輸入 x＂； x ? IF x0 THEN ? y=1 ? ELSE ? IF x=0 THEN ? y=0 ? ELSE ? Y= 1 ? PRINT ＂ y=＂； y ? END 第二節(jié) 指點迷津 —SELECT CASE語句 應 知 應 會 ? SELECT CASE語句的功能及使用要點； ? ； ? 。 ? 【 拓展 】 在 CASE子句中使用 IS ? CASE IS 關系運算符 表達式 ? 【 作用 】 指定一個滿足條件的范圍。 ? 【 程序清單 】 ? REM 模擬計算器 ? INPUT x， y， s＄ ? SELECT CASE s＄ ? CASE ＂＋＂ ? PRINT x；＂＋＂； y；＂ =＂； x＋ y ? CASE ＂－＂ ? PRINT x；＂－＂； y；＂ =＂； x－ y ? CASE ＂ * ＂ ? PRINT x；＂ * ＂； y；＂ =＂； x*y ? CASE ＂ / ＂ ? IF y0 THEN ? PRINT x；＂ / ＂； y；＂ =＂； x/y ? ELSE ? PRINT ＂除數(shù)為 0 ＂ ? END IF ? CASE ELSE ? PRINT ＂運算符錯誤＂ ? END SELECT ? END ? 【 想一想 】 與 IF語句相比， SELECT CASE語句有何特點？ ? 例 : 輸入 3個整數(shù)、按從大到小的順序輸出。 【 程序清單 】 inpnt a,b,c,=。 ? 運用分支結構，我們可以編程實現(xiàn)許多數(shù)值運算問題。 ? 【 程序清單 】 ? input n=。x end 思考： for n%=10 to 1 step 1 或 for n%=1 to 9 ? 【 學習任務 6】 商店在節(jié)日期間搞促銷活動，規(guī)定：購物 300～ 500元 (包括 300元和 500元 )可享受 ；購物 500～ 1000元 (包括 1000元 )可享受 8折優(yōu)惠；購物 1000～ 3000元 (包括 3000元 )可享受 ；購物 3000元以上可享受 優(yōu)惠。 ? 【 練一練 】 ? 設計一個程序：根據(jù)人的不同年齡，確定送什么生日禮物為宜。小 Q想買盡量多的筆（鼓勵盡量多的同學），同時他又不想有剩余錢。 ? 5．輸入兩個正整數(shù) a， b。 提示：求 c的公式為： c＝ a K＋ b 其中： ? 6．運輸公司計算貨車運費時，距離 (S)越長，每公里運費越低，標準如下： ? 如果 S＜ 250公里，運費為標準運價的 100% ? 如果 250公里 ≤S＜ 500公里，運費為標準運價的 98%； ? 如果 500公里 ≤S＜ 1000公里，運費為標準運價的 95%； ? 如果 1000公里 ≤S＜ 2000公里，運費為標準運價的 92%； ? 如果 2000公里 ≤S＜ 3000公里，運費為標準運價的 90%； ? 如果 S≥3000公里，運費為標準運價的 85%。 ? 【 學習成果 】 ? 書寫教材中給出的程序，并上機編寫、調(diào)試通過。 ? FORNEXT語句如何實現(xiàn)循環(huán)結構 : ? 語句的 格式 如下： ? FOR 循環(huán)變量 =初值 TO 終值 [STEP步長 ] ? 循環(huán)體 ? NEXT [循環(huán)變量 ] ? 作用：當循環(huán)變量的值未超過終值時，執(zhí)行循環(huán)體。 ? FOR－ NEXT語句的 執(zhí)行步驟 是： ? （ 1）給循環(huán)變量賦 初值 ； ? （ 2） 判斷 循環(huán)變量的值 是否超過終值 ，若 超過 終值，則 跳出循環(huán) ，執(zhí)行后續(xù)語句； ? （ 3） 執(zhí)行循環(huán)體 ； ? （ 4） 循環(huán)變量 向終值方向 增加一個步長 ； ? （ 5） 轉向（ 2） 。 ? FOR a=1 TO 100 STEP 1 ? s=s+a ? NEXT a ? PRINT ＂ s= ；＂ s ? 【 想一想 】 變量 a和變量 s在程序中分別用于實現(xiàn)什么功能？ ? 我們將累加和放到變量 s中，讓 s在循環(huán)過程中實現(xiàn)自加。 ? 【 想一想 】 本題與例 1有何區(qū)別？ ? 【 練一練 】 根據(jù)上題算法，上機試做本題。但提倡用整數(shù)。循環(huán)變量可以在循環(huán)體中被引用，也可以不在循環(huán)體中出現(xiàn) ? 在循環(huán)體內(nèi)一般不要對循環(huán)變量再賦值，否則將影響原有的循環(huán)控制狀況。 ? 在學習 WHILEWEND語句之前，還是讓我們先來考慮一個問題。 ? 執(zhí)行過程為： ? 1．遇到 WHILE語句時，先對“條件”求值，判斷條件為“真”或“假”； ? 2．如果條件為“真”，則運行 WHILE與 WEND之間的語句，然后再檢查上述條件是否為“真”，如果為“真”，則再次運行 WHILE與 WEND之間的語句。 ? 在 QBASIC語言中，除了允許 WHILEWEND、FORNEXT結構外，還增加了 DO循環(huán)結構，使循環(huán)結構的編程更容易，更靈活。 ? 【 算法描述 】 ? （ 1）輸入第一個整數(shù) max； ? （ 2）判斷 max是否為零，若為零則結束； ? （ 3）輸入下一個整數(shù) k； ? （ 4）若 kmax，將 k賦給 max； ? （ 5）當 k值不為 0時，轉向 (3)； ? （ 6）輸出最大值 max； ? （ 7）結束。在設計程序解決實際問題時，循環(huán)嵌套的使用極為廣泛。 ? 【 程序清單 】 ? 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ù)）。 ? 2．有一段臺階，若每步上 2階，最后余 1階；每步上 3階，最后余 2階；每步上 5階，最后余 4階；每步上 6階，最后余 5階；每步上 7階，恰好上完。如： 153=13＋ 53＋ 33。 ? 2．甲、乙、丙三艦同時開始放禮炮，各放 21響，甲艦每隔 3分鐘放一次，乙艦每隔 5分鐘放一次，丙艦每隔 7分鐘放一次。 ? 7．編寫一程序，驗證角谷猜想。 9．一個兩位數(shù) x，將它的個位數(shù)字與十位數(shù)字對調(diào)后得到一個新數(shù) y，此時 y比 x大 36，請編程求出所有這樣的兩位數(shù)。第一次賣出全部金魚的一半加二分之一條 。還剩下 11條金魚。 ? 【 學習成果 】 ? 編寫教材中給定的實例程序，并上機編寫、調(diào)試通過。 ? 數(shù)組就是有著內(nèi)在聯(lián)系和相同性質(zhì)的數(shù)據(jù)，可以把它們按一定順序組織起來，共用一個統(tǒng)一的名字來代表的一組數(shù)據(jù)，這個名字就是數(shù)組名。定義一個數(shù)組用“數(shù)組說明語句”來實現(xiàn)。 ? 比如建立一個一維的最大下標為 5的數(shù)組 A： ? DIM A(5) ? 【 學習任務 1】 從鍵盤輸入 10個數(shù)，把它們按反序輸出。 ? 隨著學習的深入，所要處理的數(shù)據(jù)可能會增多，對數(shù)據(jù)的處理也會起來越復雜，越來越綜合，利用數(shù)組可以解決較大批量的數(shù)據(jù)處理和訪問的問題。 ? 【 程序清單 】 ? 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