文档章节

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

指尖残雪
 指尖残雪
发布于 2016/05/22 23:56
字数 276
阅读 10
收藏 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
1K
13
商用编程语言--COBOL

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

匿名
2009/04/12
10.8K
1
轻量级 COBOL IDE--OpenCobolIDE

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

叶秀兰
2015/10/13
916
0
简单易懂的讲解深度学习(入门系列之五)

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

EdisonGzq
2017/07/04
0
0
4-Java基础语法-流程控制之选择结构

流程控制;流程控制语句: 顺序、选择、循环 什么是顺序? 运行结果: 顺序结构,一句一句按着顺序执行。 选择结构: if if-else 根据条件,选择执行if还是执行else后面的语句。 比如之前用户输入...

天涯明月笙
07/31
0
0

没有更多内容

加载失败,请刷新页面

加载更多

storm 环境搭建

1.下载解压 下载地址:http://storm.apache.org/downloads.html

MrPei
23分钟前
1
0
Python Base - 读写文件,字符串拼接,单引号

字符转义 读写文件cvs 字符串拼接,替换 import csvcsv_file_name = 'cardbin.csv'# insert into `card_bin_code` (name_of, code_of, card_no_prefix, bank_code) values ('中国银行......

园领T
25分钟前
1
0
基于JQUERY BOOTSTRAP 最简单的loading遮罩层

<%--loading遮罩层--%><div class="modal fade" id="loadingModal" backdrop="static" keyboard="false">   <div style="width: 200px;height:20px; z-index: 20000; position: abs......

颖辉小居
25分钟前
1
0
springboot+kafka

1,首先springboot对kafka的支持也很好,同样是在配置文件中配置好参数,然后就可以直接使用。先说一下,很简单,,,不要怕 2,我用的依赖是 <dependency> <groupId>org.springframewor...

我真是小菜鸡
29分钟前
3
0
webservice动态客户端自我记录备份(spring boot)

动态客户端相比直接调用webservice的客户端代码要简单很多,但实际上很多工作是java自己替我们做掉了。简单记录一下内容,以备后续使用: pom文件只需要引入: <!-- CXF webservice --><de...

checkboxMan
35分钟前
1
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部