专注收集记录技术开发学习笔记、技术难点、解决方案
网站信息搜索 >> 请输入关键词:
您当前的位置: 首页 > 其他开发语言

初学cobol 这个程序能不能实现九九乘法?该怎么处理

发布时间:2011-06-30 07:30:19 文章来源:www.iduyao.cn 采编人员:星星草
初学cobol 这个程序能不能实现九九乘法?
000010*>
000020 IDENTIFICATION DIVISION.
000030 PROGRAM-ID. 99-CF.
000040 AUTHOR. RJ.
000050 ENVIRONMENT DIVISION.
000060 INPUT-OUTPUT SECTION.
000070 DATA DIVISION.
000080 WORKING-STORAGE SECTION.
000090 77 NUM PIC 9 VALUE 1.
000099 77 NUM_ADD PIC 9 VALUE 0.
000100 01 NUM_PLAY.
000110 03 NUM1 PIC 9.
000120 03 FU1 PIC X VALUE "*".
000130 03 NUM2 PIC 9.
000140 03 FU2 PIC X VALUE "=".
000150 03 NUM3 PIC 99.
  03 FU3 PIC XXX VALUE '...'.
000153 PROCEDURE DIVISION.
000155 PERFORM XUNH1 9 TIMES.
000156 STOP RUN.
000162 XUNH1.  
000163 MOVE 0 TO NUM_ADD.
000170 PERFORM XUNH2 NUM TIMES.
000171 ADD 1 TO NUM.
000176 XUNH2.  
000181 ADD 1 TO NUM_ADD.
000190 MOVE NUM TO NUM2.
000200 MOVE NUM_ADD TO NUM1. 
000211 COMPUTE NUM3 = NUM1 * NUM2.  
000210 DISPLAY NUM1,FU1,NUM2,FU2,NUM3,FU3 WITH NO ADVANCING.  
000211 END PROGRAM 99-CF.


------解决方案--------------------
看起来特吃力
------解决方案--------------------
友情提示:
信息收集于互联网,如果您发现错误或造成侵权,请及时通知本站更正或删除,具体联系方式见页面底部联系我们,谢谢。

其他相似内容:

热门推荐: