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