QBASIC綜合實例.doc

Windows操作系統(tǒng)部分新教案（第二講） 2007年12月2日第八節(jié) QBASIC綜合實例一、教材分析 程序的順序結構、分支結構和循環(huán)結構這三種程序設計的基本結構的綜合運用是程序設計中的最難部分，關鍵是訓練學生掌握程序設計的基本步驟。二、學生分析學生對程序的順序結構、分支結構和循環(huán)結構這三種程序設計的基本結構有了較為全面的了解，有了一定的語句基礎。但是考試并不要求學生能獨立編寫程序，而只要求學生能讀懂程序和完善程序。教學知識點：1、編制100以內的加法例子2、打印“水仙花數”3、打印“魔方數”4、高次方程的求解5、掌握程序設計的基本步驟教學重點：1、編制100以內的加法例子2、打印“水仙花數”3、打印“魔方數”教學難點：1、編制100以內的加法例子2、打印“水仙花數”3、打印“魔方數”4、掌握程序設計的基本步驟教學過程：1、我們?yōu)樾W生編制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，