數(shù)據(jù)庫期末復(fù)習(xí)程序填空及答案

1、1、程序的功能是：在在學(xué)生表中查找并輸出指定學(xué)生的所有信息。 填空要求：程序中共有三個填空，請在“-n-”處填空（注意：不能刪除“&此處填空” ，以便于檢查） ，并調(diào)試運(yùn)行。不得增加或刪減程序行。SET TALK OFFCLEARUSE 學(xué)生INDEXINDEX ONON 學(xué)號學(xué)號 TOTO IXHIXH&此處填空此處填空ACCEPT 請輸入指定的學(xué)生學(xué)號: TO XH &此處填空此處填空SEEK XHIF EOF()EOF()&此處填空此處填空 ? 查無此人! ELSE DISPLAYDISPLAY&此處填空此處填空ENDIFUSE SET TALK

2、ON2、給定程序的功能是：判斷給定的正整數(shù)值表達(dá)式的值是否為素數(shù)。填空要求：程序中共有三個填空，請在“-n-”處填空（注意：不能刪除“&此處填空” ，以便于檢查） ，并調(diào)試運(yùn)行。不得增加或刪減程序行。SET TALK OFFCLEARDO WHILE .T.INPUT 請輸入一個正整數(shù): TO XFORFOR I=2I=2 TOTO X-1X-1&此處填空此處填空 IF INT(X/I)=X/I EXIT ENDIFENDFOR IF I=XI=X &此處填空此處填空 ? X,是素數(shù)! ELSE ? X,不是素數(shù)! ENDIF WAIT 是否繼續(xù)輸入(Y/N) TO Y

3、N IFIF UPPER(YN)=”Y”UPPER(YN)=”Y”&此處填空此處填空 LOOP ELSE EXIT ENDIFENDDOSET TALK ON3、給定程序的功能是:輸入邊長，如果能構(gòu)成三角形，則計算三角形面積。填空要求：程序中共有三個填空，請在“-n-”處填空（注意：不能刪除“&此處填空” ，以便于檢查） ，并調(diào)試運(yù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、便于檢查） ，并調(diào)試運(yùn)行。不得增加或刪減程序行。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、給定程序的功能是: 根據(jù)輸入的數(shù)據(jù), 計算不大于該數(shù)的所有奇數(shù)累加和。填空要求：程序中共有三個填空，請在“-n-”處填空（注意：不能刪除“&

6、amp;此處填空” ，以便于檢查） ，并調(diào)試運(yùn)行。不得增加或刪減程序行。SET TALK OFFCLEARYN=YDODO WHILEWHILE UPPER(YN)=”Y”UPPER(YN)=”Y”&此處填空此處填空 INPUT 請輸入兩位以內(nèi)的正整數(shù)： 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 ? 不大于該數(shù)的奇數(shù)累加和=+STR(Y,4) WAITWAIT繼續(xù)計算否？(Y/N) TO YN &此處填空此處填空ENDDO? 再

7、見！SET TALK ON6、給定程序的功能是: 根據(jù)輸入的數(shù)據(jù)，判斷該數(shù)是否為偶數(shù),可以循環(huán)輸入。填空要求：程序中共有三個填空，請在“-n-”處填空（注意：不能刪除“&此處填空” ，以便于檢查） ，并調(diào)試運(yùn)行。不得增加或刪減程序行。SET TALK OFFCLEARYN=YDODO WHILEWHILE UPPERUPPER（YNYN）=“Y”=“Y”&此處填空此處填空 INPUT 請輸入一個自然數(shù)： TO N IFIF Y/2INT(Y/2)Y/2INT(Y/2)&此處填空此處填空 ? 不是偶數(shù)! ELSE ? 是偶數(shù)! ENDIF WAITWAIT 繼續(xù)否？(Y/

8、N) TO YN&此處填空此處填空ENDDO? 再見！SET TALK ON7、給定程序的功能是: 顯示指定表中的全部字段名,并由用戶輸入顯示表信息的條件,最后列表顯示滿足條件的記錄。填空要求：程序中共有三個填空，請在“-n-”處填空（注意：不能刪除“&此處填空” ，以便于檢查） ，并調(diào)試運(yùn)行。不得增加或刪減程序行。SET TALK OFFDO WHILE .T.CLEARACCEPT 請輸入表名（擴(kuò)展名略）： 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 是否繼續(xù)(Y/N)?: TO YNIF UPPER(YN)!= Y EXITENDIFENDDOUSESET TALK ON8、給定程序的功能是：接收從鍵盤輸入的任意 10 個數(shù)，輸入的數(shù)字可以是負(fù)數(shù)，但包括符號位最多三位。程序的功能是，找出其中最大的數(shù)和最小的數(shù)字，最后顯示出來。填空要求：程序中共有三

10、個填空，請在“-n-”處填空（注意：不能刪除“&此處填空” ，以便于檢查） ，并調(diào)試運(yùn)行。不得增加或刪減程序行。SET TALK OFFCLEARINPUT 請輸入第一個數(shù)字： TO XZD=XZX=XZX=X&此處填空此處填空N=10DODO WHILEWHILE N1N1&此處填空此處填空 INPUT 請輸入下一個數(shù)字： TO X IF ZDXZXX&此處填空此處填空 ZX=X ENDIF N=N-1ENDDO?最大數(shù)：+STR(ZD,3,0),最小數(shù)：+STR(ZX,3,0) SET TALK ON9、程序的功能是,顯示輸出學(xué)生表中每個班級的男女同學(xué)的獎學(xué)

11、金總金額。填空要求：程序中共有三個填空，請在“-n-”處填空（注意：不能刪除“&此處填空” ，以便于檢查） ，并調(diào)試運(yùn)行。不得增加或刪減程序行。SET TALK OFFCLEARUSE 學(xué)生INDEX ON 學(xué)號 TO INN0 ?*各班男女獎學(xué)金總額統(tǒng)計*?班級 男同學(xué)獎學(xué)金總額 女同學(xué)獎學(xué)金總額DODO WHILEWHILE !EOF()!EOF()&此處填空此處填空CLASS=LEFT(學(xué)號,3) STORE 0 TO BOYS,GIRLSDO WHILE LEFT(LEFT(學(xué)號學(xué)號,3)=CLASS,3)=CLASS&此處填空此處填空 IF 性別 BOYS=B

12、OYS+獎學(xué)金ELSE GIRLS=GIRLS+獎學(xué)金ENDIF SKIPSKIP&此處填空此處填空ENDDO?CLASS+STR(BOYS,19,2)+ STR(GIRLS,19,2)ENDDOUSESET TALK ON10、給定程序的功能是：返回給定的字符串表達(dá)式的倒置字符串。如:輸入字符串ABCD,倒置后輸出的字符串為DCBA 。填空要求：程序中共有三個填空，請在“-n-”處填空（注意：不能刪除“&此處填空” ，以便于檢查） ，并調(diào)試運(yù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、本程序?qū)崿F(xiàn):利用公式 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、本程序?qū)崿F(xiàn):輸入一個正整數(shù) M，判斷并顯示 1M 中有哪些數(shù)可以分為兩個相等的素數(shù)。 （如 M=10，有 3 個數(shù)符合，即2+2=4，3+3=6 和 5+5=10）SET TALK OFFCLEARINPUT M= TO MIF INT(M)!=M OR ABS(M)!=M ? 輸入數(shù)據(jù)不符合題目要求！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)+個數(shù)滿足條件 SET TALK ON14、本程序顯示學(xué)生表中的獲得獎學(xué)金的學(xué)生姓名和獎學(xué)金數(shù)額SET TALK OFFCLEARUSE 學(xué)生DODO WHILEWHILE !EOF()!EOF()&此處填空此處填空 IF 獎學(xué)金獎學(xué)金00&此處填空此處填空 ? 姓

