东方填空(有答案)

1、1、程序的功能是：在在学生表中查找并输出指定学生的所有信息。 填空要求：程序中共有三个填空，请在“-n-”处填空（注意：不能删除“&此处填空” ，以便于检查） ，并调试运行。不得增加或删减程序行。SET TALK OFFCLEARUSE 学生INDEXINDEX ONON 学号学号 TOTO XHXH 或者或者 SETSET ORDERORDER TOTO 学号学号-1-&此处填空此处填空ACCEPT 请输入指定的学生学号: TO XH SEEK XHIF !FOUND!FOUND-2-&此处填空此处填空 ? 查无此人! ELSE DISPLAYDISPLAY-3-&a

2、mp;此处填空此处填空ENDIFUSE SET TALK ON2、给定程序的功能是：判断给定的正整数值表达式的值是否为素数。填空要求：程序中共有三个填空，请在“-n-”处填空（注意：不能删除“&此处填空” ，以便于检查） ，并调试运行。不得增加或删减程序行。SET TALK OFFCLEARDO WHILE .T.INPUT 请输入一个正整数: TO XFORFOR I=2I=2 TOTO X-1X-1-1-&此处填空此处填空 IF INT(X/I)=X/I EXIT ENDIFENDFOR IF X=IX=I-2- &此处填空此处填空 ? X,是素数! ELSE ?

3、X,不是素数! ENDIF WAIT 是否继续输入(Y/N) TO YN IFIF UPPER(YN)=YUPPER(YN)=Y 或者或者 IFIF LOWER(YN)LOWER(YN)-3-&此处填空此处填空 LOOP ELSE EXIT ENDIFENDDOSET TALK ON3、给定程序的功能是:输入边长，如果能构成三角形，则计算三角形面积。填空要求：程序中共有三个填空，请在“-n-”处填空（注意：不能删除“&此处填空” ，以便于检查） ，并调试运行。不得增加或删减程序行。SET TALK OFFDODO WHILEWHILE .T.T.-1-&此处填空此处填空

