QBASIC综合实例

第八节QBASIC综合实例
一、教材分析
程序的顺序结构、分支结构和循环结构这三种程序设计的基本结构的综合运用是程序设计中的最难部分，关键是训练学生掌握程序设计的基本步骤。

二、学生分析
学生对程序的顺序结构、分支结构和循环结构这三种程序设计的基本结构有了较为全面的了解，有了一定的语句基础。

但是考试并不要求学生能独立编写程序，而只要求学生能读懂程序和完善程序。

教学知识点：
1、编制100以内的加法例子
2、打印“水仙花数”
3、打印“魔方数”
4、高次方程的求解
5、掌握程序设计的基本步骤
教学重点：
1、编制100以内的加法例子
2、打印“水仙花数”
3、打印“魔方数”
教学难点：
1、编制100以内的加法例子
2、打印“水仙花数”
3、打印“魔方数”
4、掌握程序设计的基本步骤
教学过程：
1、我们为小学生编制100以内的加、减、乘、除，具体要求是随机产生10道题，然后让学生回答，如果回答对打印出“Good!”，并就加上10分；否则打印出“Wrong!”[先以加法为例子进行讲解]。

REM 加法练习题
S=0
Randomize
FOR 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 IF
PRINT “S=”；S
END
2、打印出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 IF
NEXT I
END
3、打印如下的“魔方数”。

CLS
FOR I = 0 TO 12 STEP 4
FOR J = 1 TO 4
PRINT I + J;
NEXT J
PRINT
NEXT I
PRINT
FOR I = 1 TO 4
FOR J = 0 TO 15 STEP 4
PRINT I + J;
PRINT
NEXT I
END
4、高次方程的求解。

例如求方程：X5-4X3+X+1=0中X在（0，1）之间的一个根，要求它的精度在0.0001。

分析：（1）在（0，1）之间用二分法进行；（2）F（0）=1，F（1）=-1，所以在两端。

CLS
A = 0
B = 1
DO 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
END
5、课堂练习题：
（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+…+a…a，其中a表示0至9间一个数字。

计算a=8时5项和，即是S=8+88+888+8888+88888，请您编制一个可
以任意输入a和多少项，然后计算机计算出它的和。

（2）编制程序，其功能是：打印下列图形。

A
AAA
AAAAA
AAAAAAA
BBBBBBB
BBBBB
BBB
B。