文档章节

cobol学习之六数值的运算

指尖残雪
 指尖残雪
发布于 2016/05/22 23:56
字数 390
阅读 16
收藏 0

首先来一段代码:

000010 IDENTIFICATION 			DIVISION.
000011   PROGRAM-ID.			LESSON01-1.			
000020 ENVIRONMENT			DIVISION.
000030 DATA				DIVISION.
000040 WORKING-STORAGE			SECTION.
000050 77 				N PIC 99.
000060 PROCEDURE			DIVISION.
000070 	   ACCEPT N.
000080     ADD 3 TO N.
000081     DIVIDE 5 INTO N.
000082     SUBTRACT 2 FROM N.
000083     MULTIPLY 8 BY N.
000090     DISPLAY N.
000100     STOP RUN.

加法语句(ADD)
例:ADD A TO B. B=B+A 表示数据项A的值和数据项B的值相加,结果置于B中。


减法语句(SUBTRACT)
SUBTRACT Y FROM Z. Z=Z-Y


乘法语句(MULTIPLY)
例:
MULTIPLY  A  BY  B.  B=B*A
MULTIPLY  A  BY  B  GIVING C. C=A*B


除法语句(DIVIDE)
例:DIVIDE Z INTO X.  X=X/Z
DIVIDE 2 INTO Z  GIVING  X. X=Z/2




四种算术语句的小结
1.一个语句只能进行一种单一的运算,
  不能在一个语句中实现两种不同的运算.


2.加法和减法语句可以进行两个以上数值量的计算.


3.四种算术语句都有两种形式,
  即带有GIVING部分和不带GIVING.


另外:前面加上COMPUTE 就可以像其他语言一样进行数值运算

例如 COMPUTE A = Z / C.

COMPUTE Q = ( A + B ) * D. 


000010 IDENTIFICATION			DIVISION.
000020  PROGRAM-ID.			STUDY3-103.
000030 ENVIRONMENT			DIVISION.
000040 DATA				DIVISION.
000050  WORKING-STORAGE			SECTION.
000060  77 				R PIC 9(2).
000070  77				L PIC 99V9.
000080  77				S PIC 9(5)V9(2).
000090  77 				R-P PIC 9(2).
000100  77				L-P PIC 99.9.
000110  77				S-P PIC *(5).9(2).
000111  77                              A PIC 9V99.
000120 PROCEDURE			DIVISION.
000121     MOVE 3.14 TO A
000130     ACCEPT R.
000140     COMPUTE L = ( R * 2 ) * A.
000150     COMPUTE S = R * R * A .
000160     MOVE R TO R-P.
000170     MOVE L TO L-P.
000180     MOVE S TO S-P.
000190     DISPLAY 'R = ' R-P.
000200     DISPLAY 'L = ' L-P.
000210     DISPLAY 'S = ' S-P.


本文转载自:http://blog.csdn.net/bq1073100909/article/details/41148819

共有 人打赏支持
指尖残雪
粉丝 7
博文 73
码字总数 0
作品 0
上海
后端工程师
商用编程语言--COBOL

COBOL(面向商业的通用语言,又称为企业管理语言、数据处理语言等,Common Business Oriented Langauge)是最早的高级编程语言之一,是世界上第一个商用语言。 COBOL是一种面向数据处理的、面...

匿名
2009/04/12
10.8K
1
【讲古堂】浮点数

【讲古堂】浮点数 (dubenju@126.com 2015/12/19) 众所周知,由于用高低电平的电路很容易实现二进制,所以在计算机中普遍采用二进制来存储数据。对应的二进制的位用Bit来表示。1字节=8Bits,...

壶漏子
2015/12/19
57
0
COBOL 语言联合设计师 Jean Sammet 去世,终年 89 岁

《纽约时报》6月4日发表了 COBOL 编程语言的联合设计师 Jean Sammet 的讣告: Jean E. Sammet 于 5 月 20 日在马里兰去世,享年 89 岁。Jean E. Sammet 是 COBOL 语言最早的工程师和联合设计...

王练
2017/06/05
1K
13
C语言/C++编程学习之二进制原码、反码和补码

C语言是面向过程的,而C++是面向对象的 C和C++的区别: C是一个结构化语言,它的重点在于算法和数据结构。C程序的设计首要考虑的是如何通过一个过程,对输入(或环境条件)进行运算处理得到...

小辰带你看世界
05/17
0
0
python学习之数字

coerce() 内建函数来帮助你实现这种转换 *位运算符(只适用于整数) 位运算符 功能 ~num 单目运算,对数的每一位取反。结果为 num1 << num2 Num1 左移 num2 位 num1 >> num2 Num1 右移 num2...

happyliferao
2015/10/12
5
0

没有更多内容

加载失败,请刷新页面

加载更多

如何通过 J2Cache 实现分布式 session 存储

做 Java Web 开发的人多数都会需要使用到 session (会话),我们使用 session 来保存一些需要在两个不同的请求之间共享数据。一般 Java 的 Web 容器像 Tomcat、Resin、Jetty 等等,它们会在...

红薯
今天
3
0
C++ std::thread

C++11提供了std::thread类来表示一个多线程对象。 1,首先介绍一下std::this_thread命名空间: (1)std::this_thread::get_id():返回当前线程id (2)std::this_thread::yield():用户接口...

yepanl
今天
3
0
Nignx缓存文件与动态文件自动均衡的配置

下面这段nginx的配置脚本的作用是,自动判断是否存在缓存文件,如果有优先输出缓存文件,不经过php,如果没有,则回到php去处理,同时生成缓存文件。 PHP框架是ThinkPHP,最后一个rewrite有关...

swingcoder
今天
2
0
20180920 usermod命令与用户密码管理

命令 usermod usermod 命令的选项和 useradd 差不多。 一个用户可以属于多个组,但是gid只有一个;除了gid,其他的组(groups)叫做扩展组。 usermod -u 1010 username # 更改用户idusermod ...

野雪球
今天
3
0
Java网络编程基础

1. 简单了解网络通信协议TCP/IP网络模型相关名词 应用层(HTTP,FTP,DNS等) 传输层(TCP,UDP) 网络层(IP,ICMP等) 链路层(驱动程序,接口等) 链路层:用于定义物理传输通道,通常是对...

江左煤郎
今天
3
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部