东方填空有答案教材

1、1、程序的功能是：在在学生表中查找并输出指定学生的所有信息。 填空要求：程序中共有三个填空，请在“ -n- ”处填空(注意：不能删 除“ &此处填空”，以便于检查)，并调试运行。不得增加或删减程序行。SET TALK OFFCLEARUSE 学生INDEX ON 学号 TO XH 或者 SET ORDER TO学 号 -1 &此处填空ACCEPT 请输入指定的学生学号 : TO XHSEEK XHIF !FOUND-2 &此处填空? 查无此人 !ELSEDISPLAY 3 &此处填空ENDIFUSESET TALK ON2、给定程序的功能是：判断给定的正整数值表达式的值是否为素数。 填空要求：

2、程序中共有三个填空，请在“ -n- ”处填空(注意：不能删 除“ &此处填空”，以便于检查)，并调试运行。不得增加或删减程序行。SET TALK OFFCLEARDO WHILE .T.INPUT 请输入一个正整数 : TO XFOR I=2 TO X-1 1 &此处填空IF INT(X/I)=X/IEXITENDIFENDFORIF X=I 2 &此处填空? X, 是素数 !ELSE? X, 不是素数 !ENDIFWAIT 是否继续输入 (Y/N) TO YNIF UPPER(YN)=Y 或者 IF LOWER(YN-)-3 &此处填空LOOPELSEEXITENDIFENDDOSET TA

3、LK ON3、给定程序的功能是 : 输入边长，如果能构成三角形，则计算三角形面积。 填空要求： 程序中共有三个填空， 请在“-n- ”处填空(注意：不能删除“& 此处填空”，以便于检查)，并调试运行。不得增加或删减程序行。SET TALK OFFDO WHILE .T.-1 &此处填空CLEARINPUT 输入第一边长 : TO XINPUT 输入第二边长 : TO YINPUT 输入第三边长 : TO ZIF X=0.OR.Y=0.OR.Z=0.OR. X+Y=Z .OR. Y+Z=X .OR. X+Z=Y? 尺寸有误 , 重新输入 !LOOP-2 &此处填空ENDIFEXITENDDOU=

