文档章节

cobol学习之六数值的运算

指尖残雪
 指尖残雪
发布于 2016/05/22 23:56
字数 390
阅读 16
收藏 0
点赞 2
评论 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
Unity——Bit编程,可用于计算技能解锁\装备购买并初步加密,降低内存占有量并提高安全性

在游戏开发中,有时候我们通过进行Bit级别的编程,可以实现技能解锁装备购买等存储,并实现初步加密,降低内存所占空间,并极大提高数据安全性! —————————————————————...

htlas
03/27
0
0
OpenCV函数记录(二)

目录 前言 OpenCV函数记录(一) OpenCV1.0 函数记录 OpenCV2.0 函数记录 滑动条是OpenCV动态调节参数的一种工具,它依附于窗口而存在。由于OpenCV中并没有实现按钮的功能,所以很多时候,我...

simonforfuture
2017/12/21
0
0
打造自己的Android源码学习环境之六:运行Android模拟器

打造自己的Android源码学习环境之六:运行Android模拟器 0. 运行Android模拟器 接上一篇《打造自己的Android源码学习环境之五:编译Android源代码》。 如果是刚编译完,还没有退出Terminal,...

u013553529
2017/02/05
0
0
机器学习基础库Numpy入门

Numpy NumPy是Python语言的一个扩充程序库。支持高级大量的维度数组与矩阵运算,此外也针对数组运算提供大量的数学函数库。Numpy内部解除了Python的PIL(全局解释器锁),运算效率极好,是大量机...

木子昭
2017/12/31
0
0
TensorFlow入门教程

简介 TensorFlow是目前最流行的深度学习框架。我们先引用一段官网对于TensorFlow的介绍,来看一下Google对于它这个产品的定位。 TensorFlow™ is an open source software library for numer...

丹追兵
2017/11/29
0
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

告警系统主脚本、告警系统配置文件、告警系统监控项目

告警系统主脚本 为方便需要,所有的shell脚本放到 /usr/local/sbin/ 目录下 切换到 /usr/local/sbin/ 目录下,创建告警系统脚本 #!/bin/bash#Written by aming.# 是否发送邮件的开关(1表...

Zhouliang6
3分钟前
1
0
不要再问我跨域的问题了

原文链接:web.jobbole.com 【RTC实时互联网大会 限时免费 马上报名】www.bagevent.com 写下这篇文章后我想,要不以后就把这种基础的常见知识都归到这个“不要再问我XX的问题”,形成一系列内...

阿K1225
5分钟前
0
0
Tomcat配置虚拟路径

<?xml version="1.0" encoding="UTF-8"?> <Context docBase="/data/dispute_https/headPortrait/" path="/headPortrait" reloadable="true"/> <!-- 该文件名为headPortrait.xml,放在${tomca......

Helios51
6分钟前
0
0
开源PaaS Rainbond 3.6.1 Released

本次3.6.1版本更新,重点修复了3.6.0版本部分情况下会出现的BUG,同时改进了内部市场、参数验证、历史消息等功能,详细更新记录如下—— 3.6.1 功能改进 云帮初次使用跳转至注册页面 消息添加...

好雨云帮
6分钟前
0
0
Unsupported major.minor version 52.0

执行代码的jdk版本 低于 编译的jdk版本 其中52.0 对应的就是 jdk1.8版本。

@林文龙
6分钟前
0
0
聊聊spring cloud的AbstractLoadBalancingClient

序 本文主要研究一下spring cloud的AbstractLoadBalancingClient AbstractLoadBalancingClient spring-cloud-netflix-ribbon-2.0.0.RELEASE-sources.jar!/org/springframework/cloud/netfli......

go4it
8分钟前
0
0
博客改版通知

先上博客地址 --> http://metaphors.name 最近将博客从 Jekyll 迁到了 Hexo,所以简书、开源中国、博客园、CSDN文章中的的部分图片丢了,原文链接也不可用了,不过没关系,原文链接都会转到博...

Metaphors
8分钟前
0
0
vue基础知识练习

一、Hello World <div id="itany">{{msg}} <!-- 两对大括号{{}}称为模板,用来进行数据的绑定显示在页面中 --> </div><script src="js/vue.js"></script><script>var vm=new Vue({......

一个yuanbeth
12分钟前
0
0
spring @Transactional注解参数详解

原文:事物注解方式: @Transactional 当标于类前时, 标示类中所有方法都进行事物处理 , 例子: 1 @Transactional public class TestServiceBean implements TestService {} 当类中某些方法不需...

binhu
15分钟前
0
0
CORS 跨域实践

本文首发于个人微信公众号《andyqian》,期待你的关注~ 前言 系统通常都是由单体应用逐渐演化而来,演化成为前后端分离的分布式应用。在享受分布式系统带来的诸多好处之时,随之而来的也有不...

andyqian
22分钟前
7
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部