- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
云南大学2010至2011学年上学期软件学院
《新型主机语言编程》期末考试(闭卷)试卷A
满分100分 考试时间:120分钟 任课教师:于倩
学院:___专业:____学号:____姓名:____
题号 一 二 三 四 五 六 七 总分 得分填空题15分,每空1分:
传统COBOL程序书写方式为固定格式,每行源程序从左开始分为____标号_区、_续行____区、_A_____区、_____B____区和___注释___区。
从下列提供的字符串中选择出所有合法的COBOL数据名___BD______
A、LI-B、YU-QIANC、STU_NAMED、1234A5
3、按下列语义写出对应的语句(注意不能使用COMPUTE语句,每个横线只能写一个COBOL语句):
1 A+BA__ADD B TO A____________________
2 X+YCX+YD__ADD X,Y GIVING C,D_______________
3 X-11-22YSUBTRACT 11, 22 FROM X GIVING Y.
4 X-A-B-C-DXY-A-B-C-DY_ SUBTRACT A, B, C, D FROM X, Y.
5 C*DDC*FFMULTIPLY C BY D, F.
6 A/BXA/BYDIVIDE A BY B GIVNG X, Y._
或者 DIVIDE B INTO A GIVING X, Y._
4、假如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 95 USAGE DISPLAY. ( √)
2 77 A PIC 95 COMP-1.( ×)
3 01 A PIC 95 COMP-2.( ×)
4 77 A PIC 95 COMP-3.( √)
5 01 A OCCURS 10 PIC 95.( ×)
简答题(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 XYZ
03 X PIC 96.
03 Y PIC X4.
03 Z PIC A5.
02 ABC REDEFINES XYZ.
04 A PIC X2.
04 B PIC A6.
04 C.05 C1 PIC 92.05 C2 PIC X5.
02 DEF REDEFINES XYZ PIC X15
请在试卷左边画出内存中数据存放的情况。(10分)
XYZ,ABC,DEF X Y Z 96 X4 A5 A B C C1 C2 X2 A6 92 X5 XYZ X15根据要求,写出程序片断(只要求写出过程部的一部分)(20分)
1根据如图流程图,在图的右边写出其对应代码(10分)
因为是程序设计类题,学生可以用不同方式来实现。全对给分,有错酌情扣分
(1)
IF I 100 AND I 01分
IF I 101分
MOVE 0.8 TO R1分
ELSE1分MOVE 0.4 TO R1分
END-IF1分
MOVE 300 TO A1分
ELSE1分
MOVE 0.2 TO R1分
END-IF1分2有如下代码片段,请用IN-LINE方式(PERFORM循环)改写该外线方式的PERFORM语句(10分)。
PERFORM ABCVARYING HUNDREDSCNT FROM 0 BY 1 UNTIL
HUNDREDSCNT 9 AFTER TENSCNT
FROM 0 BY 1 UNTIL TENSCNT 9AFTER UNITSCNT FROM 0 BY 1
UNTIL UNIT
文档评论(0)