文档章节

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

指尖残雪
 指尖残雪
发布于 2016/05/22 23:56
字数 152
阅读 22
收藏 0
点赞 2
评论 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 ⋅ 0

3个shell的小脚本的练习

1;打印9*9乘法表2;输出国际象棋的棋盘3;猴子;摘了n个香蕉 1;打印9*9乘法表一:for i in {1..9}dofor j in doecho -n “$i$j=$(ij) ”doneechodone 方法二: !/bin/bash for i in {1..9}...

英强云计算 ⋅ 2017/12/13 ⋅ 0

JSP 九九乘法表的4种形态

JSP 九九乘法表的4种形态(用表格输出到浏览器) 我记得第一次学C语言的时候写循环,就是写的九九乘法表当时就写了一种形态,也就是我下面写的第一种,当时已经觉得非常了不起了。当我学了更...

yimi ⋅ 2013/01/30 ⋅ 0

打印乘法表

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

qq_38646470 ⋅ 2017/11/11 ⋅ 0

Java Dos命令执行.java文件

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

AmosWang ⋅ 2016/08/02 ⋅ 0

如何不使用循环打印9*9乘法表

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

木云凌 ⋅ 2015/12/25 ⋅ 0

进制的运算(笔记借鉴编程达人)

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

qubaoquan ⋅ 2017/06/21 ⋅ 0

C语言编程入门学习:用C语言输出九九乘法表

C语言是面向过程的,而C++是面向对象的 C和C++的区别: C是一个结构化语言,它的重点在于算法和数据结构。C程序的设计首要考虑的是如何通过一个过程,对输入(或环境条件)进行运算处理得到...

小辰带你看世界 ⋅ 05/29 ⋅ 0

Bash编程(五)

一、bash判断字符类型 二、bash脚本编程语法 三、shell的99乘法表 一、bash判断字符类型 //输入一个字符串,判断其类型 方法一、printf实现 Printf实现方法 格式替换符: %b 相对应的参数被视...

MT_IT ⋅ 2017/10/31 ⋅ 0

只使用一次循环写出99乘法表

99乘法表很简单,大家都会,两个循环嵌套即可,但现在要求仅能使用一个循环,如下: #!/bin/bash j=1for ((i=1;i<=9;i++));do printf "%d %d = %2d " $j $i $[$i$j] if [ $j -ne $i ] ;then ...

aaronchou0 ⋅ 2017/02/23 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

用ZBLOG2.3博客写读书笔记网站能创造今日头条的辉煌吗?

最近两年,著名的自媒体网站今日头条可以说是火得一塌糊涂,虽然从目前来看也遇到了一点瓶颈,毕竟发展到了一定的规模,继续增长就更加难了,但如今的今日头条规模和流量已经非常大了。 我们...

原创小博客 ⋅ 47分钟前 ⋅ 0

MyBatis四大核心概念

本文讲解 MyBatis 四大核心概念(SqlSessionFactoryBuilder、SqlSessionFactory、SqlSession、Mapper)。 MyBatis 作为互联网数据库映射工具界的“上古神器”,训有四大“神兽”,谓之:Sql...

waylau ⋅ 今天 ⋅ 0

以太坊java开发包web3j简介

web3j(org.web3j)是Java版本的以太坊JSON RPC接口协议封装实现,如果需要将你的Java应用或安卓应用接入以太坊,或者希望用java开发一个钱包应用,那么用web3j就对了。 web3j的功能相当完整...

汇智网教程 ⋅ 今天 ⋅ 0

2个线程交替打印100以内的数字

重点提示: 线程的本质上只是一个壳子,真正的逻辑其实在“竞态条件”中。 举个例子,比如本题中的打印,那么在竞态条件中,我只需要一个方法即可; 假如我的需求是2个线程,一个+1,一个-1,...

Germmy ⋅ 今天 ⋅ 0

Springboot2 之 Spring Data Redis 实现消息队列——发布/订阅模式

一般来说,消息队列有两种场景,一种是发布者订阅者模式,一种是生产者消费者模式,这里利用redis消息“发布/订阅”来简单实现订阅者模式。 实现之前先过过 redis 发布订阅的一些基础概念和操...

Simonton ⋅ 今天 ⋅ 0

error:Could not find gradle

一.更新Android Studio后打开Project,报如下错误: Error: Could not find com.android.tools.build:gradle:2.2.1. Searched in the following locations: file:/D:/software/android/andro......

Yao--靠自己 ⋅ 昨天 ⋅ 0

Spring boot 项目打包及引入本地jar包

Spring Boot 项目打包以及引入本地Jar包 [TOC] 上篇文章提到 Maven 项目添加本地jar包的三种方式 ,本篇文章记录下在实际项目中的应用。 spring boot 打包方式 我们知道,传统应用可以将程序...

Os_yxguang ⋅ 昨天 ⋅ 0

常见数据结构(二)-树(二叉树,红黑树,B树)

本文介绍数据结构中几种常见的树:二分查找树,2-3树,红黑树,B树 写在前面 本文所有图片均截图自coursera上普林斯顿的课程《Algorithms, Part I》中的Slides 相关命题的证明可参考《算法(第...

浮躁的码农 ⋅ 昨天 ⋅ 0

android -------- 混淆打包报错 (warning - InnerClass ...)

最近做Android混淆打包遇到一些问题,Android Sdutio 3.1 版本打包的 错误如下: Android studio warning - InnerClass annotations are missing corresponding EnclosingMember annotation......

切切歆语 ⋅ 昨天 ⋅ 0

eclipse酷炫大法之设置主题、皮肤

eclipse酷炫大法 目前两款不错的eclipse 1.系统设置 Window->Preferences->General->Appearance 2.Eclipse Marketplace下载【推荐】 Help->Eclipse Marketplace->搜索‘theme’进行安装 比如......

anlve ⋅ 昨天 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部