文档章节

cobol学习之五简单输入成绩的计算

指尖残雪
 指尖残雪
发布于 2016/05/22 23:56
字数 276
阅读 10
收藏 0
点赞 2
评论 0

代码功能:输入4科成绩,计算平均值,并用小数点形式输出,因为cobol在计算中使用V来代表小数,但是在显示时需要“.”来表示。


000010 IDENTIFICATION 			DIVISION.
000020  PROGRAM-ID.			STUDY2-009.
000030 ENVIRONMENT			DIVISION.
000040 DATA				DIVISION.
000050  WORKING-STORAGE			SECTION.
000060 77				SNO PIC X(5) VALUE '10011'.
000070 77				SNAME PIC X(8) VALUE 'ZHANGSAN'.
000080 77				SX PIC 999V9.
000090 77				YW PIC 999V9.
000100 77				RY PIC 999V9.
000110 77				ZY PIC 999V9.
000111 77				ZJ PIC 999V9.
000112 77				PJF PIC 999V9.
000113 77				SX-P PIC 999.9.
000114 77				YW-P PIC 999.9.
000115 77				RY-P PIC 999.9.
000116 77				ZY-P PIC 999.9.
000117 77				ZJ-P PIC 999.9.
000118 77				PJF-P PIC 999.9.
000120 PROCEDURE 			DIVISION.
000130  INPUTNUMBER			SECTION.
000131     DISPLAY 'SX:' WITH NO ADVANCING.
000140     ACCEPT SX.
000141     DISPLAY 'YW:' WITH NO ADVANCING.
000142     ACCEPT YW.
000143     DISPLAY 'RY:' WITH NO ADVANCING.
000144     ACCEPT RY.
000145     DISPLAY 'ZY:' WITH NO ADVANCING.
000146     ACCEPT ZY.
000150   COMPUTENUMBER			SECTION.
000160     COMPUTE ZJ = SX + YW + RY + ZY
000170     COMPUTE PJF = ZJ / 4.
000171   MOVENUMBER			SECTION.
000172	   MOVE SX TO SX-P 
000173	   MOVE YW TO YW-P
000174	   MOVE RY TO RY-P
000175	   MOVE ZY TO ZY-P
000176	   MOVE ZJ TO ZJ-P
000177	   MOVE PJF TO PJF-P.
000180   DISPLAYNUMBER			SECTION.
000190     DISPLAY 'SX=' SX-P
000200     DISPLAY 'YW=' YW-P    				
000210     DISPLAY 'RY=' RY-P
000220     DISPLAY 'ZY=' ZY-P
000230     DISPLAY 'ZJ=' ZJ-P
000240     DISPLAY 'PJF=' PJF-P
000250     STOP RUN.


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

共有 人打赏支持
指尖残雪
粉丝 7
博文 73
码字总数 0
作品 0
上海
后端工程师
COBOL 语言联合设计师 Jean Sammet 去世,终年 89 岁

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

王练 ⋅ 2017/06/05 ⋅ 13

商用编程语言--COBOL

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

匿名 ⋅ 2009/04/12 ⋅ 1

轻量级 COBOL IDE--OpenCobolIDE

OpenCobolIDE 是简单轻量级的 COBOL IDE,基于 GnuCOBOL 编译器。OpenCobolIDE 使用 Python 编写,基于 PyQt5 (or PyQt4) 和 pyQode。 主要特性: COBOL 语法高亮 COBOL 代码自动完成 COBOL ...

叶秀兰 ⋅ 2015/10/13 ⋅ 0

Excel高级应用教程:数据处理与数据分析

为一名合格的数据分析师或者说一名称职的数据挖掘领域从业者,大家肯定都耳熟能详的认为其必须具有如下基本技能: 一、熟练的掌握SQL、Hive等; 二、R、SAS、Python等至少精通其中一种。 但往...

tw6cy6ukydea86z ⋅ 05/25 ⋅ 0

简单易懂的讲解深度学习(入门系列之五)

5.1 网之初,感知机 我们知道,《三字经》里开篇第一句就是:“人之初,性本善”。那么对于神经网络来说,这句话就要改为:“网之初,感知机”。感知机( Perceptrons ),基本上来说,是一切...

EdisonGzq ⋅ 2017/07/04 ⋅ 0

百练 2715: 谁拿了最多奖学金 之 解题报告

2715:谁拿了最多奖学金 描述 某校的惯例是在每学期的期末考试之后发放奖学金。发放的奖学金共有五种,获取的条件各自不同: 1) 院士奖学金,每人8000元,期末平均成绩高于80分(>80),并且在...

圣洁之子 ⋅ 2016/06/29 ⋅ 1

Vijos P1001 谁拿了最多奖学金【分段计算处理】(Bailian2715)

