東方填空(有答案)概要

1、1、程序的功能是：在在學(xué)生表中查找并輸出指定學(xué)生的所有信息。填空要求：程序中共有三個(gè)填空，請?jiān)凇?n- "處填空(注意：不能刪除“&處匕處填空”，以便于檢查)，并調(diào)試運(yùn)行。不得增加或刪減程序行。SET TALK OFFCLEARUSE學(xué)生INDEX ON 學(xué)號(hào) TO XH 或者 SET ORDER TO 號(hào)-1- &&t 匕處填空ACCEPT "青輸入指定的學(xué)生學(xué)號(hào)："TO XHSEEK XHIF !FOUND-2-&&t匕處填空?” 查無此人!"ELSEDISPLAY-3-&&h匕處填空ENDIF

2、USESET TALK ON2、給定程序的功能是：判斷給定的正整數(shù)值表達(dá)式的值是否為素?cái)?shù)。填空要求：程序中共有三個(gè)填空，請?jiān)凇?n- "處填空(注意：不能刪除“&處匕處填空”，以便于檢查)，并調(diào)試運(yùn)行。不得增加或刪減程序行。SET TALK OFFCLEARDO WHILE .T.INPUT "請輸入一個(gè)正整數(shù)："TO XFOR I=2 TO X-1 -1-&眥處填空IF INT(X/I)=X/IEXITENDIFENDFORIF X=I-2-&趾匕處填空? X,"是素?cái)?shù)!"ELSE? X,"不是素?cái)?shù)!&quo

3、t;ENDIFWAIT "是否繼續(xù)輸入(Y/N)" TO YNIF UPPER(YN)="Y"或者 IF LOWER(YN)-3-&眥處填空LOOPELSEEXITENDIFENDDOSET TALK ON3、給定程序的功能是：輸入邊長，如果能構(gòu)成三角形，則計(jì)算三角形面積。填空要求：程序中共有三個(gè)填空，請?jiān)凇?n- "處填空(注意：不能刪除“&& 此處填空”，以便于檢查)，并調(diào)試運(yùn)行。不得增加或刪減程序行。SET TALK OFFDO WHILE .T.-1 - &&t 匕處填空CLEARINPUT &q

4、uot;輸入第一邊長："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?” 尺寸有誤，重新輸入!”LOOR-2- &處匕處填空ENDIFEXITENDDOU=(X+Y+Z)/2M=SORT(U*(U-X)*(U-Y)*(U-Z) - 3-&上匕處填空? "AREA="+ALLTRIM(STR(M 19, 2)SET TALK OFF4、給定程序的

5、功能是：在屏幕上顯示輸出一個(gè)乘法九九表。顯示格式如下 1*1=12*1 = 22*2=43*1 = 33*2=63*3=94*1 = 44*2=84*3=124*4=165*1 = 55*2=105*3=155*4=205*5=256*1 = 66*2=126*3=186-4=246*5=306*6=367*1 = 77*2=147*3=217*4=287*5=357*6=427*7=498*1 = 882168*3=248*4=328*5=408*6=483*7=568'8=649M = 99*2=189-3=279*4=369*5=459*6=549'7=639-8=72

6、牙9=81填空要求：程序中共有三個(gè)填空，請?jiān)凇?n- "處填空(注意：不能刪除“&& 此處填空”，以便于檢查)，并調(diào)試運(yù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)+”"或者 ？STR(X,1)+"*"+STR(Y,1)+”="+STR(X*Y,2)+SPACE(1) -2 &a

7、mp;&止匕處 填空Y=Y+1ENDDO?3-&&：匕處填空X=X+1ENDDOSET TALK ON5、給定程序的功能是：根據(jù)輸入的數(shù)據(jù)，計(jì)算不大于該數(shù)的所有奇數(shù)累加和。 填空要求：程序中共有三個(gè)填空，請?jiān)凇?n- "處填空(注意：不能刪除“&& 此處填空”，以便于檢查)，并調(diào)試運(yùn)行。不得增加或刪減程序行。SET TALK OFF CLEAR YN="Y"DO WHILEUPPER(YN尸"Y"或者 LOWER(YN尸"y'-1-&眥處填空INPUT "請輸入兩位以內(nèi)

