云南大學新型主機與操作系統(tǒng)期末試卷A(附答案)

1、云南大學2010至2011學年上學期軟件學院新型主機語言編程期末考試（閉卷）試卷A滿分100分 考試時間：120分鐘 任課教師：于倩學院：專業(yè)：學號：姓名：題號一二三四五六七總分得分一、 填空題(15分，每空1分)：1、 傳統(tǒng)COBOL程序書寫方式為固定格式，每行源程序從左開始分為_標號_區(qū)、_續(xù)行_區(qū)、_A_區(qū)、_B_區(qū)和_注釋_區(qū)。2、 從下列提供的字符串中選擇出所有合法的COBOL數(shù)據(jù)名_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是數(shù)值型整數(shù)數(shù)據(jù)項，聲明為： 77 Y PIC 9999 VALUE 4321.寫出執(zhí)行下列語句后Y的內容(1) MOVE 1.234 TO Y. Y: _0001(2) MOVE 12 TO Y. Y: _0012 _ _ _(3) MOVE 123456 TO Y. Y: _3456 _ _ _二、 判斷下列數(shù)據(jù)項聲明是否正確（在橫線上打或×，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. 現(xiàn)在執(zhí)行如下語句PERFORM A2 THRU A6時，請寫出順序執(zhí)行的各段段名（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)請在試卷左邊畫出內存中數(shù)據(jù)存放的情況。（10分）XYZ,ABC,DEFXYZ9(6)X(4)A(5)ABCC1C2X(2)A(6)9(2)X(5)XYZX(15)四、 根據(jù)要求，寫出程序片斷（只要求寫出過程部的一部分）（20分）(1)根據(jù)如圖流程圖，在圖的右邊寫出其對應代碼（10分）1<I<100I>10R=0.8R=0.4R=0.2TFTFA=300因為是程序設計類題，學生

6、可以用不同方式來實現(xiàn)。全對給分，有錯酌情扣分（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循環(huán)）改寫該外線方式的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過程調用的程序改寫成子程序調用并實現(xiàn)相同功能（使用內部或外部子程序均可），將程序寫在豎線右部。 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.評分標準：按步驟給分，正確方法有很多種。如果學生采用不同方法來實現(xiàn)，根據(jù)其實現(xiàn)方法分步給分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的非負整數(shù)，計算其階乘，結果放入一個18位整數(shù)數(shù)據(jù)項中。然后在屏幕顯示結果（要求取消前導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,