文档章节

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

指尖残雪
 指尖残雪
发布于 2016/05/22 23:56
字数 152
阅读 29
收藏 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
如何不使用循环打印9*9乘法表

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

木云凌
2015/12/25
210
0
Java Dos命令执行.java文件

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

AmosWang
2016/08/02
4
0
进制的运算(笔记借鉴编程达人)

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

qubaoquan
2017/06/21
0
0

没有更多内容

加载失败,请刷新页面

加载更多

CentOS7.4部署Zabbix4.0

环境搭建 在CenOS7.4里面部署Zabbix最好先搭建好环境,我这里使用的是PHP+MariaDB+httpd部署的。 部署PHP环境: yum install -y php php-php-fpm 修改 PHP 参数以安装 ZABBIX 的安装需求: ...

寰宇01
24分钟前
2
0
工厂模式

(从别人里copy的,方便自己查看) 意图:定义一个创建对象的接口,让其子类自己决定实例化哪一个工厂类,工厂模式使其创建过程延迟到子类进行。 主要解决:主要解决接口选择的问题。 何时使...

南桥北木
50分钟前
1
0
rabbitmq学习(一)

RabbitMQ是目前非常热门的一款消息中间件,具有高可靠、易拓展、高可用及丰富的功能 1.什么是消息中间件 消息是指在应用间传送的数据。包含文本字符串、JSON、内嵌对象 消息队列中间件(消息...

hensemlee
53分钟前
2
0
学习设计模式——原型模式

1. 认识原型模式 1. 定义:用原型实例指定创建对象的种类,并通过拷贝这些原型创建新的对象。 2. 结构: Prototype:声明一个克隆自身的接口,用来约束想要克隆自己的具体实现类,要求这些类...

江左煤郎
59分钟前
1
0
观察者模式

观察者模式的套路 有如下角色: 事件,比如修改,用户点击; 事件队列,触发事件之后,会把事件一个一个放入事件队列 监听器,采用某种方式(一般是轮询,或者io阻塞机制),来判断事件队列是否有新的未...

黄威
今天
1
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部