COBOL学习第三天

最新推荐文章于 2022-05-02 21:29:16 发布

luoke_li

最新推荐文章于 2022-05-02 21:29:16 发布

阅读量2.4k

点赞数

本文链接：https://blog.csdn.net/luoke_li/article/details/1746749

版权

2007-8-12 COBOL语言程序随堂笔记摘要

缓和下气分，一天7小时对电脑搞程序快要死人了！

小笑话一个：

爹对儿子说，我想给你找个媳妇。

儿子说，可我愿意自己找！爹说，但这个女孩子是比尔盖茨的女儿！儿子说，要是这样，可以。

然后他爹找到比尔盖茨，说，我给你女儿找了一个老公。比尔盖茨说，不行，我女儿还小！爹说，可是这个小伙子是世界银行的副总裁！比尔盖茨说，啊，这样，行！

最后，爹找到了世界银行的总裁，说，我给你推荐一个副总裁！总裁说，可是我有太多副总裁了，多余了！爹说，可是这个小伙子是比尔盖茨的女婿！总裁说，这样呀，行！

好了，进入今天的内容：

过程部常用语句及其操作

算数运算语句

1。ADD语句：
格式1：ADD 标识符1 ，标识符2。。。 TO 标识符m [，标识符n]。。。
常量1 ，常量2

格式2：ADD 标识符1 ，标识符2 ，标识符3
常量1 ，常量2 ，常量3

。。。GIVING 标识符m [，标识符n]。。。

2。SUBTRACT语句：
格式1：SUBTRACT 标识符1 ，标识符2 。。。 FROM 标识符m [，标识符n]。。。
常量1 ，常量2

     格式2：SUBTRACT       标识符1      ，标识符2   。。。 FROM      标识符
                                   常量1          ，常量2                                       常量
     GIVING 标识符n [，标识符p]。。。

3。MULTIPLY语句：
格式1：MULTIPLY 标识符1 BY 标识符2 [，标识符3]。。。
常量1，

     格式2：MULTIPLY        标识符1         BY 标识符2 GIVING 标识符3 [，标识符4]。。。
                              常量1 ，常量2
4。DIVIDE语句：
     格式1：DIVIDE              标识符1         INTO 标识符2 [，标识符3]。。。
                              常量1

格式2：DIVIDE 标识符1 INTO 标识符2 GIVING 标识符3 [，标识符4]。。。
常量1 BY 常量2

B          à     注意： DIVIDE   A INTO B   是指   B/A
DIVIDE A INTO Cà B   GIVING C    是指 B/A
                 DIVIDE   A BY     B   C àGIVING C    是指   A/B
5。COMPUTE 语句：
                 COMPUTE           标识符1 [，标识符2 ]。。。= 算术表达式
                 运算的优先级由高到低顺序为：（），正负号，**（次方），* 或 /   ，+ 或 -
                 如：C = 3 ，D = 5 ，E = 2 ， F = 1 则：
                 COMPUT   A，B = -（C + D）* 2 / E ** 3 - F = -3
注意1。每个语句中红色标记的部分，不同的语句之间不要弄混。