描述 某校的惯例是在每学期的期末考试之后发放奖学金。发放的奖学金共有五种,获取的条件各自不同: 1) 院士奖学金,每人8000元,期末平均成绩高于80分(>80),并且在本学期内发表1篇或1篇以...

tigerisland45 ⋅ 2017/04/29 ⋅ 0

2010年IT薪酬:Java,Python,Windows技术最赚钱

想提升你的技术能力,以留在竞争激烈的市场?虽然在这个充满挑战的就业市场经验已经不是什么秘密事项,在决定关注的重点之前,研究哪些技能最赚钱仍 然是很 有帮助的。尽管工资已经连续第二年...

红薯 ⋅ 2011/01/27 ⋅ 11

增强你的大脑思维能力:学习一种新语言/平台

大家好! 这个标题跟一书里的话相同,这并不是巧合。我非常喜欢《程序员修炼之道》里的一些非常棒的谏言。我在这里主要想向大家分享的是,回答一些朋友问我的问题,“有必要学习一种新语言吗...

oschina ⋅ 2013/09/18 ⋅ 22

Hinton神经网络公开课16 Recent applications of deep neural nets

目录 学习图像和标题的联合模型 组合3个RBM形成DBM Hierarchical coordinate frames 为何CNN注定要完 The hierarchical coordinate frame approach Two layers in a hierarchy of parts pose......

码农场 ⋅ 2017/06/05 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

linux 安装docker

通过以下命令下载安装docker wget -qO- https://get.docker.com | sh 执行以上命令后输出以下内容说明安装成功,注意红框中的内容,docker安装成功后默认只有root能使用,红框中给出的提示是...

haoyuehong ⋅ 16分钟前 ⋅ 0

482. License Key Formatting - LeetCode

Question 482. License Key Formatting Solution 思路:字符串转化为char数组,从后遍历,如果是大写字母就转化为小写字母,如果是-就忽略,如果遍历了k个字符(排除-)就追加一个-。 Java实现...

yysue ⋅ 35分钟前 ⋅ 0

聊聊spring cloud gateway的LoadBalancerClientFilter

序 本文主要研究一下spring cloud gateway的LoadBalancerClientFilter GatewayLoadBalancerClientAutoConfiguration spring-cloud-gateway-core-2.0.0.RELEASE-sources.jar!/org/springfram......

go4it ⋅ 59分钟前 ⋅ 0

详解:Nginx反代实现Kibana登录认证功能

Kibana 5.5 版后,已不支持认证功能,也就是说,直接打开页面就能管理,想想都不安全,不过官方提供了 X-Pack 认证,但有时间限制。毕竟X-Pack是商业版。 下面我将操作如何使用Nginx反向代理...

问题终结者 ⋅ 今天 ⋅ 0

002、nginx配置虚拟主机

一、nginx配置虚拟主机可分为三种方式,分别为: 1、基于域名的虚拟主机,通过域名来区分虚拟主机——应用:外部网站 2、基于端口的虚拟主机,通过端口来区分虚拟主机——应用:公司内部网站...

北岩 ⋅ 今天 ⋅ 0

shell脚本之死循环写法

最近在学习写shell脚本,在练习if while等流程控制时,突然它们的死循环写法是怎么样的?经过百度与亲测记录如下: for死循环 #! /bin/bashfor ((;;));do date sleep 1d...

hensemlee ⋅ 今天 ⋅ 0

苹果的ARKit2.0有多可怕,看了就知道

序言 ARKit主要由三部分组成: 跟踪(Tracking) 跟踪是ARKit的核心组件之一,其提供了设备在物理世界中的位置与方向信息,并对物体进行跟踪,如人脸。 2.场景理解(Scene Understanding) 场...

_小迷糊 ⋅ 今天 ⋅ 0

5.1 vim介绍 5.2 vim移动光标 5.3 ,5.4vim一般模式下移动光标,复制粘贴

vim命令 vim是vi的一个升级版;vim可以显示文字的颜色 安装vim这一个包vim-enhanced 如果不知道安装包,可以使用 命令下面命令来查看vim命令是那个包安装的。 [root@linux-128 ~]# yum prov...

Linux_老吴 ⋅ 今天 ⋅ 0

vim一般模式

vim 是什么 vim是什么 ? 在之前接触Linux,编辑网卡配置文件的时候我们用过了vi ,vim简单说就是vi的升级版,它跟vi一样是Linux系统中的一个文本编辑工具。 如果系统中没有vim ,需要安装一...

李超小牛子 ⋅ 今天 ⋅ 0

docker实战

构建企业级Docker虚拟化平台实战 重点剖析虚拟化和云计算概念; 分析Docker虚拟化的概念和原理; 从0开始实战Docker虚拟化平台; 基于Docker构建Nginx WEB服务器和CentOS虚拟机; 基于开源监...

寰宇01 ⋅ 今天 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部