16、名,獎學(xué)金 SKIP ELSE SKIPSKIP&此處填空此處填空 ENDIFENDDOUSESET TALK ON15、本程序顯示學(xué)生表中 1971 年或以前出生的學(xué)生姓名和出生年月(日期型)。SET TALK OFFCLEARUSE 學(xué)生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.本程序?qū)崿F(xiàn)從鍵盤中輸入 5 個數(shù)，去掉一個最大數(shù)和一個最小數(shù)，然后求平

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設(shè)變量 N 的輸入值為 5，字符 A 的 ASCII 碼為 65。程序的運(yùn)行如下圖所示：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. 將表“學(xué)生.DBF”中指定學(xué)生（由鍵盤輸入）的獎學(xué)金加 60，并顯示該學(xué)生的記錄。SET TALK OFFCLEARUSE 學(xué)生ACCEPT “輸入學(xué)號=” TO MLOCATELOCATE FORFOR ALLT(ALLT(學(xué)號學(xué)號)=ALLT(M)=ALLT(M)&此處填空此處填空IF !EOF()REPLACEREPLACE 獎學(xué)金獎學(xué)金 WITHWITH 獎學(xué)金獎學(xué)金+60+60&此處填空此處填空 DISPELSE?”沒有找到！” ENDIFENDIF&此處填空此處填空USESET TALK ON21下面程序統(tǒng)計指定學(xué)

20、生的平均成績及該成績的檔次。SET TALK OFFCLEARUSE 成績 ACCEPT 請輸入學(xué)生的學(xué)號： TO XHLOCATELOCATE FORFOR 學(xué)號學(xué)號=XH=XH&此處填空此處填空IF !FOUND()?查無此人!ELSEAVERAGEAVERAGE 成績成績 TOTO PJCJPJCJ FORFOR 學(xué)號學(xué)號=XH=XH&此處填空此處填空 DO CASECASE PJCJ=90DC=優(yōu)CASE PJCJ=80DC=良CASE PJCJ=70DC=中CASE PJCJ=60DC=及格OTHERWISEOTHERWISE&此處填空此處填空DC=不及格 ENDCASE ?學(xué) 號,平均成績,檔次 ?XH,STR(PJCJ,8,2),DCENDIFUSE SET TALK ON22程序輸出的結(jié)果如下圖所示：SET TALK OFFCL