COBOL高手请进

先进入0000段，然后执行PERFORM 1000。

在1000段，有GO TO 2000语句，所以跳转至2000段，2000和3000这两个段顺序执行。

0000段中的PERFORM 3000和PERFORM 2000这两个语句永远不会被执行。

所以使用GO TO语句一定要小心。

1　如果你的意思是 MOVE 123 TO A，变量A的类型是 PIC 9(5)，且 A= 45678的话，那么赋值后的A=00123，如果A的类型是 PIC X(5) 的话，赋值后的A=’123 ‘

2 应该是先执行段落然后再判断条件的

3 这个是先判断 在执行循环体

4 当读到最后一条记录时执行 *** 作

希望满意

COBOL语言测试

(只有部分答案,其他可在书上或电子文档找到)

一 名词解释(每题2分)共10分

1 HIGH-VALUE(一个字节)= FF LOW-VALUE(一个字节)= 00 QUOTE表示是引号

JUSTIFIED RIGHT表示是右对齐 POSITIVE表示是正数 NEGATIVE表示是负数

2 数据类型为”A”和”X”分别代表是:A字母X字符

3 解释bit, Byte, Word,半字, 双字及它们的关系(占多少位)

4 解释 01 B COPY LIB1

REPLACING A1 BY B1

A2 BY B2

A3 BY B3

A4 BY B4

5 解释TRANSFORM T FROM ‘TNU’ TO ‘’T为”TOTAL AMOUNT”

二 填空题(共33分)

1 (4分)

描述 数值 在内存中表示

02 A PIC 999V99 992 09920

02 A PIC 9(6) 8010 008010

02 A PIC P(3)9(2) 000011 11

02 A PIC －9999 ＋1268 _1268

02 A PIC S9(4)V99 -049 000049

02 A PIC $ Z(2) Z Z 001 $_ _01

02 A PIC ++++++ 00 _ _ _ _ _ _ _

02 A PIC $9(2) 99DB 856 19 $5619_ _

02 A PIC +Z(3)99 64 +_ _640

2 (2分)

77 T PIC 99999V9999

77 N PIC 99999,9

若T的原值为567 5685, MOVE T TO N

N为:67568,5

3 (2分)

77 R PIC 999PP

77 T PIC B99900

当R的在内存值为123时， MOVE R TO T

T为:_12300

4画出下列对应关系(4分)

外部十进制DISPLAY

外部浮点数DISPLAY

内部十进制COMP-3

定点二进制COMP

内部短浮点COMP-1

内部长浮点COMP-2

数值为14外部十进制为_F1F4_内部十进制_014C_定点二进制000E

5比较大小(2分)

EBCPIC码’V’_<_‘8’ ASCII码’V’_>_‘8’

6 (2分)

定点二进制：

在PIC子句中描述字符9的个数 占内存字节

1-4 2

5-9 4

10-18 8

7 (2分)

02 A PIC S9(3) SIGN IS LEADING SEPARATE

A为－648

60 F6 F4 F8

“--”在EBCDIC码中为60

8 (3分)

01 A

02 A1 PIC 9(3) SYNC LEFT VALUE 82

02 A2 PIC X(3) SYNC RIGHT VALUE ‘ABC’

02 A3 PIC 9(5) SYNC LEFT VALUE 82345

02 A4 PIC X(2) VALUE ‘RE’

02 A5 PIC 9(4) VALUE 123

画出上面变量在内存结构

9 (1分)

YC=>C

MULTIPLY Y _BY_ C

10 (2分)

DIVIDE 43 INTO 456 GIVING C REMAINDER D

C为_10_ D为_26_

11 (2分)

A=FGH_, B=KLM_, C=XYZ_, D 为PIC X(12)

MOVE 4 TO T

STRING A, B, C DELIMITED BY ALL SPACE WITH POINTER T INTO D

D为_ _ _ FGHKLMXYZ

12 (4分)

A=DATE_ _PSDASDFT_GDSGDTITY_

