qbasic培训教材全套(编辑修改稿)

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）输出应付金额；。