程序改错69题答案

三、程序改错

注意：不可以增加或删除程序行，也不可以更改程序的结构。 1.题目：计算1!+2!+3!+...+10! SET TALK OFF S=0 N=1

**********FOUND**********DO ★WHILE★ N<=10 或 DO ★WHILE★ 10>=N DO WHILE N>=10 STOR 1 TO I,P DO WHILE I<=N

**********FOUND**********P=I*P 或 P=P*★I P=P*N I=I+1 ENDDO S=S+P N=N+1 ENDDO ?S

SET TALK ON RETURN

2.题目：计算并在屏幕上显示出\九九乘法表\，显示格式如下： 1×1＝1

1×2＝2 2×2＝4

1×3＝3 2×3＝6 3×3＝9 … …

1×9＝9 … 8×9＝72 9×9＝81 SET TALK OFF CLEAR X=1

DO WHILE X<=9 Y=1

**********FOUND**********DO ★WHILE★ Y<=X 或 DO ★WHILE★ X>=Y DO WHILE Y<=9

??STR(X)+\ **********FOUND**********Y=Y+1 或 Y=1+Y Y=Y*1 ENDDO ? X=X+1 ENDDO

SET TALK ON RETURN

3.题目：根据输入的数据，计算不大于该数的奇数累加和。 SET TALK OFF

CLEAR YN=\

DO WHILE UPPER(YN)=\

INPUT \请输入2位以内的整数\ STORE 0 TO X,Y Z=\

DO WHILE X

IF INT(X/2)=X/2

**********FOUND**********LOOP EXIT ELSE

Z=Z+\

**********FOUND**********Y=X+Y 或 Y=★Y+X Y=Y+Z ENDIF ENDDO

?Z+\＝\

WAIT \继续计算?(Y/N)\ ENDDO ?\再见：\ SET TALK ON RETURN

4.题目：通过临时数据LSH.DBF向学生数据库RS.DBF中追加数据记录。 SET TALK OFF USE RS

COPY TO LSH USE LSH ZAP I=0 ANS=\

**********FOUND**********DO ★WHILE ★UPPER(ANS)★= \

或 DO ★WHILE ★LOWER(ANS)★='y' 或 DO ★WHILE★ ANS=\

DO WHILE ANS=\ CLEAR I=I+1

@10,1 SAY\请输入第\添加记录的数据\ APPE BLANK

@11,1 SAY \编号：\ @12,1 SAY \姓名：\ @13,1 SAY \性别：\ @14,1 SAY \出生年月：\ @15,1 SAY \婚否：\ @16,1 SAY \职称：\

@17,1 SAY \工资：\ READ

WAIT\是否正确?(Y/N)\ IF UPPER(ANS)<>\ I=I-1 ANS=\ LOOP ENDIF

WAIT \是否继续添加?(Y／N)\ ENDDO USE RS

**********FOUND**********APPEND ★FROM APPE LSH CLEAR USE

SET TALK ON RETURN

5.题目：根据输入的编号查找RS数据库中的工资。 SET TALK OFF USE RS YN=\

DO WHILE UPPER(YN)=\ CLEAR

**********FOUND**********ACCEPT \请输入4位编号\ WAIT \请输入4位编号\ IF NUM=\

?\无效输入，请重新输入\ LOOP ENDIF

**********FOUND**********★LOCATE★ FOR NUM=BH FIND FOR NUM=BH IF FOUND()

@10,10SAY XM @10,40 SAY GZ ELSE

?NUM,\没找到\ ENDIF

WAIT \是否继续（Y/N）\ ENDDO USE RETURN

6.题目：该程实现由键盘输入三个数,按从小到大的顺序排序。 SET TALK OFF

INPUT\请第一个数的值:\

INPUT\请第二个数的值:\ INPUT\请第三个数的值:\ IF A>B T=A A=B

**********FOUND**********B=T T=B ENDIF IF A>C T=A A=C C=T ENDIF IF B>C T=B B=C C=T ENDIF

**********FOUND**********?A,B,C ? C,B,A SET TALK ON RETURN

7.题目：对RS.DBF数据库按职称建立职称库，分别产生以职称为教授的数据库JS.DBF，职称为副教授的数据库FJS.DBF，职称为讲师的数据库JSHI.DBF，职称为助教的数据库ZJ.DBF，并用菜单形式显示，输入1时，显示数据库JS.DBF，输入2时，显示数据库FJS.DBF…。 SET TALK OFF USE RS

COPY TO JS FOR ZC=\教授\ COPY TO FJS FOR ZC=\副教授\ COPY TO JSHI FOR ZC=\讲师\ COPY TO ZJ FOR ZC=\助教\

@ 10,40 SAY \显示教授库信息\ @ 11,40 SAY \显示副教授库信息\ @ 12,40 SAY \显示讲师库信息\ @ 13,40 SAY \显示助教库信息\

**********FOUND**********@ 14,40 ★SAY★ \\ @ 14,40 READ \退出\

ACCEPT \请输入要显示的职称库\ CLEAR DO CASE

**********FOUND**********CASE ANS=★\ CASE ANS=1 USE JS LIST

CASE ANS=\ USE FJS LIST CASE ANS=\ USE JSHI LIST CASE ANS=\ USE ZJ LIST CASE ANS=\ EXIT ENDCASE RETURN

8.题目：按照工资计算数据库RS中的最低工资、最高工资及平均工资，并存放到内存变量文件TJGZ.MEM中。 SET TALK OFF USE RS

AVER GZ TO MIDGZ GO TOP MAXGZ=GZ MINGZ=GZ

DO WHILE NOT EOF() IF MAXGZ

IF MINGZ>GZ

**********FOUND**********MINGZ★=GZ GZ=MINGZ ENDIF SKIP ENDDO

**********FOUND**********SAVE TO TJGZ.MEM ALL ★LIKE★ M* SAVE TO TJGZ.MEM ALL EXCEPT M* USE RETURN

9.题目：求X =1+2+3+… +100，并同时求出 1~ 100 之间的奇数之和，而且要显示输出这两个和。

SET TALK OFF CLEAR

STORE 0 TO I , X , Y

**********FOUND**********DO ★WHILE★ I<100 或 DO ★WHILE★ 100>I DO WHILE I < =100 I = I + 1 X =X + I