結構化程序設計基礎習題.doc

第三章 結構化程序設計基礎習題說明：題號前標注的*為題目的難度等級，*越多難度等級越高。一、選擇填空題1、以下程序的運行結果為 x=1.5do case case x2 y=2 case x1 y=1endcase? yreturnA、1 B、2 C、0 D、語法錯誤2、循環(huán)結構中EXIT語句的功能是 A、放棄本次循環(huán)，重新執(zhí)行該循環(huán)結構B、放棄本次循環(huán)，進入下一次循環(huán)C、退出循環(huán)，執(zhí)行循環(huán)結構的下一條語句D、退出循環(huán)，結束程序的運行3、簡單分支結構語句是 A、CASEENDCASE B、DOENDDOC、IFENDIF D、SCANENDSCAN4、關于PARAMETERS語句，下列敘述中錯誤的是 、該語句應是子程序中的第一個語句、形式參數(shù)只能是內(nèi)存變量、形式參數(shù)之間用逗號分格、形式參數(shù)的個數(shù)應與調(diào)用實參個數(shù)一致5、以下關于子程序的敘述中不正確的是 A、一個主程序可以調(diào)用任意多個子程序B、一個子程序可以調(diào)用其他子程序C、主程序可調(diào)用子程序，但子程序不可調(diào)用其他的子程序D、子程序用DO命令調(diào)用6、下列循環(huán)共執(zhí)行了 次 for i=1 to 10 ?i i=i+1 Endfor A、10 B、5 C、0 D、語法錯7、本程序比較從鍵盤輸入的若干個數(shù)的大小，并輸出其中的最大數(shù)和最小數(shù)。程序SET TALK OFFCLEARINPUT “M=” TO M （1） DO WHILE .T. INPUT “N=” TO N （2） D=N ENDIF IF XN X=N ENDIF YN=A （3） WAIT “是否繼續(xù)輸入（Y-繼續(xù)/N-結束）” TO YN ENDDO （4） EXIT ENDIFENDDO？“最大數(shù)是：”，D？“最小數(shù)是：”，XSET TALK ON（1） A、STORE M TO D，X B、STORE 0 TO D，X C、STORE M，0 TO D，X D、STORE 100，0 TO D，X（2） A、IF D=N B、IF DN C、IF D=N D、IF DN（3） A、DO WHILE UPPER（YN） B、DO WHILE UPPER（YN）Y C、DO WHILE UPPER（YN）Y AND UPPER（YN）N D、DO WHILE UPPER（YN）Y OR UPPER（YN）N （4） A、if UPPER(YN)=Y B、if UPPER(YN)=N C、if UPPER(YN)Y D、if UPPER(YN)N二、程序閱讀：閱讀下列程序，寫出運行結果1、 答案： P=4 ，R=242、答案： 星期二 輸入有錯 結束3、答案： 36= 2* 2* 3* 34、答案： AABCABCDEABCDEFGABCDEFGHABCDEFGHIABCDEFGHIJ5、答案： * * * * *三、編程參考答案。*1、編寫程序如下：SET TALK OFFCLEARSTRING=ABCDEFX=1DO WHILE .T.ACCEPT INPUT PASS WORD: TO STRIF STR=STRING?WELCOMEEXITELSE IF X=3 ?NO POWER EXIT ELSE X=X+1 ENDIF?TRY AGAIN,XLOOPENDIFENDDOSET TALK ON*2、編寫程序如下：SET TALK OFFCLEARINPUT INPUT MONEY: TO MS=MONEY(M)?SSET TALK OFFFUNCTION MONEYPARAMETERS NM=NIF INT(M/100000000)=0S1=ELSES1=ALLTRIM(STR(INT(M/100000000),8)+億ENDIFM=M%100000000IF INT(M/10000)=0S2=ELSES2=ALLTRIM(STR(INT(M/10000),8)+萬ENDIFM=M%10000IF INT(M/1000)=0S3=ELSES3=ALLTRIM(STR(INT(M/1000),8)+千ENDIFM=M%1000IF INT(M/100)=0S4=ELSES4=ALLTRIM(STR(INT(M/100),8)+百ENDIFM=M%100IF INT(M/10)=0S5=ELSES5=ALLTRIM(STR(INT(M/10),8)+拾ENDIFM=M%10IF INT(M)=0S6=元ELSES6=ALLTRIM(STR(INT(M),8)+元ENDIFN=N%1N=N*100IF INT(N/10)=0S7=ELSES7=ALLTRIM(STR(INT(N/10),8)+角ENDIFIF INT(N%10)=0S8=ELSES8=ALLTRIM(STR(INT(N%10),8)+分ENDIFRETURN S1+S2+S3+S4+S5+S6+S7+S8*3、編寫程序如下：SET TALK OFFCLEARINPUT N= TO NINPUT M= TO MX=MAX(N,M)FOR I=X TO M*N IF MOD(I,M)=0 AND MOD(I,N)=0Y1=IEXITENDIFENDFOR? Y1=+ALLTRIM(STR(Y1,19)+,Y2=+ALLTRIM(STR(M*N/Y1,19)SET TALK ON4、編寫程序如下：SET TALK OFFCLEARINPUT N= TO NFOR I=1 TO N ?SPACE(N-I+1) FOR J=1 TO 2*I-1 ?CHR(ASC(A)+J-1) ENDFORENDFORFOR P=N-1 TO 1 STEP -1 ?SPACE(N-P+1) FOR K=1 TO 2*P-1 ?CHR(ASC(A)+K-1) ENDFORENDFORSET TALK ON5、編寫程序如下：SET TALK OFFCLEARDIME A（5，5）A=0FOR I=1 TO 5 ？SPACE（10-I） FOR J=1 TO I IF I=J OR J=1 A（I，J）=1 ELSE A（I，J）=A（I-1，J-1）+A（I-1，J） ENDIF ？STR（A（I，J），2） ENDFORENDFORSET TAlK ON6、編寫程序如下：SET TALK OFFCLEAR*設：X公雞，Y母雞，Z小雞FOR X=1 TO 20FOR Y=1 TO 33Z=100-X-YIF 5*X+3*Y+Z/3=100? 公雞=+STR(X,2),母雞=+STR(Y,2),小雞=+STR(Z,2)ENDIFENDFORENDFORSET TALK ON *7、編寫程序如下：SET TALK OFFCLEARUSE E:VFPENGLISH.DBFINDEX ON MAX(NO1,NO2,NO3,NO4,NO5) TAG M DESCENDING SET ORDER TO TAG MLISTLIST 姓名,MAX(NO1,NO2,NO3,NO4,NO5)INDEX ON PJF(NO1,NO2,NO3,NO4,NO5) TAG P DESCENDINGSET ORDER TO TAG PLISTLIST 姓名,PJF(NO1,NO2,NO3,NO4,NO5)USESET TALK ONRETURN* 自定義函數(shù) PJF（ ）FUNCTION PJF(NO1,NO2,NO3,NO4,NO5) M=MAX(NO1,NO2,NO3,NO4,NO5) N=MIN(NO1,NO2,NO3,NO4,NO5) P=(NO1+NO2+NO3+NO4+NO5-M-N)/3 RETURN PENDFUNC8、編寫程序如下：SET TALK OFFCLEARUSE E:COMPUTER.DBFDO WHILE .NOT. EOF( ) DO CASE CASE 成績 = 90 REPLACE