数据库填空.docx

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

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

3、运行。不得增加或删减程序行。SET TALK OFF-1-&此处填空 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 ? 尺寸有误,重新输入! -2-&此处填空 ENDIF EXITENDDO U=(X+Y+Z)/2- 3-&此处填空? AREA=+ALLTRIM（STR(M，19，2)）SET TALK OFF4、给定程序的功能是:在屏幕上显示输出一个乘法九九表。显示格式如下: 填空要求：程序中共有三个填空，请

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

5、T 请输入两位以内的正整数： TO N STORE 0 TO X,Y DO WHILE XN X=X+1 IF -2-&此处填空 Y=Y+X ENDIF ENDDO ? 不大于该数的奇数累加和=+STR(Y,4) -3-继续计算否？(Y/N) TO YN &此处填空ENDDO? 再见！SET TALK ON6、给定程序的功能是: 根据输入的数据，判断该数是否为偶数,可以循环输入。填空要求：程序中共有三个填空，请在“-n-”处填空（注意：不能删除“&此处填空”，以便于检查），并调试运行。不得增加或删减程序行。SET TALK OFFCLEARYN=Y-1-&此处填空 INPUT 请输入一个自然数

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

7、指定的表不存在! LOOPENDIF?表中的全部字段名列表: FOR N=1 TO -2-&此处填空 ?FIELD(N)ENDFORACCEPT 请输入显示表信息的条件： TO EXPR LIST -3- &此处填空WAIT 是否继续(Y/N)?: TO YNIF UPPER(YN)!= Y EXITENDIFENDDOUSESET TALK ON8、给定程序的功能是：接收从键盘输入的任意10个数，输入的数字可以是负数，但包括符号位最多三位。程序的功能是，找出其中最大的数和最小的数字，最后显示出来。填空要求：程序中共有三个填空，请在“-n-”处填空（注意：不能删除“&此处填空”，以便于检查），

8、并调试运行。不得增加或删减程序行。SET TALK OFFCLEARINPUT 请输入第一个数字： TO XZD=X-1-&此处填空N=10-2-&此处填空 INPUT 请输入下一个数字： TO X IF ZDN B=N ENDIF -3-&此处填空ENDFOR? 平均值=,(S-A-B)/3SET TALK ON18程序1：求1!+3!+5!+N!，N由键盘输入。SET TALK OFF CLEAR-1-&此处填空STORE 0 TO S,TFOR I=1 TO N STEP 2 DO SUB -2-&此处填空ENDFOR?SSET TALK ONPROC SUB T=1FOR J=1 TO

9、 I -3-&此处填空ENDFOR19设变量N的输入值为5，字符A的ASCII码为65。程序的运行如下图所示：SET TALK OFFCLEARINPUT N= TO NFOR I=1 TO N ？-1-&此处填空 FOR J=1 TO -2-&此处填空 ? -3-&此处填空 ENDFORENDFORSET TALK ON20. 将表“学生.DBF”中指定学生（由键盘输入）的奖学金加60，并显示该学生的记录。SET TALK OFFCLEARUSE 学生ACCEPT “输入学号=” TO M-1-&此处填空IF !EOF()-2-&此处填空 DISPELSE?”没有找到！” -3-&此处填空U

10、SESET TALK ON21下面程序统计指定学生的平均成绩及该成绩的档次。SET TALK OFFCLEARUSE 成绩 ACCEPT 请输入学生的学号： TO XH-1-&此处填空IF !FOUND() ?查无此人!ELSE -2-&此处填空 DO CASE CASE PJCJ=90 DC=优 CASE PJCJ=80 DC=良 CASE PJCJ=70 DC=中 CASE PJCJ=60 DC=及格 -3-&此处填空 DC=不及格 ENDCASE ?学 号,平均成绩,档次 ?XH,STR(PJCJ,8,2),DCENDIFUSE SET TALK ON22程序输出的结果如下图所示：SET

11、 TALK OFFCLEAA=*-1-&此处填空FOR K=1 TO H ? -2-&此处填空 FOR T=1 TO -3-&此处填空 ?A ENDFORENDFORSET TALK ON23编一将日期转换成中文星期的自定义函数。-1-&此处填空n=-2-&此处填空do case case n=1 c=星期日 case n=2 c=星期一 case n=3 c=星期二 case n=4 c=星期三 case n=5 c=星期四 case n=6 c=星期五 case n=7 c=星期六 other c=输入有错!endcase-3-&此处填空24本程序实现“百钱买百鸡”的计算（取自算经：“鸡翁

12、一，值钱五；鸡母一，值钱三；鸡雏三，值钱一。百钱买百鸡，问鸡翁、母、雏各几何？）SET TALK OFFCLEARFOR X=0 TO 20 FOR -1-&此处填空 Z=100-X-Y IF -2-&此处填空 ?X=+STR(X,2),Y=+STR(Y,2),Z=+STR(Z,2) ENDIF ENDFOR-3-&此处填空SET TALK ON25输入一个自然数，判断该数是否为完数。（完数的定义：若该数除本身之外的所有因子之和等于该数，则为完数。如：1+2+3=6，6为完数；1+2+4#8，8不是完数。）SET TALK OFFCLEARINPUT M= TO MN=1-1-&此处填空FOR N=1 TO M-1 IF -2-&此处填空 S=S+N ENDIFENDFORIF -3-&此处填空 ?M,是完数！ELSE ?M,不是完数！ENDIFSET TALK ON