4、 CLEAR INPUT 输入第一边长: TO X INPUT 输入第二边长: TO Y INPUT 输入第三边长: TO Z IF X=0.OR.Y=0.OR.Z=0.OR. X+Y=Z .OR. Y+Z=X .OR. X+Z=Y ? 尺寸有误,重新输入! LOOPLOOP-2-&此处填空此处填空 ENDIF EXITENDDO U=(X+Y+Z)/2M=SORT(U*(U-X)*(U-Y)*(U-Z)M=SORT(U*(U-X)*(U-Y)*(U-Z)- 3-&此处填空此处填空? AREA=+ALLTRIM（STR(M，19，2)）SET TALK OFF4、给定程序的功能

5、是:在屏幕上显示输出一个乘法九九表。显示格式如下: 填空要求：程序中共有三个填空，请在“-n-”处填空（注意：不能删除“&此处填空” ，以便于检查） ，并调试运行。不得增加或删减程序行。SET TALK OFFCLEARX=1X=1 或者或者 STORESTORE 1 1 TOTO X X -1-&此处填空此处填空DO WHILE X=9 Y=1 DO WHILE Y=X ?STR(X,1)+*+STR(Y,1)+=+STR(X*Y,2)+?STR(X,1)+*+STR(Y,1)+=+STR(X*Y,2)+或者或者 ?STR(X,1)?STR(X,1)+*+STR(Y,1)+=

6、+STR(X*Y,2)+SPACE(1)+*+STR(Y,1)+=+STR(X*Y,2)+SPACE(1)-2-&此处填空此处填空 Y=Y+1 ENDDO ? ?-3-&此处填空此处填空 X=X+1ENDDOSET TALK ON5、给定程序的功能是: 根据输入的数据, 计算不大于该数的所有奇数累加和。填空要求：程序中共有三个填空，请在“-n-”处填空（注意：不能删除“&此处填空” ，以便于检查） ，并调试运行。不得增加或删减程序行。SET TALK OFFCLEARYN=YDO WHILE UPPER(YN)=YUPPER(YN)=Y 或者或者 LOWER(YN)=y

7、LOWER(YN)=y-1-&此处填空此处填空 INPUT 请输入两位以内的正整数： TO N STORE 0 TO X,Y DO WHILE XN X=X+1 IF INT(X/2)X/2INT(X/2)X/2-2-&此处填空此处填空 Y=Y+X ENDIF ENDDO ? 不大于该数的奇数累加和=+STR(Y,4) WAITWAIT 或者或者 INPUTINPUT 或者或者 ACCEPTACCEPT-3-&此处填空此处填空继续计算否？(Y/N) TO YN ENDDO? 再见！SET TALK ON6、给定程序的功能是: 根据输入的数据，判断该数是否为偶数,可以循环

8、输入。填空要求：程序中共有三个填空，请在“-n-”处填空（注意：不能删除“&此处填空” ，以便于检查） ，并调试运行。不得增加或删减程序行。SET TALK OFFCLEARYN=YDODO WHILEWHILE UPPER(YN)=YUPPER(YN)=Y 或者或者 DODO WHILEWHILE LOWER(YN)=yLOWER(YN)=y-1-&此处填空此处填空 INPUT 请输入一个自然数： TO N IF N/2!=INT(N/2)N/2!=INT(N/2) 或者或者 MOD(N,2)!=0MOD(N,2)!=0 或者或者 N%2!=0N%2!=0-2-&此处

9、填空此处填空 ? 不是偶数! ELSE ? 是偶数! ENDIF WAITWAIT-3- &此处填空此处填空继续否？(Y/N) TO YNENDDO? 再见！SET TALK ON7、给定程序的功能是: 显示指定表中的全部字段名,并由用户输入显示表信息的条件,最后列表显示满足条件的记录。填空要求：程序中共有三个填空，请在“-n-”处填空（注意：不能删除“&此处填空” ，以便于检查） ，并调试运行。不得增加或删减程序行。SET TALK OFFDO WHILE .T.CLEARACCEPT 请输入表名（扩展名略）： TO TBNIF FILE(&TBN.DBF) USE(

10、TBN)USE(TBN) 或者或者 USE&TBNUSE&TBN-1-&此处填空此处填空ELSE WAIT 指定的表不存在! LOOPENDIF?表中的全部字段名列表: FOR N=1 TO FCOUNT()FCOUNT()-2-&此处填空此处填空 ?FIELD(N)ENDFORACCEPT 请输入显示表信息的条件： TO EXPR LIST &EXPR&EXPR-3- &此处填空此处填空WAIT 是否继续(Y/N)?: TO YNIF UPPER(YN)!= Y EXITENDIFENDDOUSESET TALK ON8、给定程序的功能

11、是：接收从键盘输入的任意 10 个数，输入的数字可以是负数，但包括符号位最多三位。程序的功能是，找出其中最大的数和最小的数字，最后显示出来。填空要求：程序中共有三个填空，请在“-n-”处填空（注意：不能删除“&此处填空” ，以便于检查） ，并调试运行。不得增加或删减程序行。SET TALK OFFCLEARINPUT 请输入第一个数字： TO XZD=XZX=XZX=X-1-&此处填空此处填空N=10DODO WHILEWHILE N1N1-2-&此处填空此处填空 INPUT 请输入下一个数字： TO X IF ZDXZXX-3-&此处填空此处填空 ZX=X E

12、NDIF N=N-1ENDDO?最大数：+STR(ZD,3,0),最小数：+STR(ZX,3,0) SET TALK ON9、程序的功能是,显示输出学生表中每个班级的男女同学的奖学金总金额。填空要求：程序中共有三个填空，请在“-n-”处填空（注意：不能删除“&此处填空” ，以便于检查） ，并调试运行。不得增加或删减程序行。SET TALK OFFCLEARUSE 学生INDEX ON 学号 TO INN0 ?*各班男女奖学金总额统计*?班级 男同学奖学金总额 女同学奖学金总额DODO WHILEWHILE !EOF()!EOF()-1-&此处填空此处填空CLASS=LEFT(学

13、号,3) STORE 0 TO BOYS,GIRLSDODO WHILEWHILE LEFT(LEFT(学号学号,3)=CLASS,3)=CLASS 或者或者 SUBSTR(SUBSTR(学号学号,1,3)=CLASS,1,3)=CLASS-2-&此处填空此处填空 IF 性别 BOYS=BOYS+奖学金ELSE GIRLS=GIRLS+奖学金ENDIF SKIPSKIP-3-&此处填空此处填空ENDDO?CLASS+STR(BOYS,19,2)+ STR(GIRLS,19,2)ENDDOUSESET TALK ON10、给定程序的功能是：返回给定的字符串表达式的倒置字符串。如:

14、输入字符串ABCD,倒置后输出的字符串为DCBA 。填空要求：程序中共有三个填空，请在“-n-”处填空（注意：不能删除“&此处填空” ，以便于检查） ，并调试运行。不得增加或删减程序行。SET TALK OFFCLEARACCEPT 请输入一个字符串: TO XC=C= 或者或者 C=SPACE(0)C=SPACE(0)-1-&此处填空此处填空L=LEN(X)DODO WHILEWHILE 0L00-L0-2-&此处填空此处填空 Q=SUBSTR(X,L,1) C=C+QC=C+Q-3-&此处填空此处填空 L=L-1ENDDO? 倒置字符串是:+CRETURN

15、SET TALK ON11、本程序实现:利用公式ex=1+X+X2/2!+X3/3!+Xn/n!，输入 X 和 N，计算 ex的近似值。SET TALK OFFCLEARINPUT X= TO XINPUT N= TO NA=1B=1S=1S=1-1-&此处填空此处填空 FOR I=1 TO N-2-&此处填空此处填空 A=A*X B=B*I S=S+A/BS=S+A/B-3-&此处填空此处填空ENDFOR? S=,SSET TALK ON12、本程序实现:输入一个正整数 M，判断并显示 1M 中有哪些数可以分为两个相等的素数。 （如 M=10，有 3 个数符合，即 2

16、+2=4，3+3=6 和 5+5=10）SET TALK OFFCLEARINPUT M= TO MIF INT(M)!=M OR ABS(M)!=M ? 输入数据不符合题目要求！ELSEELSE-1-&此处填空此处填空 S=0 FOR I=2 TO M/2 FOR J=2J=2 TOTO I-1I-1-2-&此处填空此处填空 IF I%J=0 EXIT ENDIF ENDFOR IFIF JI-1JI-1 或者或者 IFIF J=IJ=I-3-&此处填空此处填空 S=S+1 ?ALLTRIM(STR(J*2,19)+=+ALLTRIM(STR(J,19)+ALLTRI

17、M(STR(J,19) ENDIFENDFOR?ALLTRIM(STR(M,19)+中共有：+STR(S,3)+个数满足条件 SET TALK ON13、本程序实现口令验证。输入次数在 3 次以内，给予重输的提示，超过 3 次，则进入死循环。SET TALK OFFCLEARI=1DO WHILE .T. ? 请输入口令= SET CONSOLE OFF ACCEPT TO KL SET CONSOLE ON IF KL=ABC ? 欢迎使用本系统！ EXITEXIT-1-&此处填空此处填空 ENDIF IFIF I3I3-2-&此处填空此处填空 ? 无权使用本系统！ DO W

18、HILE .T. ENDDO ENDIF ?口令第+STR(I,1)+次错，再试一次！ I=I+1-3-&此处填空此处填空ENDDOSET TALK ON14、本程序显示学生表中的获得奖学金的学生姓名和奖学金数额SET TALK OFFCLEARUSE 学生DODO WHILEWHILE !EOF()!EOF() 或者或者 DODO WHILEWHILE .NOT.EOF().NOT.EOF()-1-&此处填空此处填空 IF 奖学金奖学金00-2-&此处填空此处填空 ? 姓名,奖学金 SKIP ELSE SKIPSKIP-3-&此处填空此处填空 ENDIFEND

19、DOUSESET TALK ON15、本程序显示学生表中 1971 年或以前出生的学生姓名和出生年月(日期型)。SET TALK OFFCLEARUSE 学生LOCATELOCATE FORFOR YEAR(YEAR(出生年月出生年月)=1990)=1990 或者或者 FORFOR 出生年月出生年月=1990-01-01-0M0-2-&此处填空此处填空T=MOD(M,10) S=S+T M=INT(M/10)INT(M/10)-3-&此处填空此处填空ENDDO?SENDIFSET TALK ON17.本程序实现从键盘中输入 5 个数，去掉一个最大数和一个最小数，然后求平均值。S

20、ET TALK OFFCLEARINPUT N= TO NSTORESTORE N N TOTO A A，B B，S S-1-&此处填空此处填空FOR I=1 TO 4 INPUT N= TO N IF ANAANA-2-&此处填空此处填空 A=N ENDIF IF BN B=N ENDIF S=S+NS=S+N 或者或者 S=N+AS=N+A-3-&此处填空此处填空ENDFOR? 平均值=,(S-A-B)/3SET TALK ON18程序 1：求 1!+3!+5!+N!，N 由键盘输入。SET TALK OFF CLEARINPUTINPUT N=N= TOTO N

21、N-1-&此处填空此处填空STORE 0 TO S,TFOR I=1 TO N STEP 2DO SUBS=S+T-S=S+T-2-&此处填空此处填空ENDFOR?SSET TALK ONPROC SUB T=1FOR J=1 TO IT=T*JT=T*J-3-&此处填空此处填空ENDFOR19设变量 N 的输入值为 5，字符 A 的 ASCII 码为 65。程序的运行如下图所示：SET TALK OFFCLEARINPUT N= TO NFOR I=1 TO N? SPACE(N-I)SPACE(N-I)-1-&此处填空此处填空FOR J=1 TO 2*I-1

22、2*I-1-2-&此处填空此处填空? CHR(65+I-1)CHR(65+I-1)-3-&此处填空此处填空ENDFORENDFORSET TALK ON20. 将表“学生.DBF”中指定学生（由键盘输入）的奖学金加 60，并显示该学生的记录。SET TALK OFFCLEARUSE 学生ACCEPT “输入学号=” TO MLOCATELOCATE FORFOR 学号学号=M=M-1-&此处填空此处填空IF !EOF()REPLACEREPLACE 奖学金奖学金 WITHWITH 奖学金奖学金+60+60-2-&此处填空此处填空 DISPELSE?”没有找到！”

23、 ENDIFENDIF-3-&此处填空此处填空USESET TALK ON21下面程序统计指定学生的平均成绩及该成绩的档次。SET TALK OFFCLEARUSE 成绩 ACCEPT 请输入学生的学号： TO XHLOCATELOCATE FORFOR 学号学号=XH=XH-1-&此处填空此处填空IF !FOUND()?查无此人!ELSEAVERAGEAVERAGE 成绩成绩 TOTO PJCJPJCJ FORFOR 学号学号=XH=XH-2-&此处填空此处填空 DO CASECASE PJCJ=90DC=优CASE PJCJ=80DC=良CASE PJCJ=70DC

24、=中CASE PJCJ=60DC=及格OTHERWHISEOTHERWHISE 或者或者 CASECASE PJCJ60PJCJ60-3-&此处填空此处填空DC=不及格 ENDCASE ?学 号,平均成绩,档次 ?XH,STR(PJCJ,8,2),DCENDIFUSE SET TALK ON22程序输出的结果如下图所示：SET TALK OFFCLEAA=*H=5H=5-1-&此处填空此处填空FOR K=1 TO H? SPACE(H-K)SPACE(H-K)-2-&此处填空此处填空FOR T=1 TO 2*K-12*K-1-3-&此处填空此处填空?AENDFORENDFORSET TALK ON23编一将日期转换成中文星期的自定义函数。N=DOW(D)N=DOW(D)-1-&此处填空此处填空DO