8、的正整數(shù)："TO NSTORE 0 TO X,YDO WHILE X<NX=X+1IF INT(X/2)<>X/2 -2-&&tt處填空Y=Y+XENDIFENDDO?”不大于該數(shù)的奇數(shù)累加和="+STR(Y,4)WAIT或者INPUT或者ACCEPT-3- &處匕處填空"繼續(xù)計(jì)算否？ (Y/N)" TO YN ENDDO ?"再見！" SET TALK ON6、給定程序的功能是：根據(jù)輸入的數(shù)據(jù)，判斷該數(shù)是否為偶數(shù)，可以循環(huán)輸入。 填空要求：程序中共有三個(gè)填空，請?jiān)凇?n- "處填空

9、(注意：不能刪除“&& 此處填空”，以便于檢查)，并調(diào)試運(yùn)行。不得增加或刪減程序行。SET TALK OFF CLEAR YN="Y"DO WHILE UPPER(YN尸"Y或者 DO WHILE LOWER(YN)="y-1- &眥處填空 INPUT "請輸入一個(gè)自然數(shù)："TO NIF N/2!=INT(N/2)或者 MOD(N,2)!=0 或者 N%2!=0-2-&&lt處填空?" 不是偶數(shù)!"ELSE?" 是偶數(shù)!"ENDIFWAIT-3-&

10、&t匕處填空"繼續(xù)否？ (Y/N)" TO YNENDDO ?"再見！"SET TALK ON7、給定程序的功能是：顯示指定表中的全部字段名，并由用戶輸入顯示表信息的 條件，最后列表顯示滿足條件的記錄。填空要求：程序中共有三個(gè)填空，請?jiān)凇?n- "處填空(注意：不能刪除“&& 此處填空”，以便于檢查)，并調(diào)試運(yùn)行。不得增加或刪減程序行。SET TALK OFFDO WHILE .T.CLEARACCEPT "青輸入表名(擴(kuò)展名略)："TO TBNIF FILE("&TBN.DBF&q

11、uot;)USE(TBN)或者USE&TBN-1&眥處填空ELSEWAIT "指定的表不存在!"LOOPENDIF?”表中的全部字段名列表:"FOR N=1 TO FCOUNT0-2-&眥處填空?FIELD(N)ENDFORACCEPT "青輸入顯示表信息的條件："TO EXPRLIST &EXPR-3&眥處填空WAIT "是否繼續(xù)(Y/N)?: " TO YNIF UPPER(YN)!= "Y"EXITENDIFENDDOUSESET TALK ON8、給定程序的

12、功能是：接收從鍵盤輸入的任意10個(gè)數(shù)，輸入的數(shù)字可以是負(fù)數(shù)， 但包括符號(hào)位最多三位。程序的功能是，找出其中最大的數(shù)和最小的數(shù)字，最后顯示出來。填空要求：程序中共有三個(gè)填空，請?jiān)凇?n- "處填空(注意：不能刪除“&& 此處填空”，以便于檢查)，并調(diào)試運(yùn)行。不得增加或刪減程序行。SET TALK OFFCLEARINPUT "請輸入第一個(gè)數(shù)字："TO XZD=XZX=X-1-&處匕處填空N=10DO WHILE N>-2-&&tt 處填空INPUT"請輸入下一個(gè)數(shù)字："TO XIF ZD<XZD

13、=XENDIFIF ZX>X-3-&&t處填空ZX=XENDIFN=N-1ENDDO?"最大數(shù)："+STR(ZD,3,0),"最小數(shù)："+STR(ZX,3,0)SET TALK ON9、程序的功能是，顯示輸出學(xué)生表中每個(gè)班級(jí)的男女同學(xué)的獎(jiǎng)學(xué)金總金額。填空要求：程序中共有三個(gè)填空，請?jiān)凇?n- "處填空（注意：不能刪除“&& 此處填空”，以便于檢查），并調(diào)試運(yùn)行。不得增加或刪減程序行。SET TALK OFFCLEARUSE學(xué)生INDEX ON 學(xué)號(hào) TO INN0?"* 各班男女獎(jiǎng)學(xué)金總額統(tǒng)計(jì)*、

