文档章节

cobol学习之九输出9*9乘法表

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

废话不说,直接上代码:

主要用到PERFORM循环


000010 IDENTIFICATION			DIVISION.
000011  PROGRAM-ID.			STUDY5-103.
000020 ENVIRONMENT			DIVISION.
000030 DATA				DIVISION.
000031  WORKING-STORAGE			SECTION.
000040  77				DA1 PIC 99.
000050  77 				DA2 PIC 99.
000051  77				DA3 PIC 99.
000052  77				DA4 PIC Z9.
000053  77				DA5 PIC Z9.
000054  77 				DA6 PIC Z9.
000055*  01 CFB.
000056*     02   
000060 PROCEDURE			DIVISION.
000070 P.  PERFORM A
000080     VARYING DA1 FROM 1 BY 1 UNTIL DA1 > 9
000090            AFTER DA2 FROM 1 BY 1 UNTIL DA2 > DA1.
000100     STOP RUN.
000110 A.  COMPUTE DA3 = DA1 * DA2.
000111     MOVE DA3 TO DA4.
000112     MOVE DA1 TO DA5.
000113     MOVE DA2 TO DA6.
000120     IF DA1 = DA2
000121       DISPLAY DA6 '*' DA5 '=' DA4 ' '  
000123     ELSE 
000124 	     DISPLAY DA6 '*' DA5 '=' DA4 ' ' WITH NO ADVANCING
000130     END-IF.   
000140



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

共有 人打赏支持
指尖残雪
粉丝 7
博文 73
码字总数 0
作品 0
上海
后端工程师
cobol学习之八表的建立与使用

使用循环输出9*9乘法表: 000010 IDENTIFICATION DIVISION.000011 PROGRAM-ID. STUDY5-103.000020 ENVIRONMENT DIVISION.000030 DATA DIVISION.000031 WORKING-STORAGE SECTION.000040 77 D......

指尖残雪
2016/05/22
15
0
打印乘法表

一、题目: 实现一个函数,打印乘法口诀表,口诀表的行数和列数自己指定, 输入9,输出99口诀表,输出12,输出1212的乘法口诀表。 二、解题思路: 此题较为简单,首先定义两个变量控制行和列,...

qq_38646470
2017/11/11
0
0
Java Dos命令执行.java文件

学了一年的java,放了半年,渐渐忘记了是怎样的一个开始。还是自己掌握的不够好,并且大多都是一知半解。 随着对语言了解的逐步深入,会越来越倾向虚拟机等底层的实现。 算是一个笔记了,首先...

AmosWang
2016/08/02
4
0
如何不使用循环打印9*9乘法表

使用两个循环打印99乘法表是最简单的,只使用一个循环的话难度增加一点,一个循环都不使用的话,也可以做到。 我的方法是递归:总共使用了三个方法,两次递归。 使用递归来打印99乘法表,好像...

木云凌
2015/12/25
210
0
进制的运算(笔记借鉴编程达人)

进制的运算(笔记借鉴编程达人),先来看看我们的八进制。 进制的转换: 进制的转换其实并不需要去死记,只需要顺其自然即可,比如说:一般的书本上讲的都是先将某某进制转化成十进制在将十进制...

qubaoquan
2017/06/21
0
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

7 个致命的 Linux 命令

导读 如果你是一个 Linux 新手,在好奇心的驱使下,可能会去尝试从各个渠道获得的命令。以下是 7 个致命的 Linux 命令,轻则使你的数据造成丢失,重则使你的系统造成瘫痪,所以,你应当竭力避...

问题终结者
今天
0
0
设计模式:工厂方法模式(工厂模式)

工厂方法模式才是真正的工厂模式,前面讲到的静态工厂模式实际上不能说是一种真正意义上的设计模式,只是一种变成习惯。 工厂方法的类图: 这里面涉及到四个种类: 1、抽象产品: Product 2、...

京一
今天
0
0
区块链和数据库,技术到底有何区别?

关于数据库和区块链,总会有很多的困惑。区块链其实是一种数据库,因为他是数字账本,并且在区块的数据结构上存储信息。数据库中存储信息的结构被称为表格。但是,区块链是数据库,数据库可不...

HiBlock
今天
0
0
react native 开发碰到的问题

react-navigation v2 问题 问题: static navigationOptions = ({navigation, navigationOptions}) => ({ headerTitle: ( <Text style={{color:"#fff"}}>我的</Text> ), headerRight: ( <View......

罗培海
今天
0
0
Mac Docker安装流程

久仰Docker大名已久,于是今天趁着有空,尝试了一下Docker 先是从docker的官网上下载下来mac版本的docker安装包,安装很简易,就直接拖图标就好了。 https://www.docker.com/products/docker...

writeademo
今天
0
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部