QBASIC综合实例.doc

Windows操作系统部分新教案（第二讲） 2007年12月2日第八节 QBASIC综合实例一、教材分析 程序的顺序结构、分支结构和循环结构这三种程序设计的基本结构的综合运用是程序设计中的最难部分，关键是训练学生掌握程序设计的基本步骤。二、学生分析学生对程序的顺序结构、分支结构和循环结构这三种程序设计的基本结构有了较为全面的了解，有了一定的语句基础。但是考试并不要求学生能独立编写程序，而只要求学生能读懂程序和完善程序。教学知识点：1、编制100以内的加法例子2、打印“水仙花数”3、打印“魔方数”4、高次方程的求解5、掌握程序设计的基本步骤教学重点：1、编制100以内的加法例子2、打印“水仙花数”3、打印“魔方数”教学难点：1、编制100以内的加法例子2、打印“水仙花数”3、打印“魔方数”4、掌握程序设计的基本步骤教学过程：1、我们为小学生编制100以内的加、减、乘、除，具体要求是随机产生10道题，然后让学生回答，如果回答对打印出“Good!”，并就加上10分；否则打印出“Wrong!”先以加法为例子进行讲解。REM 加法练习题S=0RandomizeFOR I=1 TO 10 X=INT(RND(1)*100+1) Y= INT(RND(1)*100+1) PRINT X；“+”；Y；“=”； INPUT Z IF Z=X+Y THEN S=S+10 PRINT “Good!” ELSE PRINT “Wrong!” END IFNEXT IPRINT “S=”；SEND2、打印出100-999之间的所有“水仙花数”，所谓“水仙花数”就是本数的值等于本数各数字的立方和。如：153=13+53+33重点是数字的分离技术。FOR I=100 TO 999 A=INT(I/100) B=INT(I-A*100)/10) C=I-A*100-B*10 IF I=A*A*A+B*B*B+C*C*C THEN PRINT I END IFNEXT IEND3、打印如下的“魔方数”。1 2 3 45 6 7 89 10 11 1213 14 15 161 5 9 132 6 10 143 7 11 154 8 12 16CLSFOR I = 0 TO 12 STEP 4 FOR J = 1 TO 4 PRINT I + J; NEXT J PRINTNEXT IPRINTFOR I = 1 TO 4 FOR J = 0 TO 15 STEP 4 PRINT I + J; NEXT J PRINTNEXT IEND4、高次方程的求解。例如求方程：X5-4X3+X+1=0中X在（0，1）之间的一个根，要求它的精度在0.0001。分析：（1）在（0，1）之间用二分法进行；（2）F（0）=1，F（1）=-1，所以在两端。CLSA = 0B = 1DO WHILE ABS(B - A) = .0001 C = (A + B) / 2 X1 = A 5 - 4 * A 3 + A + 1 X2 = C 5 - 4 * C 3 + C + 1 IF X1 * X2 0 THEN A = C ELSE B = C END IF LOOP PRINT X=; C END5、课堂练习题：（1）计算表达式1!+2!+3!+.+k!，计算k=6时的值。说明：其中1!=1；2!=2*1；3！=3*2*1等等依次类推。（2）编制程序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，