1、Windows 操作系统部分新教案（第二讲） 2007 年 12 月 2 日1第八节 QBASIC 综合实例一、教材分析程序的顺序结构、分支结构和循环结构这三种程序设计的基本结构的综合运用是程序设计中的最难部分，关键是训练学生掌握程序设计的基本步骤。二、学生分析学生对程序的顺序结构、分支结构和循环结构这三种程序设计的基本结构有了较为全面的了解，有了一定的语句基础。但是考试并不要求学生能独立编写程序，而只要求学生能读懂程序和完善程序。教学知识点：1、编制 100 以内的加法例子2、打印“水仙花数”3、打印“魔方数”4、高次方程的求解5、掌握程序设计的基本步骤教学重点：1、编制 100 以内的加法
2、例子2、打印“水仙花数”3、打印“魔方数”教学难点：1、编制 100 以内的加法例子2、打印“水仙花数”3、打印“魔方数”4、掌握程序设计的基本步骤教学过程：1、我们为小学生编制 100 以内的加、减、乘、除，具体要求是随机产生10 道题，然后让学生回答，如果回答对打印出“Good!” ，并就加上 10 分；否则打印出“Wrong!” 先以加法为例子进行讲解。REM 加法练习题S=0RandomizeFOR I=1 TO 10X=INT(RND(1)*100+1)Y= INT(RND(1)*100+1)PRINT X；“+” ；Y；“= ”；INPUT ZIF Z=X+Y THENS=S+10
3、PRINT “Good!”ELSEPRINT “Wrong!”Windows 操作系统部分新教案（第二讲） 2007 年 12 月 2 日2END IFNEXT IPRINT “S=”；SEND2、打印出 100-999 之间的所有“水仙花数” ，所谓“水仙花数”就是本数的值等于本数各数字的立方和。如：153=1 3+53+33重点是数字的分离技术。FOR I=100 TO 999A=INT(I/100)B=INT(I-A*100)/10)C=I-A*100-B*10IF I=A*A*A+B*B*B+C*C*C THENPRINT IEND IFNEXT IEND3、打印如下的“魔方数” 。C
4、LSFOR I = 0 TO 12 STEP 4FOR J = 1 TO 4PRINT I + J;NEXT JPRINTNEXT IPRINTFOR I = 1 TO 41 2 3 45 6 7 89 10 11 1213 14 15 161 5 9 132 6 10 143 7 11 154 8 12 16Windows 操作系统部分新教案（第二讲） 2007 年 12 月 2 日3FOR J = 0 TO 15 STEP 4PRINT I + J;NEXT JPRINTNEXT IEND4、高次方程的求解。例如求方程：X 5-4X3+X+1=0 中 X 在（0，1）之间的一个根，要求它的
5、精度在 0.0001。分析：（1）在（0，1）之间用二分法进行；（2）F（0）=1 ，F（1）=-1，所以在两端。CLSA = 0B = 1DO WHILE ABS(B - A) = .0001C = (A + B) / 2X1 = A 5 - 4 * A 3 + A + 1X2 = C 5 - 4 * C 3 + C + 1IF X1 * X2 0 THENA = CELSEB = CEND IFLOOPPRINT “X=“; CEND5、课堂练习题：（1）计算表达式 1!+2!+3!+.+k!，计算 k=6 时的值。说明：其中1!=1；2!=2*1；3！=3*2*1 等等依次类推。（2）编
6、制程序 PROG1.BAS 其功能是：求自然对数的底 e 的近似值。其前十项的计算公式为：e(10)=1+1+1/(1*2)+1/(1*2*3)+.+1/(1*2*3*.*10)6、课外练习题：（1） 求下式和 S=a+aa+aaa+aa，其中 a 表示 0 至 9 间一个数字。计算 a=8 时 5 项和，即是 S=8+88+888+8888+88888，请您编制一个可以任意输入 a 和多少项，然后计算机计算出它的和。（2）编制程序，其功能是：打印下列图形。 A AAA AAAAAWindows 操作系统部分新教案（第二讲） 2007 年 12 月 2 日4 AAAAAAA BBBBBBB BBBBB BBB B
