qbasic培訓教材全套(編輯修改稿)

　

【文章內容簡介】 ? 集合表示 ? 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語句 ，即在 一行 內完成； 格式 2稱為 塊 IF語句 ，需要 多條語句 完成。 ? 作用 ：如果條件表達式的值為真，則執行 THEN后面的 語句組 1；否則執行 ELSE后面的 語句組 2。比較一下，它的表述方式是否和我們的日常用語很相似呢？ 【 學習任務 1】 輸入 2個整數 a， b輸出其中絕對值大的數。 ? 【 算法描述 】 ? （ 1）輸入 a， b兩個數； ? （ 2）將 a賦給 max； ? （ 3）將 |b|與 |max|相比較，如果 |b||max|，則將 b賦給 max； ? （ 4）輸出 max； ? （ 5）結束。 ? 【 程序清單 】 ? REM 求兩個數中絕對值大的數 ? INPUT ＂輸入兩個整數：＂； a， b ? max=a ? IF ABS(b)ABS(max) THEN max=b ? PRINT ＂絕對值大的數是：＂； max ? END ? 程序第一行的 RAM是注釋語句的語句定義符，這一行也叫注釋語句，注釋語句只起注釋作用，不參與程序的執行。 ? 【 學習任務 2】 輸入一個公元年號，判斷是否為閏年。 ? 所謂閏年是指一年有 366天的年份，計算規則是：年號能被 4整除的年份一般是閏年，但年號能被 400整除，卻不能被 1000整除的年份不是閏年。 ? 【 算法描述 】 ? （ 1）輸入公元年號 y； ? （ 2）判斷 y MOD 4000是否為真，若是則輸出“非閏年”，程序結束。 ? （ 3）判斷（ y MOD 400=0） AND（ y MOD 10000）是否為真，若是則輸出“非閏年”，否則輸出“是閏年”。 ? （ 4）結束。 ? 【 程序清單 】 ? REM判斷是否閏年 ? INPUT ″輸入公元年號： ″； y ? IF y MOD 40 THEN PRINT ＂非閏年＂： END ? IF（ y MOD 400） AND （ y MOD 1000） 0 THEN PRINT ＂非閏年＂ ELSE PRINT＂是閏年＂ ? END ? 【 學習任務 3】 ? 計算下列函數： ? 1 (x0), ? y= 0 (x=0), ? 1 (x0)。 ? 【 問題分析 】 此函數稱為符號函數，程序的輸入是 x，輸出是 y。 ? 【 程序清單 】 ? INPUT ＂請輸入 x＂； x ? IF x0 THEN ? y=1 ? ELSE ? IF x=0 THEN ? y=0 ? ELSE ? Y= 1 ? PRINT ＂ y=＂； y ? END 第二節 指點迷津 —SELECT CASE語句 應 知 應 會 ? SELECT CASE語句的功能及使用要點； ? ； ? 。 ? 處理多分支除了用 IF嵌套外，也可以使用一種專門實現多分支的情況語句 —SELECT CASE語句。 ? 格式： SELECT CASE 測試表達式 ? CASE 表達式表 1 ? [語句組 1] ? CASE 表達式表 2 ? [語句組 2] ? …… …… …… ? CASE 表達式表 n ? [語句組 n] ? CASE ELSE ? [語句組 n＋ 1] ? END SELECT ? 作用：根據 測試表達式 的值，從多個語句組中選擇符合條件的一個語句組執行。程序中每一個測試表達式必須有確定的值。 ? 【 拓展 】 在 CASE子句中使用 IS ? CASE IS 關系運算符 表達式 ? 【 作用 】 指定一個滿足條件的范圍。 ? 【 學習任務 4】 編程模擬簡單計算器，實現四則運算。例如：輸入： 2,4,＋ 輸出： 2＋ 4=6。 ? 【 算法描述 】 ? （ 1）輸入運算數據 x、 y和運算符 s＄； ? （ 2）根據運算符判斷操作類型并計算； ? （ 3）結束。 ? 【 程序清單 】 ? 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 ＂除數為 0 ＂ ? END IF ? CASE ELSE ? PRINT ＂運算符錯誤＂ ? END SELECT ? END ? 【 想一想 】 與 IF語句相比， SELECT CASE語句有何特點？ ? 例 : 輸入 3個整數、按從大到小的順序輸出。 ? 【 算法描述 】 （ 1）先將 a與 b比較，把小者放 b中，大者放 a。 （ 2）再將 a與 c比較，把小者放 c中，大者放 a中，此時 a已是三者最大的。 （ 3）最后將 b與 c比較，大者放 b中，小者放 c中，此時 a、 b、 c已按從大到小的順序排例好。 【 程序清單 】 inpnt a,b,c,=。a,b,c if ba then t=a a=b 交換 a、 b（ swap a,b) b=t end if if ca then t=a a=c 交換 a、 c（ swap a,c) c=t end if if cb then t=b b=c 交換 b、 c (swap b,c) ? c=t end if print a, b,c ? end ? 注意： t為中間變量，提高學生學習借助第三變量解決問題的能力 ? 【 練一練 】 銀行存款利率如下： ? 活期： % ? 1年定期： % ? 2年定期： % ? 3年定期： % ? 5年定期： % ? 今有一批現金 P0，欲存 5年，有以下幾種方案： ? （ 1）存 5年活期； ? （ 2）存 5次 1年定期； ? （ 3）存 2次 2年期， 1次 1年期； ? （ 4）存 1次 3年期， 1次 2年期； ? （ 5）存 5年定期。 ? 輸入方案號 C（ C的值在 1~5），計算出應得的本息之和。 第三節 為我所用 —選擇結構程序舉例 應 知 應 會 IF語句的嵌套結構； 。 ? 運用分支結構，我們可以編程實現許多數值運算問題。 ? 【 學習任務 5】 鐵路托運行李，從甲地到乙地，托運行李不超過 50公斤時，每公斤運費為 ，超過的部分每公斤 2元。今設行李重 W公斤，請編程序計算運費 a。 ? 【 問題分析 】 ? 計算公式為： ? （ 1）當 W≤50 時 公式為： a=*w ? （ 2）當 W50 時 公式為： a=50*+(w50)* ? 【 程序清單 】 ? INPUT ＂ Weight=＂； W ? IF W=50 THEN ? a=*w ? ELSE ? a=50*+(w50)* ? END IF ? PRINT ＂ Weight=＂； W；＂ amount=＂； a ? END 判別 n是否素數。 ? 【 程序清單 】 ? input n=。n k = int(SQR(n)) f = 0 for i% = 2 to k if n mod i% = 0 then f = 1 exit for endif next i% if f = 0 then print n 。 是素數 else print n 。 不是素數 endif end ? 【 斐波那契數列 】 ? f(n)=1 (n=2) f(n)=f(n1)+f(n2) (n2) ? f1=1 f2=1 f3=f2+f1=2 f4=f3+f2=3 f5=f4+f3=5 ...... ? 【 程序如下 】 ： f1=1 f2=1 print f1,f2, for i% = 3 to 20 f3 = f1+f2 print f3, f1=f2 f2=f3 next i% print end ? 【 猴子吃桃 】 ：每次吃掉一半多一個，直到第 10天只剩一個 ,第一天共摘了多少個桃子？ x10 =1 程序如下： x =1 for n%=10 to 2 step 1 x=(x+1)*2 next n% print 桃子的數量為： 。x end 思考： for n%=10 to 1 step 1 或 for n%=1 to 9 ? 【 學習任務 6】 商店在節日期間搞促銷活動，規定：購物 300～ 500元 (包括 300元和 500元 )可享受 ；購物 500～ 1000元 (包括 1000元 )可享受 8折優惠；購物 1000～ 3000元 (包括 3000元 )可享受 ；購物 3000元以上可享受 優惠。編程輸入購物款，計算出實際應付金額。 ? 【 算法描述 】 ? （ 1）輸入購物款 p； ? （ 2）根據條件判斷進入某個分支，并計算應付金額 c； ? （ 3）輸出應付金額；