QBASIC綜合實例.doc

Windows操作系統(tǒng)部分新教案（第二講） 2007年12月2日第八節(jié) QBASIC綜合實例一、教材分析 程序的順序結(jié)構(gòu)、分支結(jié)構(gòu)和循環(huán)結(jié)構(gòu)這三種程序設(shè)計的基本結(jié)構(gòu)的綜合運用是程序設(shè)計中的最難部分，關(guān)鍵是訓(xùn)練學(xué)生掌握程序設(shè)計的基本步驟。二、學(xué)生分析學(xué)生對程序的順序結(jié)構(gòu)、分支結(jié)構(gòu)和循環(huán)結(jié)構(gòu)這三種程序設(shè)計的基本結(jié)構(gòu)有了較為全面的了解，有了一定的語句基礎(chǔ)。但是考試并不要求學(xué)生能獨立編寫程序，而只要求學(xué)生能讀懂程序和完善程序。教學(xué)知識點：1、編制100以內(nèi)的加法例子2、打印“水仙花數(shù)”3、打印“魔方數(shù)”4、高次方程的求解5、掌握程序設(shè)計的基本步驟教學(xué)重點：1、編制100以內(nèi)的加法例子2、打印“水仙花數(shù)”3、打印“魔方數(shù)”教學(xué)難點：1、編制100以內(nèi)的加法例子2、打印“水仙花數(shù)”3、打印“魔方數(shù)”4、掌握程序設(shè)計的基本步驟教學(xué)過程：1、我們?yōu)樾W(xué)生編制100以內(nèi)的加、減、乘、除，具體要求是隨機產(chǎn)生10道題，然后讓學(xué)生回答，如果回答對打印出“Good!”，并就加上10分；否則打印出“Wrong!”先以加法為例子進行講解。REM 加法練習(xí)題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之間的所有“水仙花數(shù)”，所謂“水仙花數(shù)”就是本數(shù)的值等于本數(shù)各數(shù)字的立方和。如：153=13+53+33重點是數(shù)字的分離技術(shù)。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、打印如下的“魔方數(shù)”。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(xiàn)（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、課堂練習(xí)題：（1）計算表達式1!+2!+3!+.+k!，計算k=6時的值。說明：其中1!=1；2!=2*1；3！=3*2*1等等依次類推。（2）編制程序PROG1.BAS其功能是：求自然對數(shù)的底e 的近似值。其前十項的計算公式為：e(10)=1+1+1/(1*2)+1/(1*2*3)+.+1/(1*2*3*.*10)6、課外練習(xí)題：（1） 求下式和S=a+aa+aaa+aa，其中a表示0至9間一個數(shù)字。計算a=8時5項和，即是S=8+88+888+8888+88888，