14、?”班級(jí)男同學(xué)獎(jiǎng)學(xué)金總額女同學(xué)獎(jiǎng)學(xué)金總額"DO WHILE !EOF0-1-&處匕處填空CLASS=LEfT（號(hào),3）STORE 0 TO BOYS,GIRLSDO WHILE LEFT（學(xué)號(hào)，3）=CLASS 或者 SUBSTR（學(xué)號(hào),1,3）=CLASS-2&眥處填空IF性別BOYS=BOYS啖學(xué)金ELSEGIRLS=GIRLS+ 獎(jiǎng)學(xué)金ENDIFSKIP-3-&眥處填空ENDDO?CLASS+STR（BOYS,19,2）+ STR（GIRLS,19,2）ENDDOUSESET TALK ON10、給定程序的功能是：返回給定的字符串表達(dá)式的倒置字符串。如：

15、輸入字符用"ABCD",倒置后輸出的字符串為"DCBA"。填空要求：程序中共有三個(gè)填空，請?jiān)凇?n- "處填空（注意：不能刪除“&& 此處填空”，以便于檢查），并調(diào)試運(yùn)行。不得增加或刪減程序行。SET TALK OFFCLEARACCEPT "青輸入一個(gè)字符串："TO XC=""或者 C=SPACE(0>-1&&t處填空L=LEN(X)DO WHILE 0<L 或者 DO WHILE L>0-2-&&t 匕處填空Q=SUBSTR(X,L,1

16、)C=C+Q-3 &&b匕處填空L=L-1ENDDO?"倒置字符串是："+CRETURNSET TALK ON11、本程序?qū)崿F(xiàn)：利用公式ex=1+X+X/2!+X 3/3!+X/n!,輸入X和N,計(jì)算 ex的近似值。SET TALK OFFCLEARINPUT 'X=' TO XINPUT 'N=' TO NA=1B=1S=1-1&&B匕處填空FOR I=1 TO N-2-&&lt 處填空A=A*XB=B*IS=S+A/B-3- &&lt 處填空ENDFOR? 'S=&#