2．计算都遵循：右标识符算数运算符左标识符（A +/-/*// B）

3．其中BY在乘除法中都可以用，区别在于前面的关键字。

对比BY 和 INTO都表示除法时的不同：BY是前除以后，INTO是后除以前。

6．自己动手写个小程序

算术语句的说明

l 四舍五入处理（ROUNDED子句）：

ADD A，B TO C ROUNDED，E，F ROUNDED

COMPUTE A ROUNDED = B*C +D

l 长度益处处理（ON SIZE ERROR子句）：

MULTIPLY A BY B GIVING C

ON SIZE ERROR DISPLAY ‘SIZE ERROR’

STOP RUN。

DISPLAY C。

l 当ROUNDED与ON SIZE ERROR一起使用时，先按ROUNDED做四舍五入再判断是否益出。

l 除法语句中的余数语句（REMAINDER子句）：

DIVIDE A INTO B GIVING C REMAINDER D

注意：长度益出只检查商的值而不检查余数。

传送语句（MOVE）
        MOVE 语句用来实现内存中数据的传送（而不是内存和外设之间的传送）。
        MOVE语句的一般格式为：
MOVE          标识符1        TO          标识符2 [，标识符3]。。。
                      常量1
MOVE语句的传送规则：
1，如果接收项和发送项在数据部中描述的类型和长度相同，则按字节一一对应传送。
2，如果接收项和发送项长度不相同，而二者都是数值数据项，则按小数点对齐处理。
3，对字母或字符数据（非数值型数据）的传送，按左对齐处理。
4，初等项和组合项之间可以相互传送。
        关于各类数据之间的传送规则将在第五章中介绍。
转移语句（GO TO）
        当需要使程序改变正常执行的顺序时，可以使用无条件转移语句 GO TO 。其一般格式为：
        格式1： GO         TO     过程名
        格式2：      GO          TO    过程名1 [，过程名2]。。过程名n   DEPENDING    ON      标识符

        注意：只能转移到段或节的开头，不能转移到段或节的当中某一语句。段名或节名为过程名。
条件语句（IF）
        当需要根据给出的某些条件是否满足来决定应执行哪一部分语句时，可以使用条件语句IF。
        其一般格式为：
         IF         条件     语句组1               ELSE       语句组1                   [END-IF]
                                NEXT SENTENCE                      NEXT SENTENCE

         COBOL关系运算符： IS         GREATER     THAN    (>)
   IS         LESS              THAN    (<)
   IS         EQUAL          TO          (=)
   NOT    GREATER     THAN    (NOT >) (<=)
   NOT    LESS              THAN    (NOT <) (>=)
   NOT    EQUAL          TO         (NOT =)
注意：句点在IF 语句中的特殊作用。
如：IF    A > 0
                                             DISPLAY        A。
         ADD          A          TO    TOTAL。
         DISPLAY         TOTAL。
与   IF    A > 0
               DISPLAY A
                ADD         A     TO    TOTAL。
        DISPLAY        TOTAL。就不同。
为避免出现问题应该使用显式终止符（END-IF，END-PERFORM等）代替隐式终止符（句点“。”）
停止语句（STOP）
        其一般格式为：           STOP          RUN
           常量
        STOP   RUN 执行后，程序停止运行，停止后不能再接着运行，如需要，可重新运行一次。
        STOP 常量，表示程序暂时挂起不往下执行，显示出此常量。
返回语句（GOBACK）
        停止运行，将控制权返回给上一级。可用本语句代替STOP语句。子程序必须用GOBACK而
不能用STOP：因为STOP停止的是一个

RUN UNIT（运行单元）。

执行语句

执行语句的作用：在一个COBOL程序中，过程部中往往有一部分语句需要执行多次。为了让重复的部分在程序中只出现一次，可以把重复的部分单独写成一段或一节（有一个段名或节名），每次执行这部分语句时转去该段，执行完转回来。这时候就需要用到执行语句（PERFORM. ）。
执行语句的一般形式：
            PERFORM           过程名1        [THRU]                过程名2

使用PERFORM语句实现循环：
1。 PERFORM           过程名1        [{THRU}                过程名2   ]        整数         TIMES
                                                                                                                                         标识符
   2。 PERFORM           过程名1        [{THRU}                过程名2   ]        UNTIL     条件

3。 PERFORM           过程名1        [{THRU}                过程名2   ]
  VARYING    标识符1        FROM   常数1        BY       常数2             UNTIL   条件
                                                                    标识符2                            标识符3
执行语句的多重循环形式：COBOL 允许三重循环，其一般格式可写为：
PERFORM          过程名1        [{THRU}                过程名2   ]
  [VARYING   参数1        FROM   初值1        BY       步长1             UNTIL   条件1 ]
  [AFTER         参数2        FROM   初值2        BY       步长2             UNTIL   条件2 ]
  [AFTER         参数3        FROM   初值3        BY       步长3             UNTIL   条件3 ]
出口语句（EXIT）：EXIT语句提供了一组过程的公共出口，即指出了被调用过程的逻辑终点。