cobol学习之九输出9*9乘法表
cobol学习之九输出9*9乘法表
指尖残雪 发表于2年前
cobol学习之九输出9*9乘法表
  • 发表于 2年前
  • 阅读 7
  • 收藏 0
  • 点赞 2
  • 评论 0

腾讯云 新注册用户 域名抢购1元起>>>   

废话不说,直接上代码:

主要用到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



共有 人打赏支持
粉丝 8
博文 73
码字总数 0
×
指尖残雪
如果觉得我的文章对您有用,请随意打赏。您的支持将鼓励我继续创作!
* 金额(元)
¥1 ¥5 ¥10 ¥20 其他金额
打赏人
留言
* 支付类型
微信扫码支付
打赏金额:
已支付成功
打赏金额: