云南大学新型主机与操作系统期末试卷A(附答案)

1、云南大学2010至2011学年上学期软件学院新型主机语言编程期末考试（闭卷）试卷A满分100分 考试时间：120分钟 任课教师：于倩学院：专业：学号：姓名：题号一二三四五六七总分得分一、 填空题(15分，每空1分)：1、 传统COBOL程序书写方式为固定格式，每行源程序从左开始分为_标号_区、_续行_区、_A_区、_B_区和_注释_区。2、 从下列提供的字符串中选择出所有合法的COBOL数据名_BD_A、LI- B、YU-QIAN C、STU_NAME D、1234A53、按下列语义写出对应的语句（注意不能使用COMPUTE语句，每个横线只能写一个COBOL语句）：(1) A+B=>A

2、_ADD B TO A_(2) X+Y=>C X+Y=>D _ADD X,Y GIVING C,D_(3) X-11-22=>Y SUBTRACT 11, 22 FROM X GIVING Y.(4) X-A-B-C-D=>X Y-A-B-C-D=>Y _ SUBTRACT A, B, C, D FROM X, Y.(5) C*D=>D C*F=>F MULTIPLY C BY D, F.(6) A/B=>XA/B=>Y DIVIDE A BY B GIVNG X, Y._或者 DIVIDE B INTO A GIVING X, Y._4、

3、假如Y是数值型整数数据项，声明为： 77 Y PIC 9999 VALUE 4321.写出执行下列语句后Y的内容(1) MOVE 1.234 TO Y. Y: _0001(2) MOVE 12 TO Y. Y: _0012 _ _ _(3) MOVE 123456 TO Y. Y: _3456 _ _ _二、 判断下列数据项声明是否正确（在横线上打或×，5分，每题1分）(1) 01 A PIC 9(5) USAGE DISPLAY. （ ）(2) 77 A PIC 9(5) COMP-1. （ × ）(3) 01 A PIC 9(5) COMP-2. （ × ）(

4、4) 77 A PIC 9(5) COMP-3. （ ）(5) 01 A OCCURS 10 PIC 9(5). （ × ） 三、 简答题（20分）1、有如下A1到A7段A1. A2. PERFORM A4 THRU A5.A3. A4. PERFORM A6.A5. A6. A7. 现在执行如下语句PERFORM A2 THRU A6时，请写出顺序执行的各段段名（10分） 答案：A2-A4-A6-A5-A3-A4-A6-A5-A6（全对给分，有错酌情扣分）2、已有02 XYZ03 X PIC 9(6).03 Y PIC X(4).03 Z PIC A(5).02 ABC REDEF

5、INES XYZ.04 A PIC X(2).04 B PIC A(6).04 C.05 C1 PIC 9(2).05 C2 PIC X(5).02 DEF REDEFINES XYZ PIC X(15)请在试卷左边画出内存中数据存放的情况。（10分）XYZ,ABC,DEFXYZ9(6)X(4)A(5)ABCC1C2X(2)A(6)9(2)X(5)XYZX(15)四、 根据要求，写出程序片断（只要求写出过程部的一部分）（20分）(1)根据如图流程图，在图的右边写出其对应代码（10分）1<I<100I>10R=0.8R=0.4R=0.2TFTFA=300因为是程序设计类题，学生

6、可以用不同方式来实现。全对给分，有错酌情扣分（1）IF I < 100 AND I > 0 1分IF I > 10 1分MOVE 0.8 TO R 1分ELSE 1分 MOVE 0.4 TO R 1分END-IF 1分MOVE 300 TO A 1分ELSE 1分MOVE 0.2 TO R 1分END-IF 1分(2)有如下代码片段，请用IN-LINE方式（PERFORM循环）改写该外线方式的PERFORM语句（10分）。PERFORM ABC VARYING HUNDREDSCNT FROM 0 BY 1 UNTIL HUNDREDSCNT > 9 AFTER TEN

7、SCNTFROM 0 BY 1 UNTIL TENSCNT > 9 AFTER UNITSCNT FROM 0 BY 1 UNTIL UNITSCNT > 9 .ABC. MOVE HUNDREDSCNT TO PRNHUNDS MOVE TENSCNT TO PRNTENS MOVE UNITSCNT TO PRNUNITS DISPLAY PRNHUNDS "-" PRNTENS "-" PRNUNITSPERFORM VARYING HUNDREDSCNT FROM 0 BY 1 UNTIL HUNDREDSCNT > 9 2分

8、PERFORM VARYING TENSCNT FROM 0 BY 1 UNTIL TENSCNT > 9 2分 PERFORM VARYING UNITSCNT FROM 0 BY 1 UNTIL UNITSCNT > 9 2分 MOVE HUNDREDSCNT TO PRNHUNDS MOVE TENSCNT TO PRNTENS 1分 MOVE UNITSCNT TO PRNUNITS DISPLAY PRNHUNDS "-" PRNTENS "-" PRNUNITS END-PERFORM 1分 END-PERFORM 1分END-P

9、ERFORM. 1分给出下列程序运行后的输出（20分）第 9 页 共 9页 1、IDENTIFICATION DIVISION. PROGRAM-ID. X1. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 77 P1 PIC ZZZ. 77 P2 PIC *. 77 P3 PIC -. 01 A. 02 A1 PIC AA. 02 A2 PIC 99. 02 A3 PIC AA. 01 B. 02 B1 PIC 999. 02 B2 PIC 999. PROCEDURE DIVISION. S. MOVE 1200

10、56 TO A. MOVE A TO B. DISPLAY A. DISPLAY A1. DISPLAY A2. DISPLAY A3. DISPLAY B1. DISPLAY B2. DIVIDE 2 INTO B2 DISPLAY B2. MOVE B2 TO P1. MOVE A2 TO P2. MOVE B2 TO P3. DISPLAY P1. DISPLAY P2. DISPLAY P3. STOP RUN. 2、IDENTIFICATION DIVISION. PROGRAM-ID. X2. ENVIRONMENT DIVISION. DATA DIVISION. WORKING

11、-STORAGE SECTION. 77 A PIC +9.99999E+99. 77 B PIC +9V99999E-99. 77 C PIC 999 COMP. 77 D PIC 999. 77 E PIC 9. PROCEDURE DIVISION. S. MOVE 20000000000000.34 TO A. MOVE -0.000000003123 TO B. DISPLAY A. DISPLAY B. MOVE B TO A. DISPLAY A. DIVIDE 2 INTO B GIVING A. DISPLAY A. MOVE 314 TO C. DISPLAY C. DIV

12、IDE 3 INTO C GIVING D ROUNDED REMAINDER E. DISPLAY D. DISPLAY E. STOP RUN.1、每行一分12005612 00 56 120 056 028 28 * 28 2、除了标明2分的其余都是1分+2.00000E+13 -312300E-09 -3.12300E-09 2分-1.56150E-09 2分314 105 2 2分 五、 按要求改写程序（10分）将下列PERFORM过程调用的程序改写成子程序调用并实现相同功能（使用内部或外部子程序均可），将程序写在竖线右部。 IDENTIFICATION DIVISION. PROG

13、RAM-ID. X1. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 77 A PIC 99. 77 B PIC 99. 77 C PIC 999. PROCEDURE DIVISION. S. MOVE 12 TO A. MOVE 34 TO B. PERFORM SUBPRG. DISPLAY C. STOP RUN. SUBPRG. COMPUTE C = (A + B) * 4.评分标准：按步骤给分，正确方法有很多种。如果学生采用不同方法来实现，根据其实现方法分步给分1 IDENTIFICATION DIVI

14、SION. 1分 PROGRAM-ID. X1. ENVIRONMENT DIVISION. DATA DIVISION. 1分 WORKING-STORAGE SECTION. 1分 77 A PIC 99. 77 B PIC 99. 77 C PIC 999. PROCEDURE DIVISION. 1分 S. MOVE 12 TO A. MOVE 34 TO B. CALL 'ADDSUB' USING A, B, C. 2分 DISPLAY C. 1分 STOP RUN. IDENTIFICATION DIVISION. PROGRAM-ID. ADDSUB. ENVI

15、RONMENT DIVISION. DATA DIVISION. LINKAGE SECTION. 2分 77 A PIC 99. 77 B PIC 99. 77 C PIC 999. PROCEDURE DIVISION USING A, B, C. S. COMPUTE C = (A + B) * 4. 1分 EXIT PROGRAM. 1分 END PROGRAM ADDSUB. END PROGRAM X1.六、 程序设计填空题（10分）设计一个程序，从磁盘读入一个不大于19的非负整数，计算其阶乘，结果放入一个18位整数数据项中。然后在屏幕显示结果（要求取消前导0）（说明：M存放阶乘，PM用于显示阶乘的计算结果）IDENTIFICATION DIVISION. PROGRAM-ID. EXAM4A2. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 77 N PIC 99. 77 M PIC 9(18) VALUE 1. 77 IDX PIC 99. 77 PM PIC Z(18) . （2分） PROCEDURE DIVISION. S. ACCEPT N. （2分） IF N > 19 DISPLAY 'INPUT ERRO,