数据库期末复习程序填空及答案

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

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

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

4、 X=0.OR.Y=0.OR.Z=0.OR. X+Y=Z .OR. Y+Z=X .OR. X+Z=Y ? 尺寸有误,重新输入! LOOPLOOP&此处填空此处填空 ENDIF EXITENDDO U=(X+Y+Z)/2M=SQRT(U*(U-X)*(U-Y)*(U-Z)M=SQRT(U*(U-X)*(U-Y)*(U-Z)&此处填空此处填空? AREA=+ALLTRIM（STR(M，19，2)）SET TALK OFF4、给定程序的功能是:在屏幕上显示输出一个乘法九九表。显示格式如下: 填空要求：程序中共有三个填空，请在“-n-”处填空（注意：不能删除“&此处填空” ，以

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

6、amp;此处填空” ，以便于检查） ，并调试运行。不得增加或删减程序行。SET TALK OFFCLEARYN=YDODO WHILEWHILE UPPER(YN)=”Y”UPPER(YN)=”Y”&此处填空此处填空 INPUT 请输入两位以内的正整数： TO N STORE 0 TO X,Y DO WHILE XN X=X+1 IFIF X/2INT(X/2)X/2INT(X/2)&此处填空此处填空 Y=Y+X ENDIF ENDDO ? 不大于该数的奇数累加和=+STR(Y,4) WAITWAIT继续计算否？(Y/N) TO YN &此处填空此处填空ENDDO? 再

7、见！SET TALK ON6、给定程序的功能是: 根据输入的数据，判断该数是否为偶数,可以循环输入。填空要求：程序中共有三个填空，请在“-n-”处填空（注意：不能删除“&此处填空” ，以便于检查） ，并调试运行。不得增加或删减程序行。SET TALK OFFCLEARYN=YDODO WHILEWHILE UPPERUPPER（YNYN）=“Y”=“Y”&此处填空此处填空 INPUT 请输入一个自然数： TO N IFIF Y/2INT(Y/2)Y/2INT(Y/2)&此处填空此处填空 ? 不是偶数! ELSE ? 是偶数! ENDIF WAITWAIT 继续否？(Y/

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

9、IF?表中的全部字段名列表: FOR N=1 TO FCOUNT()FCOUNT()&此处填空此处填空 ?FIELD(N)ENDFORACCEPT 请输入显示表信息的条件： TO EXPR LIST FORFOR &EXPR&EXPR &此处填空此处填空WAIT 是否继续(Y/N)?: TO YNIF UPPER(YN)!= Y EXITENDIFENDDOUSESET TALK ON8、给定程序的功能是：接收从键盘输入的任意 10 个数，输入的数字可以是负数，但包括符号位最多三位。程序的功能是，找出其中最大的数和最小的数字，最后显示出来。填空要求：程序中共有三

10、个填空，请在“-n-”处填空（注意：不能删除“&此处填空” ，以便于检查） ，并调试运行。不得增加或删减程序行。SET TALK OFFCLEARINPUT 请输入第一个数字： TO XZD=XZX=XZX=X&此处填空此处填空N=10DODO WHILEWHILE N1N1&此处填空此处填空 INPUT 请输入下一个数字： TO X IF ZDXZXX&此处填空此处填空 ZX=X ENDIF N=N-1ENDDO?最大数：+STR(ZD,3,0),最小数：+STR(ZX,3,0) SET TALK ON9、程序的功能是,显示输出学生表中每个班级的男女同学的奖学

11、金总金额。填空要求：程序中共有三个填空，请在“-n-”处填空（注意：不能删除“&此处填空” ，以便于检查） ，并调试运行。不得增加或删减程序行。SET TALK OFFCLEARUSE 学生INDEX ON 学号 TO INN0 ?*各班男女奖学金总额统计*?班级 男同学奖学金总额 女同学奖学金总额DODO WHILEWHILE !EOF()!EOF()&此处填空此处填空CLASS=LEFT(学号,3) STORE 0 TO BOYS,GIRLSDO WHILE LEFT(LEFT(学号学号,3)=CLASS,3)=CLASS&此处填空此处填空 IF 性别 BOYS=B

12、OYS+奖学金ELSE GIRLS=GIRLS+奖学金ENDIF SKIPSKIP&此处填空此处填空ENDDO?CLASS+STR(BOYS,19,2)+ STR(GIRLS,19,2)ENDDOUSESET TALK ON10、给定程序的功能是：返回给定的字符串表达式的倒置字符串。如:输入字符串ABCD,倒置后输出的字符串为DCBA 。填空要求：程序中共有三个填空，请在“-n-”处填空（注意：不能删除“&此处填空” ，以便于检查） ，并调试运行。不得增加或删减程序行。SET TALK OFFCLEARACCEPT 请输入一个字符串: TO XC=SPACE(0)C=SPACE

13、(0)&此处填空此处填空L=LEN(X)DODO WHILEWHILE L0L0&此处填空此处填空 Q=SUBSTR(X,L,1) C=C+QC+Q&此处填空此处填空 L=L-1ENDDO? 倒置字符串是:+CRETURN 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&此处填空此处填空 FORFOR I=1I=1 TOTO N N &此处填空此处填空 A=

14、A*X B=B*I S=S+A/BS=S+A/B&此处填空此处填空ENDFOR? S=,SSET TALK ON1212、本程序实现:输入一个正整数 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 ? 输入数据不符合题目要求！ELSEELSE&此处填空此处填空 S=0 FOR I=2 TO M/2 FORFOR J=2J=2 TOTO I-1I-1&此处填空此处填空 IF

15、I%J=0 EXIT ENDIF ENDFOR IFIF JI-1JI-1&此处填空此处填空 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 ON14、本程序显示学生表中的获得奖学金的学生姓名和奖学金数额SET TALK OFFCLEARUSE 学生DODO WHILEWHILE !EOF()!EOF()&此处填空此处填空 IF 奖学金奖学金00&此处填空此处填空 ? 姓

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

17、均值。SET TALK OFFCLEARINPUT N= TO NSTORESTORE N N TOTO A,B,SA,B,S&此处填空此处填空FOR I=1 TO 4 INPUT N= TO N IFIF ANAN B=N ENDIF S=S+NS=S+N&此处填空此处填空ENDFOR? 平均值=,(S-A-B)/3SET TALK ON1818程序 1：求 1!+3!+5!+N!，N 由键盘输入。SET TALK OFF CLEARINPUT”N=”INPUT”N=” TOTO N N&此处填空此处填空STORE 0 TO S,TFOR I=1 TO N STEP

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

19、RENDFORSET TALK ON20. 将表“学生.DBF”中指定学生（由键盘输入）的奖学金加 60，并显示该学生的记录。SET TALK OFFCLEARUSE 学生ACCEPT “输入学号=” TO MLOCATELOCATE FORFOR ALLT(ALLT(学号学号)=ALLT(M)=ALLT(M)&此处填空此处填空IF !EOF()REPLACEREPLACE 奖学金奖学金 WITHWITH 奖学金奖学金+60+60&此处填空此处填空 DISPELSE?”没有找到！” ENDIFENDIF&此处填空此处填空USESET TALK ON21下面程序统计指定学

20、生的平均成绩及该成绩的档次。SET TALK OFFCLEARUSE 成绩 ACCEPT 请输入学生的学号： TO XHLOCATELOCATE FORFOR 学号学号=XH=XH&此处填空此处填空IF !FOUND()?查无此人!ELSEAVERAGEAVERAGE 成绩成绩 TOTO PJCJPJCJ FORFOR 学号学号=XH=XH&此处填空此处填空 DO CASECASE PJCJ=90DC=优CASE PJCJ=80DC=良CASE PJCJ=70DC=中CASE PJCJ=60DC=及格OTHERWISEOTHERWISE&此处填空此处填空DC=不及格 ENDCASE ?学 号,平均成绩,档次 ?XH,STR(PJCJ,8,2),DCENDIFUSE SET TALK ON22程序输出的结果如下图所示：SET TALK OFFCL