数据库实验考核题库和解答.ppt

实验考核题库及解答 ;一、程序填空： ;2． √ *判断给定的正整数值是否为素数，并能反复判断。 SET TALK OFF CLEAR DO WHILE .T. INPUT 请输入一个正整数: TO X 1此处填空 IF INT(X/I)=X/I EXIT ENDIF ENDFOR IF 2 此处填空 ? X,是素数! ELSE ? X,不是素数! ENDIF WAIT 是否继续输入(Y/N) TO YN 3此处填空 LOOP ELSE EXIT ENDIF ENDDO SET TALK ON;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 EXIT ENDDO U=(X+Y+Z)/2 3此处填空 ? AREA=+ALLTRIM(STR(M,19,2)) SET TALK OFF;4．/在屏幕上显示输出一个乘法九九表。显示格式如图4-1所示。;5． √根据输入的数据, 计算不大于该数的所有奇数累加和。 SET TALK OFF CLEAR YN=Y DO WHILE 1此处填空 INPUT 请输入两位以内的正整数： 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 ON;6．根据输入的数据，判断该数是否为偶数,可以反复判断。 SET TALK OFF CLEAR YN=Y 1此处填空 INPUT 请输入一个自然数： TO N IF 2此处填空 ? 不是偶数! ELSE ? 是偶数! ENDIF 3 继续否？(Y/N) TO YN此处填空 ENDDO ? 再见！ SET TALK ON;SET TALK OFF DO WHILE .T. CLEAR ACCEPT 请输入表名（扩展名略）： TO TBN IF FILE(TBN..DBF) 1此处填空 ELSE WAIT 指定的表不存在! LOOP ENDIF ?表中的全部字段名列表: FOR N=1 TO 2此处填空 ?FIELD(N) ENDFOR ACCEPT 输入显示条件： TO EXPR LIST 3 此处填空 WAIT 是否继续(Y/N)?: TO YN IF UPPER(YN)!= Y EXIT ENDIF ENDDO USE SET TALK ON;8． √ *接收从键盘输入的任意5个数，输入的数可以是负数，但包括符号位最多三位。程序的功能是，找出其中最大的数和最小的数，最后显示出来。 SET TALK OFF CLEAR INPUT 请输入第一个数字： TO X ZD=X 1此处填空 N=5 2此处填空 INPUT 请输入下一个数字： TO X IF ZDX ZD=X ENDIF IF 3此处填空 ZX=X ENDIF N=N-1 ENDDO ?最大数：+STR(ZD,3,0),最小数：+STR(ZX,3,0) SET TALK ON;9． √ *显示输出学生表中每个班级的男女同学的奖学金总金额。 SET TALK OFF CLEAR USE 学生 INDEX ON 学号 TO INN0 ?**********各班男女奖学金总额统计************ ?班级 男同学奖学金总额 女同学奖学金总额 1此处填空 CLASS=LEFT(学号,3) STORE 0 TO BOYS,GIRLS DO WHILE 2此处填空