4、(X+Y+Z)/2M=SORT(U*(U-X)*(U-Y)*(U-Z) - 3 &此处填空? AREA=+ALLTRIM(STR(M，19，2) )SET TALK OFF4、给定程序的功能是 : 在屏幕上显示输出一个乘法九九表。显示格式如下填空要求： 程序中共有三个填空， 请在“-n- ”处填空(注意：不能删除“& 此处填空”，以便于检查)，并调试运行。不得增加或删减程序行。SET TALK OFFCLEARX=1 或者 STORE 1 TO X 1- &此处填空DO WHILE X=9Y=1DO WHILE Y=X?STR(X,1)+*+STR(Y,1)+=+STR(X*Y,2)+ 或 者

5、 ?STR(X,1)+*+STR(Y,1)+=+STR(X*Y,2)+SPACE(1) 2 & 此 处 填空Y=Y+1ENDDO? 3 &此处填空X=X+1ENDDOSET TALK ON 5、给定程序的功能是 : 根据输入的数据 , 计算不大于该数的所有奇数累加和。 填空要求： 程序中共有三个填空， 请在“-n- ”处填空(注意：不能删除“& 此处填空”，以便于检查)，并调试运行。不得增加或删减程序行。SET TALK OFF CLEAR YN=YDO WHILEU PPER(YN)=Y 或者 LOWER(YN)=y-1 &此处填空INPUT 请输入两位以内的正整数： TO NSTORE 0

6、 TO X,YDO WHILE XNX=X+1IF INT(X/2)X/2 -2 &此处填空Y=Y+XENDIFENDDO? 不大于该数的奇数累加和 =+STR(Y,4)WAIT 或者 INPUT 或者 ACCEPT-3- &此处填空 继续计算否？ (Y/N) TO YNENDDO ? 再见！ SET TALK ON6、给定程序的功能是 : 根据输入的数据，判断该数是否为偶数 , 可以循环输入。 填空要求： 程序中共有三个填空， 请在“-n- ”处填空(注意：不能删除“& 此处填空”，以便于检查)，并调试运行。不得增加或删减程序行。SET TALK OFF CLEAR YN=YDO WHILE

7、 UPPER(YN)=Y或 者 DO WHILE LOWER(YN)=y-1 &此处填空 INPUT 请输入一个自然数： TO NIF N/2!=INT(N/2) 或者 MOD(N,2)!=0 或者 N%2!=0-2 &此处填空? 不是偶数 !ELSE? 是偶数 !ENDIFWAIT 3 &此处填空 继续否？ (Y/N) TO YN ENDDO ? 再见！SET TALK ON 7、给定程序的功能是 : 显示指定表中的全部字段名 , 并由用户输入显示表信息的 条件, 最后列表显示满足条件的记录。填空要求： 程序中共有三个填空， 请在“-n- ”处填空(注意：不能删除“& 此处填空”，以便于检查

8、)，并调试运行。不得增加或删减程序行。SET TALK OFFDO WHILE .T.CLEARACCEPT 请输入表名(扩展名略) ： TO TBNIF FILE(&TBN.DBF)USE(TBN) 或者 USE&TBN 1 &此处填空ELSEWAIT 指定的表不存在 !LOOPENDIF? 表中的全部字段名列表 :FOR N=1 TO FCOUNT(-)-2 &此处填空?FIELD(N)ENDFORACCEPT 请输入显示表信息的条件： TO EXPRLIST &EXP-R-3 &此处填空WAIT 是否继续 (Y/N)?: TO YNIF UPPER(YN)!= YEXITENDIFEND

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

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

11、GIRLSDO WHILE LEFT（ 学 号 ,3）=CLASS 或 者 号 ,1,3）=CLASS 2 &此处填空IF 性别 BOYS=BOYS+奖学金ELSE GIRLS=GIRLS+ 奖学金ENDIFSKIP 3 &此处填空 ENDDO?CLASS+STR（BOYS,19,2）+ STR（GIRLS,19,2）ENDDOUSESET TALK ON10、给定程序的功能是：返回给定的字符串表达式的倒置字符串。如: 输入字符串 ABCD,倒置后输出的字符串为 DCBA 。填空要求： 程序中共有三个填空， 请在“-n- ”处填空（注意：不能删除“& 此处填空”，以便于检查），并调试运行。不得

12、增加或删减程序行。SET TALK OFFCLEARACCEPT 请输入一个字符串 : TO XC= 或者 C=SPACE(0)-1 &此处填空L=LEN(X)DO WHILE 00-2 &此处填空Q=SUBSTR(X,L,1)C=C+Q 3 &此处填空L=L-1ENDDO? 倒置字符串是 :+CRETURNSET 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=1-1 &此处填空FOR I=1 TO N-2- &此处

13、填空A=A*XB=B*IS=S+A/B-3- &此处填空ENDFOR? S=,SSET TALK ON12、本程序实现 : 输入一个正整数 M，判断并显示 1M中有哪些数可以分为两个 相等的素数。(如M=10，有 3个数符合，即 2+2=4，3+3=6和 5+5=10) SET TALK OFFCLEARINPUT M= TO MIF INT(M)!=M OR ABS(M)!=M? 输入数据不符合题目要求！ ELSE 1 &此处填空S=0FOR I=2 TO M/2FOR J=2 TO I-1 2 &此处填空IF I%J=0EXITENDIFENDFORIF JI-1 或者 IF J=I 3

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

15、FIF I3 2 &此处填空? 无权使用本系统！ DO WHILE .T.ENDDOENDIF? 口令第 +STR(I,1)+ 次错，再试一次！ I=I+1 3 &此处填空ENDDOSET TALK ON14、本程序显示学生表中的获得奖学金的学生姓名和奖学金数额SET TALK OFFCLEARUSE 学生DO WHILE !EOF() 或者 DO WHILE .NOT.EOF()1 &此处填空IF 奖学金 0 2 &此处填空? 姓名, 奖学金SKIPELSESKIP 3 &此处填空ENDIFENDDOUSESET TALK ON15、本程序显示学生表中 1971 年或以前出生的学生姓名和出生

16、年月 ( 日期型)。 SET TALK OFFCLEARUSE 学生LOCATE FOR YEAR( 出 生 年 月 )=1990 或 者 FOR 出 生 年 月 -0-2 &此处填空T=MOD(M,10)S=S+TM= INT(M/10) -3 &此处填空ENDDO?SENDIFSET TALK ON17. 本程序实现从键盘中输入 5 个数，去掉一个最大数和一个最小数，然后求平 均值。SET TALK OFFCLEARINPUT N= TO NSTORE N TO A， B，S-1 &此处填空FOR I=1 TO 4INPUT N= TO NIF AA-2 &此处填空A=NENDIFIF B

17、NB=NENDIFS=S+N 或者 S=N+A-3 &此处填空ENDFOR? 平均值 =,(S-A-B)/3SET TALK ON18程序 1：求 1!+3!+5!+ +N!，N由键盘输入。SET TALK OFFCLEARINPUT N= TO N -1 &此处填空STORE 0 TO S,TFOR I=1 TO N STEP 2DO SUBS=S+T-2 &此处填空ENDFOR?SSET TALK ONPROC SUBT=1FOR J=1 TO IT=T*J-3 &此处填空ENDFOR19设变量 N的输入值为 5，字符 A的ASCII码为 65。程序的运行如下图所示：SET TALK OF

18、FCLEARINPUT N= TO NFOR I=1 TO N? SPACE(N-I)-1 &此处填空FOR J=1 TO 2*I-1 -2 &此处填空? CHR(65+I-1) -3 &此处填空ENDFORENDFORSET TALK ON 20. 将表“学生 .DBF”中指定学生(由键盘输入)的奖学金加 60，并显示该学 生的记录。SET TALK OFFCLEARUSE 学生ACCEPT“ 输入学号 =” TO MLOCATE FOR学 号 =M-1 &此处填空IF !EOF()REPLACE奖 学金 WITH 奖学金 +60-2 &此处填空DISPELSE ?”没有找到！”ENDIF-

19、3 &此处填空USESET TALK ON21下面程序统计指定学生的平均成绩及该成绩的档次。SET TALK OFF CLEARUSE 成绩ACCEPT 请输入学生的学号： TO XHLOCATE FOR学 号 =XH-1 &此处填空IF !FOUND() ?查无此人 !ELSEAVERAGE成 绩 TO PJCJ FOR 学号 =XH-2 &此处填空 DO CASECASE PJCJ=90DC=优CASE PJCJ=80DC=良CASE PJCJ=70DC=中CASE PJCJ=60DC=及格OTHERWHIS或E 者 CASE PJCJ60-3 &此处填空 DC=不及格ENDCASE? 学 号, 平均成绩 , 档次 ?XH,STR(PJCJ,8,2),DCENDIFUSESET TALK ON 22程序输出的结果如下图所示：SET TALK OFF CLEA A=*H=5-1 &此处填空 FOR K=1 TO H? SPACE(H-K)-2 &此处填空 FOR T=1 TO 2*K-1 -3 &此处填空 ?AENDFOR ENDFOR SET TALK ON 23编一将日期转换成中文星期的自定义函数。N=DOW(D-)-1 &此处填空DO C