17、39;,SSET TALK ON12、本程序?qū)崿F(xiàn)：輸入一個(gè)正整數(shù) M判斷并顯示1M中有哪些數(shù)可以分為兩個(gè) 相等的素?cái)?shù)。(如M=10有3個(gè)數(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ù)不符合題目要求！ELSE-1-&處匕處填空S=0FOR I=2 TO M/2FOR J=2 TO I-1 -2-&&lt 處填空IF I%J=0EXITENDIFENDFORIF J>I-1 或者 IF J=I -3-&&t處

18、填空S=S+1?ALLTRIM(STR(J*2,19)+"="+ALLTRIM(STR(J,19)+"+"+ALLTRIM(STR(J,19)ENDIFENDFOR?ALLTRIM(STR(M,19)+"中共有："+STR(S,3)+”個(gè)數(shù)滿足條件"SET TALK ON13、本程序?qū)崿F(xiàn)口令驗(yàn)證。輸入次數(shù)在 3次以內(nèi)，給予重輸?shù)奶崾?，超過 3次, 則進(jìn)入死循環(huán)。SET TALK OFFCLEARI=1DO WHILE .T.?"請輸入口令="SET CONSOLE OFFACCEPT TO KLSET C

19、ONSOLE ONIF KL="ABC"?” 歡迎使用本系統(tǒng)！"EXIT-1-&&t 匕處填空ENDIFIF I>3 -2-&處匕處填空?” 無權(quán)使用本系統(tǒng)！"DO WHILE .T.ENDDOENDIF?" 口令第"+STR(I,1)+”次錯(cuò)，再試一次！"I=I+1 -3-&處匕處填空ENDDOSET TALK ON14、本程序顯示學(xué)生表中的獲得獎(jiǎng)學(xué)金的學(xué)生姓名和獎(jiǎng)學(xué)金數(shù)額SET TALK OFFCLEARUSE學(xué)生DO WHILE !EOF()或者 DO WHILE .NOT.EOF

20、()-1&&t 匕處填空IF 獎(jiǎng)學(xué)金>0-2-&處匕處填空? 姓名，獎(jiǎng)學(xué)金SKIPELSESKIP-3-&趾匕處填空ENDIFENDDOUSESET TALK ON15、本程序顯示學(xué)生表中1971年或以前出生的學(xué)生姓名和出生年月(日期型)。SET TALK OFFCLEARUSE學(xué)生LOCATE FOR YEAR(出生年 月)<=1990 或者 FOR 出生年 月<=A1990-01-01- -1-&&t處填空DO WHILE .NOT.EOF() 或者 DO WHILE !EOF() 或者 DO WHILEFOUND0-2-&

21、amp;眥處填空?姓名，出生年月CONTINU-3-&處匕處填空ENDIFENDDOUSESET TALK ON16 .本程序計(jì)算一個(gè)十進(jìn)制正整數(shù) N的各位數(shù)字之和。SET TALK OFFCLEARINPUT "M=" TO MIF INT(M)!=M OR ABS(M)!=M?”輸入的數(shù)據(jù)不符合題目要求！"ELSE-1- &趾匕處填空S=0DO WHILE M>-2-&處匕處填空T=MOD(M,10)S=S+TM= INT(M/10) -3-&&lt處填空ENDDO?SENDIFSET TALK ON17 .本程序

22、實(shí)現(xiàn)從鍵盤中輸入5個(gè)數(shù)，去掉一個(gè)最大數(shù)和一個(gè)最小數(shù)，然后求平 均值。SET TALK OFFCLEARINPUT 'N=' TO NSTORE N TO A B, S-1-&恥匕處填空FOR I=1 TO 4INPUT'N=' TO NIF A<N 或者 N>A-2-&&t處填空A=NENDIFIF B>NB=NENDIFS=S+N 或者 S=N+A-3- &&t 匕處填空ENDFOR?'平均值=',(S-A-B)/3SET TALK ON18 .程序1:求1!+3!+5!+ - +N!,

23、 N由鍵盤輸入。SET TALK OFFCLEARINPUT "N=" TO N-1一 &&t 匕處填空STORE 0 TO S,TFOR I=1 TO N STEP 2DO SUBS=S+T-2- &&lt 處填空ENDFOR?SSET TALK ONPROC SUBT=1FOR J=1 TO IT=T*J-3- &&tt處填空ENDFOR19 .設(shè)變量N的輸入值為5,字符A的ASCII碼為65。程序的運(yùn)行如下圖所示:ABBBCCCCCDDDDDDDEEEEBEEEESET TALK OFFCLEARINPUT "

24、N=" TO NFOR I=1 TO N? SPACE(N-I)-1-&&lt 處填空FOR J=1 TO 2*I-1 -2- &&lt 匕處填空? CHR(65+I-1)-3-&&tt處填空ENDFORENDFORSET TALK ON20 .將表“學(xué)生.DBF”中指定學(xué)生(由鍵盤輸入)的獎(jiǎng)學(xué)金加 60,并顯示該學(xué) 生的記錄。SET TALK OFFCLEARUSE學(xué)生ACCEPT ”輸入學(xué)號(hào)=" TO MLOCATE FOR號(hào)=兇-1一 &眥處填空IF !EOF()REPLAC改學(xué)金 WITH獎(jiǎng)學(xué)金+60-2-&a

25、mp;&ft處填空DISPELSE?”沒有找到！”ENDIF-3&&h匕處填空USESET TALK ON21 .下面程序統(tǒng)計(jì)指定學(xué)生的平均成績及該成績的檔次。SET TALK OFFCLEARUSE成績ACCEPT "青輸入學(xué)生的學(xué)號(hào)："TO XHLOCATE FOR號(hào)=*斗-1一 &&t匕處填空IF !FOUND()?”查無此人!"ELSEAVERAGE TO PJCJ FOR 學(xué)號(hào)=XH-2&&h匕處填空DO CASECASE PJCJ>=90DC='<"CASE PJCJ

26、>=80DC="良"CASE PJCJ>=70DC='中"CASE PJCJ>=60DC=吸格"OTHERWHISE 者 CASE PJCJ<6Q-3&眥處填空DC='不及格"ENDCASE?"學(xué) 號(hào)","平均成績"，"檔次"?XH,STR(PJCJ,8,2),DCENDIFUSE22 .程序輸出的結(jié)果如下圖所示： *SET TALK OFFCLEAA="*"H=5-1-&&t處填空FOR K=1 TO H? SPACE(H-K-2-&&lt 處填空FOR T=1 TO2*K-1 -3- &&t 匕處填空 ?AENDFORENDFORSET TALK ON23 .編一將日期轉(zhuǎn)換成中文星期的自定義函數(shù)。N=DOW(D-1