2005上,2005下程序答案.docVIP

2005上程序题答案 第一套 SET TALK OFF USE SCORE COPY TO NEWTABLE USE NEWTABLE REPL 学分 WITH 2 FOR 英语=60 REPL 学分 WITH 学分+3 FOR 高数=60 REPL 学分 WITH 学分+1 FOR 计算机=60 DELE FOR 学分5 PACK USE SET TALK ON CANCEL 第二套 SET TALK OFF CLEA USE TABLE1 COPY TO JCC USE JCC SCAN IF INT(数值/5)数值/5 Y=1 FOR I=1 TO 数值 Y=Y*I ENDFOR REPLACE 阶乘 WITH Y ENDIF ENDSCAN USE SET TALK ON CANCEL 第三套 SET TALK OFF USE 工资 SCAN IF 基本工资+津贴-房租-水电费1000 REPL 所得税 WITH ((基本工资+津贴-房租-水电费)-1000)*0.1 ENDIF ENDSCAN REPL ALL 实发工资 WITH 基本工资+津贴-房租-水电费-所得税 COPY TO JIEGUO FOR 所得税=100 FIELDS 部门,姓名,所得税 USE SET TALK ON CANCEL 第四套 SET TALK OFF CLEA SELECT STUD.学号,STUD.姓名,AVG(成绩) AS 平均成绩 ,院系 ; FROM STUD,SCORE ; WHERE STUD.学号=SCORE.学号 ; GROUP BY STUD.学号 ; ORDER BY 平均成绩 DESC; INTO DBF TEST1 CLOSE ALL SET TALK ON CANCEL 第五套 SET TALK OFF CLEA SELECT MONTH(销售日期) AS 月份,SUM((售价-进价)*销售数量*0.17) AS 税款 ; FROM 价格,销售 WHERE 价格.货号=销售.货号; GROUP BY 月份 ORDER BY 月份 INTO DBF 税务 CLOSE ALL SET TALK ON CANCEL 2005下程序题答案第一套 SET TALK OFF CLEAR USE ZHIBAN A=每天加班费 GO 2 B=每天加班费 USE YUANGONG REPLACE ALL 加班费 WITH; 夜值班天数*A+昼值班天数*B SELECT 职工编码,姓名,加班费; FROM YUANGONG ORDER BY; 加班费 DESC,职工编码 INTO DBF JIEGUO SET TALK ON RETURN 第二套 USE 价格 COPY TO PRICE USE PRICE SELE 2 USE 销售 SELE 1 SCAN SELE 2 LOCATE FOR 货号=A.货号 IF FOUND() IF 销量=5 SELE 1 REPLACE 单价 WITH 单价*1.1 ENDIF ELSE SELE 1 REPLACE 单价 WITH 单价*0.8 ENDIF ENDSCAN 第三套 SET TALK OFF USE F01 COPY TO F02 USE F02 SCAN S=B^2-4*A*C IF S=0 X=(-B+SQRT(S))/(2*A) Y=(-B-SQRT(S))/(2*A) REPLACE X1 WITH X REPLACE X2 WITH Y ELSE DELE ENDIF ENDSCAN PACK USE SET TALK ON 第四套 SET TALK OFF USE F02 COPY STRUCTURE TO F03 SELE 1 USE F01 SELE 2 USE F03 SELE 1 SCAN M=数据1 N=数据2 R=M%N DO WHILE R0 M=N N=R R=M%N ENDDO SELECT 2 APPEND BLANK REPLACE 最大公约数 WITH N SELE 1 ENDSCAN CLOSE ALL SET TALK ON 第五套 SET TALK OFF USE F01 COPY TO F02 USE F02 APPEND BLANK X=0 Y=0 Z=0 FO