遼寧醫(yī)學(xué)院 程序填空題 題庫.doc

程序填空1. 功能: 已知表文件學(xué)生.DBF,向?qū)W生表中追加記錄。SET TALK OFFUSE 學(xué)生DO WHILE .T.APPEND WAIT 繼續(xù)添加記錄嗎?(Y/N) TO KIF UPPER(K)=Y【?】ELSE【?】ENDIFENDDORETURN答案為： exit loop2. 功能: 已知表文件入學(xué)成績.DBF和學(xué)生.DBF,將兩表按學(xué)號字段建立關(guān)聯(lián)并顯示學(xué)生的姓名和語文信息。 SET TALK OFFSELECT 2USE 入學(xué)成績INDEX ON 【?】 TO XHSELECT 1USE 學(xué)生 SET RELATION TO 學(xué)號 INTO BLIST 姓名,【?】USERETURN答案為：學(xué)號 、B.語文3. 功能:顯示數(shù)據(jù)表學(xué)生.DBF中男同學(xué)的信息。SET TALK OFFUSE 學(xué)生LOCATE FOR 性別=男DO WHILE 【?】 DISP【?】ENDDOUSERETU答案為： .not. eof() 、 continue4. 功能: 已知表文件學(xué)生.DBF,按姓名快速查找并顯示指定記錄。SET TALK OFFUSE 學(xué)生ACCEPT 輸入姓名 TO XMINDE ON 姓名 TO SS【?】 XM【?】USERETURN答案為：seek、 display5. 功能: 已知表文件學(xué)生.DBF,按姓名查找學(xué)生記錄，如果找到了，顯示當(dāng)前記錄，否則顯示 查無此人。SET TALK OFFUSE 學(xué)生ACCEPT 輸入姓名： TO NAMELOCATE FOR 姓名=NAMEIF FOUND()【?】ELSE【?】ENDIFUSERETURN答案為：display 、 ? 查無此人6. 功能:顯示數(shù)據(jù)表學(xué)生.DBF中計(jì)算機(jī)專業(yè)同學(xué)的信息。SET TALK OFFUSE 學(xué)生LOCA FOR 專業(yè)=計(jì)算機(jī)DO WHIL 【?】 EOF()DISP【?】ENDDOUSEReturn答案為：.not. 、 continue7. 功能: 已知數(shù)據(jù)庫文件P.DBF和Q.DBF,要求修改Q.DBF文件中N2字段的值，使其成為該字段的原來值與P.DBF文件中相應(yīng)記錄N1字段值的乘積.（注意：只能選用第1和第2工作區(qū)）SET TALK OFFCLEARSELE 1USE PINDE ON M TO MNSELE 【?】USE QSET RELA TO 【?】 INTO A REPL 【?】 N2 WITH N2*A-N1LISTclose dataSET TALK ONReturn答案為： 2 、M、all8. 題目：統(tǒng)計(jì)學(xué)生表中入學(xué)成績大于等于570分的同學(xué)的人數(shù)。SET TALK OFFUSE 學(xué)生N=0DO WHILE .NOT.EOF() IF 入學(xué)成績【?】 N=N+1ENDIF【?】 ENDDO?NUSEReturn答案為：=570 、 skip 19. 功能: 已知表文件學(xué)生.DBF和選課.DBF,按學(xué)號建立學(xué)生表和選課表的關(guān)聯(lián)。SET TALK OFFSELE 1USE 選課INDE ON 【?】 TO XHSELE 2USE 學(xué)生SET RELA TO 學(xué)號 INTO 【?】LIST 姓名, A.成績RETURN答案為： 學(xué)號 、 A10. 功能: 已知表文件學(xué)生.DBF,索引查詢1991年8月25日出生的學(xué)生記錄。SET TALK OFFCLEARUSE 學(xué)生【?】 ON 出生日期 TO CR【?】1991/08/25DISPLAYRETURN答案為： index、 seek 11*功能: 已知表文件學(xué)生.DBF,以下程序?qū)崿F(xiàn)按從首記錄到末記錄的順序逐條地顯示學(xué)生表中的記錄。SET TALK OFFUSE 學(xué)生DO WHILE 【?】DISP【?】ENDDOUSERETURN答案為：.not.eof() 、 skip112. 功能: 已知表文件學(xué)生.DBF,編程實(shí)現(xiàn)按從末記錄到首記錄的順序逐條地顯示學(xué)生表中的記錄。SET TALK OFFUSE 學(xué)生GO BOTTOMDO WHILE 【?】DISP【?】ENDDOUSERETURN答案為： .not.bof() 、 skip -113. 功能: 已知表文件學(xué)生.DBF和入學(xué)成績.DBF,將學(xué)生表和入學(xué)成績表按學(xué)號建立關(guān)聯(lián)并顯示。SET TALK OFFSELECT 1USE 入學(xué)成績INDEX ON 【?】 TO XHSELECT 2USE 學(xué)生SET RELATION TO 【?】 INTO ALIST 姓名,A.數(shù)學(xué)RETURN答案為： 學(xué)號 、學(xué)號14. 功能: 對學(xué)生表按性別索引，同性別的按專業(yè)索引。 SET TALK OFFUSE 【?】INDE ON 【?】 TO XRLISTUSE答案為：學(xué)生 、性別+專業(yè)15. 功能: 已知表文件學(xué)生.DBF,在學(xué)生表中按姓名查找某條記錄。USE 學(xué)生ACCEPT 請輸入姓名: TO XMLOCATE FOR 【?】IF 【?】DISPELSE?查無此人!ENDIF答案為： 姓名=XM 、 found()16. 功能:在“學(xué)生”表中按姓名查找并顯示指定記錄。SET TALK OFF 【?】 CLEAR INPUT 請輸入姓名: TO NAME LOCATE FOR 姓名= NAME IF NOT EOF( )【?】ELSE ?查無此人ENDIFUSERETU答案為：use 學(xué)生、 display17. 功能：從鍵盤輸入一個(gè)表的文件名，將該表的第一條記錄和最后一條記錄的姓名字段內(nèi)容互換。(設(shè)，表中有固定字段姓名)。SET TALK OFFUSE 學(xué)生GO 1XM1=姓名GO BOTTOMXM2=【?】REPL 姓名 WITH 【?】go 【?】REPL 姓名 WITH XM2USESET TALK ON RETURN答案為：姓名 、XM1 、 top【代碼檢查 程序_15XM2=姓名】XM2=姓名REPL 姓名 WITH XM1【代碼檢查 程序_19GO TOP】18. 功能：從鍵盤輸入某設(shè)備的名稱，如果找到顯示其編號和價(jià)格，找不到時(shí)給出無此設(shè)備的提示。*注意：本題中，不允許使用邏輯常量 .T. 和 .F.SET TALK OFFCLEARUSE SBMC=space(4)accept 輸入設(shè)備名稱: to MC LOCA FOR 名稱=【?】 IF 【?】 DISP 編號,價(jià)格 ELSE ? 無此設(shè)備 WINDOW ENDIFUSESET TALK ONRETURN答案為： MC 、found()19. 功能:找出XSDB.DBF中獎(jiǎng)學(xué)金最高的學(xué)生記錄并輸出。*注意：本題中，不允許使用邏輯常量 .T. 和 .F.SET TALK OFF【?】MAX=0DO WHILE 【?】 IF MAX=100【?】ENDIFX=X+1【?】?XRETURN答案為：EXIT 、 ENDDO23. 題目：編寫程序，計(jì)算球的體積。NOTE 計(jì)算球的體積INPUT 請輸入球的半徑： TO r【?】 v=4/3*【?】*r*3 ? 球的體積是：, v ENDIF 答案為： IF r0 、 v=4/3*pi()*r*3 24. 題目：編寫程序CC.prg，任意輸入兩個(gè)數(shù)到變量M1，M2中，實(shí)現(xiàn)變量M1和M2值的交換。SET TALK OFFINPUT M1= TO M1INPUT M2= TO M2M=M1【?】【?】?交換后的兩數(shù)為:,M1,M2RETURN答案為：M1=M2 M2=M25. 功能: 下面程序的功能是不用第三個(gè)變量，實(shí)現(xiàn)兩個(gè)數(shù)的對調(diào)操作SET TALK OFFclearinput a= to ainput b= to ba=a+【b】 b=【a】- ba= 【a-b】? a=,a,b=,bset talk onCanc答案為：a=a+b b=a-b a=a-b26. 題目：編寫程序,修改如圖所示的分段函數(shù)。打開考生目錄下名為程序.prg的文件，請?jiān)凇尽刻幪砩线m當(dāng)?shù)膬?nèi)容，使程序完整。INPUT 請輸入一個(gè)數(shù)： TO xIF X【?】 S=x ELSE IF X【?】 s=x2 ELSE 【?】 ENDIF ?S答案為：=2 、-2 、 S=abs(x)27. 打開考生目錄下名為程序.prg的文件，計(jì)算2到99的數(shù)中能被7整除的個(gè)數(shù)。clear S=0 N=2 DO WHILE n【?】if 【?】 s=s+1ENDIFN=N+1 ENDDO? S答案為： n=99 、 mod(n,7)=0 或 int(n/7)=n/728. 題目：下面的程序是當(dāng)從鍵盤輸入y或Y 時(shí)，則退出循環(huán)。SET TALK OFFDO WHILE 【?】WAIT 輸入Y/N TO XIF LOWER(X)=y【?】ENDIFENDDO答案為： .T. 、 EXIT29. 題目：通過鍵盤輸入一個(gè)自然數(shù)，判斷該數(shù),如果是奇數(shù)則將其輸出。SET TALK OFF【?】X= TO XIF INT(X/2)【?】X/2?XENDIFRETURN答案為: INPUT 、 或 != 或 #30. 題目：編程實(shí)現(xiàn)通過鍵盤輸入一個(gè)數(shù)，判斷其奇偶性。SET TALK OFFCLEAR【?】請輸入一個(gè)自然數(shù)： TO XIF MOD(X,2)=【?】 ?這是一個(gè)偶數(shù)！ELSE?這是一個(gè)奇數(shù)！ENDIFRETURN答案為：input 、 031. 下面程序是計(jì)算1+3+5+99之和的程序。SET TALK OFF【?】I=1DO WHILE I= 【?】 Y=Y+SUBS(X,1,2)+ X=【?】ENDD?YSET TALK ONRETURN答案為 ： （即空格鍵）、2、 X=substr(x,3)33. 題目：在成績評定時(shí)，常把90分以上的定為優(yōu)秀，8089分定為優(yōu)良，7079分定為良好，小于60分的定為不及格，其余的定為及格。clear【?】 請輸入成績： TO xx【?】CASE XX=90 ? 優(yōu)秀CASE XX=80 ? 優(yōu)良 CASE XX=70 ? 良好 CASE XX60 ? 不及格 OTHERWISE ? 及格【?】答案為：input 、do case 、endcase 34. 編寫雞兔同籠程序prog31，已知雞兔的總頭數(shù)為h，總腳數(shù)為f，求雞兔各有多少只？INPUT 請輸入總頭數(shù)： TO hINPUT 請輸入總腳數(shù)： TO f X=(4*h【?】)/2 y=(f-【?】)/2 ? 共有雞：,x? 共有兔：, y 答案為：X=(4*h-f )/2 、 y=(f -2*h)/2 35. 編寫程序，求出1到100之間的奇數(shù)的平方和。clears=0x=1DO WHILE x【?】 s=【?】 x=【?】ENDDO? S答案為：DO WHILE xmonth(date() age=age-1endifif month=month(date() .and.【?】 【?】endif? 該學(xué)生的實(shí)足年齡為：,ageSET TALK ONRETURN答案為：date() 、 dayday(date() 、age=age-138. 計(jì)算一元二次方程的根。SET TALK OFFclearinpu