结构化程序设计基础习题.doc

第三章 结构化程序设计基础习题说明：题号前标注的*为题目的难度等级，*越多难度等级越高。一、选择填空题1、以下程序的运行结果为 x=1.5do case case x2 y=2 case x1 y=1endcase? yreturnA、1 B、2 C、0 D、语法错误2、循环结构中EXIT语句的功能是 A、放弃本次循环，重新执行该循环结构B、放弃本次循环，进入下一次循环C、退出循环，执行循环结构的下一条语句D、退出循环，结束程序的运行3、简单分支结构语句是 A、CASEENDCASE B、DOENDDOC、IFENDIF D、SCANENDSCAN4、关于PARAMETERS语句，下列叙述中错误的是 、该语句应是子程序中的第一个语句、形式参数只能是内存变量、形式参数之间用逗号分格、形式参数的个数应与调用实参个数一致5、以下关于子程序的叙述中不正确的是 A、一个主程序可以调用任意多个子程序B、一个子程序可以调用其他子程序C、主程序可调用子程序，但子程序不可调用其他的子程序D、子程序用DO命令调用6、下列循环共执行了 次 for i=1 to 10 ?i i=i+1 Endfor A、10 B、5 C、0 D、语法错7、本程序比较从键盘输入的若干个数的大小，并输出其中的最大数和最小数。程序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 “是否继续输入（Y-继续/N-结束）” TO YN ENDDO （4） EXIT ENDIFENDDO？“最大数是：”，D？“最小数是：”，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* 自定义函数 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