B PIC X(6), C PIC X(8), D PIC X(9)

UNSTRING A DELIMITED BY ‘R’ INTO B COUNT IN W

W为_25_

MOVE 7 TO U

UNSTRING A INTO B,C,D WITH POINTER U TALLYING IN N

N为_3_

13 (2分)

INSPECT A TALLYING N FOR ALL ‘L’

REPACING LEADING A BY ‘E’ AFTER ‘L’

A=SAALAMALI, N=2, A为SAALEMALI

14 (1分)

COBOL语言中变量名最长长度为_30_

三 判断题: (每题2分)共10分

177 A PIC 9(4)V99

77 B PIC $(6) 99

MOVE B TO A 是否可以为什么

2 IF B2-4AC NOT < 0 THEN

NEXT SENTENCE

ELSE

DISPLAY ‘B2-4AC<0’ 是否可以 为什么

3GOTO 0000-MAIN 是否可以 为什么

4表元素B(I+1),A(3+5) 是否可以 为什么

5定义一个变量

00 WORK-RECORD

01 NAME PIC X(20) 是否可以 为什么

四 简答: (共47分)

1 COBOL程序的结构并说明和包含四个部(中英文)及作用 (10分)

2 COBOL源程序的书写格式并加以说明(3分)

3 在层次的概念中, 层次结构是什么, 层次规定是什么,66层,77层, 88层一般用于定义什么

(8分)

4 (3分)

01 PAY-RECORD 01 EDITTED-RECORD

04 A1 PIC 9(4)V99 04 B3 PIC ZZZZ99

04 A2 PIC 9(4)V99 04 A2 PIC ZZZ999

04 A3 PIC 9(3)V99 04 A1 PIC ZZZ999

MOVE CORR PAY-RECORD TO EDITTED-RECORD 左边这个语句相当于：

MOVE A1 OF PAY-RECORD TO A1 OF EDITTED-RECORD

MOVE A2 OF PAY-RECORD TO A2 OF EDITTED-RECORD

5 (3分)

01 A

02 A1 PIC 9(3)

02 A2 PIC 9(2)V99

02 A3 PIC 9V9

01 B

02 A1 PIC 99V99

02 A3 PIC 9V9

02 A2 PIC 99V99

ADD CORR A TO B 左边这个语句相当于：

ADD A1 OF A TO A1 OF B

ADD A2 OF A TO A2 OF B

ADD A3 OF A TO A3 OF B

6 (4分)

将下面公式对应的COBOL语句(禁止用COMPUTE)

C = A + B + C

COBOL语句:ADD A,B TO C

D = Z-A-B-C

E = Z-A-B-C

F = Z-A-B-C

COBOL语句(用一条语句写):

SUBTRACT A,B,C FROM Z GIVING D,E,F

6 (2分)

将下面COBOL语句对应的数学公式

DIVIDE Y INTO Z GIVING C C=Z/Y

DIVIDE Y BY Z GIVING C C=Y/Z

7 (2分)

根据优先级顺序用括号画出优先级

(X=Y) OR ((T=W) AND (G IS NOT POSITIVE)) AND (C>D))

8 (6分)

根据下图写出COBOL语句

A->X

当X<= 5

执行T1到T2段

X+B->X

执行PERFORM的下一语句

PERFORM T1 THRU T2 VARYING X FROM A

BY B UNTIL X > 5

9解释下面COBOL语句(4分)

01 STUDENT-SCORE-RECORD

03 NAME PIC X(10)

03 QTY-OF-COURSE PIC 9(2)

03 SCORE OCCURS 1 TO 15 TIMES

DEPENDING ON QTY-OF-COURSE PIC 9(3)

11 (2分)

’LABEL RECORD IS STANDARD’和’LABEL RECORD IS OMITTED’区别

以上就是关于COBOL高手请进全部的内容，包括:COBOL高手请进、COBOL 问题、关于cobol有关的书面练习题等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！