程序填空[1] 下载本文

2*n-m,1

------------------------------------------------------- *【程序填空】

*-------------------------------------------------------

*题目:通过循环程序,输出\九九\表 *

*1X1= 1

*1X2= 2 2X2= 4

*1X3= 3 2X3= 6 3X3= 9

*1X4= 4 2X4= 8 3X4=12 4X4=16

*1X5= 5 2X5=10 3X5=15 4X5=20 5X5=25

*1X6= 6 2X6=12 3X6=18 4X6=24 5X6=30 6X6=36

*1X7= 7 2X7=14 3X7=21 4X7=28 5X7=35 6X7=42 7X7=49

*1X8= 8 2X8=16 3X8=24 4X8=32 5X8=40 6X8=48 7X8=56 8X8=64

*1X9= 9 2X9=18 3X9=27 4X9=36 5X9=45 6X9=54 7X9=63 8X9=72 9X9=81

*-------------------------------------------------------

SET TALK OFF FOR N=1 TO 9

***********SPACE********** 【?】

***********SPACE********** 【?】

***********SPACE**********

?? STR(M,1)+ \×\【?】+ \ ENDFOR ENDFOR

SET TALK ON ?

For m=1 to n Str((n*m),2)

【程序填空】

*-------------------------------------------------------

*题目:找出XSDB.DBF中奖学金最高的学生记录并输出。请在【】 * 处添上适当的内容,使程序完整。

*-------------------------------------------------------

***********SPACE********** 【?】 MAX=0

***********SPACE********** DO WHILE 【?】 IF MAX<奖学金

***********SPACE********** 【?】

JLH=RECN()

ENDIF SKIP ENDDO ?MAX

DISP FOR RECN()=JLH USE Use xsdb

!eof() .not eof()

Store 奖学金 to max max=奖学金

*------------------------------------------------------- *【程序填空】

*-------------------------------------------------------

*题目: 给定库文件ABC.DBF,含如下字段内容:AA(C,2)、BB(C,2)、 * CC(C,2),编程完成如下功能:AA字段用01,02,03...... * 50依次填入,BB字段用A,B,C,......Z循环填入,CC字段用 * A,D,G,...Z每隔两个字母依次循环填入,共追加50条记录。 * 请在【】处添上适当的内容,使程序完整。

*-------------------------------------------------------

SET TALK OFF SET SAFE OFF CLEAR USE ABC ZAP I=50

DO WHILE I>0 APPE BLANK I=I-1 ENDD GO TOP M=65 N=65

***********SPACE**********

DO WHILE 【?】 IF RECNO()<10

REPL AA WITH \ELSE

***********SPACE**********

REPL AA WITH STR(RECNO(),【?】) ENDIF

REPL BB WITH CHR(M) REPL CC WITH CHR(N) IF M=90 M=65 ELSE M=M+1 ENDIF DO CASE CASE N=88 N=65 CASE N=89 N=66 CASE N=90 N=67 OTHERWISE

***********SPACE********** 【?】

ENDCASE SKIP ENDD DISP ALL USE

SET SAFE ON SET TALK ON CANC Not eof() 2

n=n+3

*------------------------------------------------------- *【程序填空】

*-------------------------------------------------------

*题目: 两个乒乓球队进行比赛,各出三人。甲队为 * a,b,c三人,乙队为x,y,z三人。已抽签决定 * 比赛名单。有人向队员打听比赛的名单。

* a说他不和x比,c说他不和x,z比,请编程序 * 找出三队赛手的名单。。

* 请在【】处添上适当的内容,使程序完整。

*-------------------------------------------------------

SET TALK OFF clear

*i是a的对手,j是b的对手,k是c的对手 for i=asc('x') to asc('z') for j=asc('x') to asc('z') if j!=i

for k=asc('x') to asc('z') if k!=i .and. k!=j ***********SPACE**********

if i!=asc('x') .and. k!=asc('x') .and.k!=asc(【?】)

? \ endif

***********SPACE********** 【?】 endf endi endf

***********SPACE********** 【?】 set talk on retu ‘z’ endif endfor

*------------------------------------------------------- *【程序填空】

*-------------------------------------------------------

*题目: 百马百担问题:有100匹马,驮100担货,大马驮三担,中 * 马驮2担,两匹小马驮一担,求大、中、小马各多少匹?。 * 请在【】处添上适当的内容,使程序完整。

*-------------------------------------------------------

SET TALK OFF clear

for hb=0 to 100

***********SPACE********** for hm=0 to 100-【?】

***********SPACE**********