程序改错69题答案(6)

APPE

@1,1 SAY \学号\学号 @2,1 SAY \系别\系别 @3,1 SAY \姓名\姓名 READ

WAIT \继续添加记录吗？(y/n)\ ANS=LOWER(ANS) DO CASE

CASE ANS=\

**********FOUND**********LOOP SKIP CASE ANS=\ EXIT ENDCASE ENDDO USE

42.题目：判别100到200之间的数能否同时被5、6整除、能否被5、6之一整除和不能被5或6整除等，将判别结果显示出来。 SET TALK OFF i=100

DO WHILE i<=200 DO CASE

**********FOUND**********CASE ★INT(i/5)=I/5★.AND.★INT(i/6)=I/6

或 CASE ★MOD(I,5)=0★.AND.★MOD(I,6)=0 或 CASE ★I%5=0 ★AND★ I%6=0

或 CASE ★INT(i/6)=I/6★.AND.★INT(i/5)=I/5 或 CASE ★MOD(I,6)=0★.AND.★MOD(I,5)=0 或 CASE ★I%6=0 ★AND★ I%5=0

CASE INT(i/5)=0.OR.INT(i/6)=0 ? i,\能同时被5和6整除\ CASE MOD(i,5)=0

? i,\只能被5整除\ CASE MOD(i,6)=0

? i,\只能被6整除\

**********FOUND**********OTHERWISE ELSE

? i,\不能被5或6整除\ ENDCASE i=i+1 ENDDO

SET TALK ON

2222

43.题目：以下程序的功能如下：计算2+3+4+……+N的值并显示输出结果。 SET TALK OFF CLEAR

T=0 I=2

INPUT \

**********FOUND**********DO ★WHILE★ I<=N 或 DO ★WHILE★ N>=I DO WHILE .NOT.EOF() T=T+I^I

**********FOUND**********I=2+I 或 I=I+★2 I=I+T ENDDO

?\ SET TALK ON RETURN

44.题目：对数据库XSDB.DBF中的计算机和英语都大于等于90分以上的学生奖学金进行调整：法律系学生奖学金增加12元、英语系学生奖学金增加15元、中文系学生奖学金增加18元，其他系学生奖学金增加20元。 USE XSDB

**********FOUND**********LOCATE★ FOR ★90<=英语★.AND.★计算机>=90

或 LOCATE★ FOR ★英语>=90★.AND.★90<=计算机 或 LOCATE★ FOR ★英语>=90★.AND.★计算机>=90 或 LOCATE★ FOR ★90<=英语★.AND.★90<=计算机

FIND 计算机.AND.英语>=90 DO WHILE FOUND() DO CASE

CASE 系别=\法律\ ZJ=12

CASE 系别=\英语\ ZJ=15

CASE 系别=\中文\ ZJ=18 OTHE

ZJ=20 ENDCASE

**********FOUND**********REPLACE★ 奖学金 WITH ★奖学金★+ZJ

或 REPLACE★ 奖学金 WITH ★ZJ+★奖学金

REPL 奖学金 WITH ZJ CONTINUE ENDDO USE RETURN

45.题目：计算表达式3！+5！+7！的值，该程序有4处错误，请找出并改正，使程序能够正常运行。 CLEAR Y=0 M=2

W=1

***********FOUND**********DO ★WHILE★ M<=7 或 DO ★WHILE★ 7>=M DO WHILE M<7 W=W*M

***********FOUND**********IF M/2★<>★INT(M/2) IF M/2=INT(M/2) Y=Y+W ENDIF

***********FOUND**********M=M★+★1 M=M+2 ENDDO

***********FOUND**********?\ ? \ SET TALK ON

46.题目：下面程序中,是统计XS.DBF中的男生人数,程序中有四处错误,请改正之. SET Talk Off CLEA USE XS S=0

***********FOUND**********DO★WHILE★.NOT.★EOF() DO WHILE EOF() IF 性别=\女\ SKIP

***********FOUND**********LOOP EXIT ENDIF

***********FOUND**********S=★S★+★1 S=S-1

***********FOUND**********SKIP CONTINUE ENDDO USE

? \男生人数是:\ set talk on RETURN

47.题目：求20以内（含20）偶数和。该程序有四处错误，找到并改正，使之能正确运行。 S=0 N=1

***********FOUND**********DO ★WHILE★ N<=20 或 DO ★WHILE★ 20>=N DO WHILE N<20 A=N/2

B=INT(N/2)

***********FOUND**********IF A★=B IF A<>B

S=S+N ENDIF

***********FOUND**********N=N★+★1 N=N+2 ENDDO

***********FOUND**********?\ ?\ ?\ ? \ RETURN

48.题目：可以选择列出数据库XS.DBF中全体同学情况、全体男同学情况、全体女同学情况。该程序有4处错误，请找出并改正，使程序能够正确运行。 CLEAR

AA=\

BB=\性别=[男]\ CC=\性别=[女]\ USE XS

@21,16 SAY \全体同学2:全体男同学3: 全体女同学\ @23,16 SAY \退出\ @23,34 SAY \请选择:\ WAIT TO J DO CASE

***********FOUND**********CASE ★J=\ CASE J=★'1' 或 CASE J=★[1] CASE J=0 &AA

CASE J=\

***********FOUND**********&BB BB

***********FOUND**********CASE J=★\ CASE J=★'3' 或 CASE J=★[3] CASE J={1} &CC OTHERWISE

***********FOUND**********RETURN EXIT ENDCASE USE RETURN

49.题目：在数据库XS.DBF中，根据计算机的成绩对总分做相应调整：计算机成绩在90分以上的总分加10分，计算机成绩在80分以上的总分加5分，计算机成绩60分以下的总分减2分。该程序有4处错误，请找出并改正，使之能够正确运行。 USE XS CLEAR

GOTO BOTTOM

***********FOUND**********DO ★WHILE★ .NOT. BOF() DO WHILE BOF() DO CASE

***********FOUND**********CASE 计算机>=80 ★AND★ 计算机<90 CASE 计算机>=80

REPLACE 总成绩 WITH 计算机+5 CASE 计算机>=90

REPLACE 总成绩 WITH 计算机+10 ***********FOUND**********CASE 计算机<60 OTHRWISE

REPLACE 总成绩 WITH 计算机-2 ENDCASE

***********FOUND**********SKIP★ -1 SKIP ENDDO LIST USE RETURN

50.题目：下面程序中,是计算1～N(N由键盘输入)之间的正整数中的偶数之和,程序中有四处错,请改正之. SET TALK OFF CLEA

***********FOUND**********INPUT★\ ACCEPT \ S=0 K=1

***********FOUND**********DO★WHILE★K<=N 或 DO★WHILE★N>=K DO WHILE K>=N

***********FOUND**********IF★INT(K/2)★=★K/2 IF INT(K/2)<>K/2 S=S+K K=K+1 ELSE K=K+1 …… 此处隐藏：1613字，全部文档内容请下载后查看。喜欢就下载吧 ……