第1页共9页云南大学2010至2011学年上学期软件学院《新型主机语言编程》期末考试（闭卷）试卷A满分100分考试时间：120分钟任课教师：于倩学院：＿＿＿专业：＿＿＿＿学号：＿＿＿＿姓名：＿＿＿＿一、填空题(15分，每空1分)：1、传统COBOL程序书写方式为固定格式，每行源程序从左开始分为____标号_区、_续行____区、_A_____区、_____B____区和___注释___区。2、从下列提供的字符串中选择出所有合法的COBOL数据名___BD______A、LI-B、YU-QIANC、STU_NAMED、1234A53、按下列语义写出对应的语句（注意不能使用COMPUTE语句，每个横线只能写一个COBOL语句）：(1)A+B=>A__ADDBTOA____________________(2)X+Y=>CX+Y=>D__ADDX,YGIVINGC,D_______________(3)X-11-22=>YSUBTRACT11,22FROMXGIVINGY.(4)X-A-B-C-D=>XY-A-B-C-D=>Y_SUBTRACTA,B,C,DFROMX,Y.(5)C*D=>DC*F=>FMULTIPLYCBYD,F.(6)A/B=>XA/B=>YDIVIDEABYBGIVNGX,Y._题号一二三四五六七总分得分第2页共9页或者DIVIDEBINTOAGIVINGX,Y._4、假如Y是数值型整数数据项，声明为：77YPIC9999VALUE4321.写出执行下列语句后Y的内容(1)MOVE1.234TOY.Y:_0001(2)MOVE12TOY.Y:_0012___(3)MOVE123456TOY.Y:_3456___二、判断下列数据项声明是否正确（在横线上打√或×，5分，每题1分）(1)01APIC9(5)USAGEDISPLAY.（√）(2)77APIC9(5)COMP-1.（×）(3)01APIC9(5)COMP-2.（×）(4)77APIC9(5)COMP-3.（√）(5)01AOCCURS10PIC9(5).（×）三、简答题（20分）1、有如下A1到A7段A1.⋯A2.PERFORMA4THRUA5.A3.⋯A4.PERFORMA6.A5.⋯A6.⋯A7.⋯现在执行如下语句PERFORMA2THRUA6时，请写出顺序执行的各段段名（10分）答案：A2-A4-A6-A5-A3-A4-A6-A5-A6（全对给分，有错酌情扣分）第3页共9页2、已有02XYZ03XPIC9(6).03YPICX(4).03ZPICA(5).02ABCREDEFINESXYZ.04APICX(2).04BPICA(6).04C.05C1PIC9(2).05C2PICX(5).02DEFREDEFINESXYZPICX(15)请在试卷左边画出内存中数据存放的情况。（10分）XYZ,ABC,DEFXYZ9(6)X(4)A(5)ABCC1C2X(2)A(6)9(2)X(5)XYZX(15)第4页共9页四、根据要求，写出程序片断（只要求写出过程部的一部分）（20分）(1)根据如图流程图，在图的右边写出其对应代码（10分）因为是程序设计类题，学生可以用不同方式来实现。全对给分，有错酌情扣分（1）IFI<100ANDI>01分IFI>101分MOVE0.8TOR1分ELSE1分MOVE0.4TOR1分END-IF1分MOVE300TOA1分ELSE1分MOVE0.2TOR1分END-IF1分110R=0.8R=0.4R=0.2TFTFA=300第5页共9页(2)有如下代码片段，请用IN-LINE方式（PERFORM循环）改写该外线方式的PERFORM语句（10分）。PERFORMABCVARYINGHUNDREDSCNTFROM0BY1UNTILHUNDREDSCNT>9AFTERTENSCNTFROM0BY1UNTILTENSCNT>9AFTERUNITSCNTFROM0BY1UNTILUNITSCNT>9......ABC.MOVEHUNDREDSCNTTOPRNHUNDSMOVETENSCNTTOPRNTENSMOVEUNITSCNTTOPRNUNITSDISPLAYPRNHUNDS"-"PRNTENS"-"PRNUNITSPERFORMVARYINGHUNDREDSCNTFROM0BY1UNTILHUNDREDSCNT>92分PERFORMVARYINGTENSCNTFROM0BY1UNTILTENSCNT>92分PERFORMVARYINGUNITSCNTFROM0BY1UNTILUNITSCNT>92分MOVEHUNDREDSCNTTOPRNHUNDSMOVETENSCNTTOPRNTENS1分MOVEUNITSCNTTOPRNUNITSDISPLAYPRNHUNDS"-"PRNTENS"-"PRNUNITSEND-PERFORM1分END-PERFORM1分END-PERFORM.1分第6页共9页给出下列程序运行后的输出（20分）1、IDENTIFICATIONDIVISION.PROGRAM-ID.X1.ENVIRONMENTDIVISION.DATADIVISION.WORKING-STORAGESECTION.77P1PICZZZ.77P2PIC***.77P3PIC---.01A.02A1PICAA.02A2PIC99.02A3PICAA.01B.02B1PIC999.02B2PIC999.PROCEDUREDIVISION.S.MOVE120056TOA.MOVEATOB.DISPLAYA.DISPLAYA1.DISPLAYA2.DISPLAYA3.DISPLAYB1.DISPLAYB2.DIVIDE2INTOB2DISPLAYB2.MOVEB2TOP1.MOVEA2TOP2.MOVEB2TOP3.DISPLAYP1.DISPLAYP2.DISPLAYP3.STOPRUN.2、IDENTIFICATIONDIVISION.PROGRAM-ID.X2.ENVIRONMENTDIVISION.DATADIVISION.WORKING-STORAGESECTION.77APIC+9.99999E+99.77BPIC+9V99999E-99.77CPIC999COMP.77DPIC999.77EPIC9.PROCEDUREDIVISION.S.MOVE20000000000000.34TOA.MOVE-0.000000003123TOB.DISPLAYA.DISPLAYB.MOVEBTOA.DISPLAYA.DIVIDE2INTOBGIVINGA.DIS...
