初学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.
------解决方案--------------------
看起来特吃力
------解决方案--------------------
友情提示:
信息收集于互联网,如果您发现错误或造成侵权,请及时通知本站更正或删除,具体联系方式见页面底部联系我们,谢谢。
其他相似内容:
-
erlang:创建表
mnesia:create_table(student, [{attributes,{name,number,sex}}]).
怎么老是提示:
{aborted,{bad_type,student,{...
-
100分求助,matlab一维矩阵变成二维矩阵,怎么感觉我写的代码这么绕呢
希望把Input矩阵(一维)变成3行4列的二维矩阵Output;我写了下面...
-
为什么没有易语言版块呢?
为什么没有易语言版块呢?
------解决方案--------------------
易语言,还不常用,交流也不比,所以无....
-
批处理的一个问题
想用批处理更改文件属性
@echo off
arrtib -R /S E:\home\*.*
exit
这样写是错误的吗?
为什么没起作用啊
--...
-
几个关于大型机的问题(新手求救啊~)
1、z/OS 和UNIX系统的相同点和相异点有哪些啊?主目录和用户目录的区别是什么啊?
2、用JCL创建一...
-
急求!如何用正则截取一对标签中的字符当中的日期
<p class="source">
<!--[if !IE]>收藏功能<!...
-
批处理代码放在U盘里,如何复制整个硬盘的时间段文件? qivsran老师的答案,谢谢!
@echo off
md 新文件
setlocal enabledelayedexpa...
-
复制文件不带目录文件夹如何修改代码?同名文件仅复制最新的
@echo off
md %computername%资料 2>nul
Cd /d %computername%资料
F...
-
求C里面 全角半角转换函数
求C里面 全角半角转换函数
------解决方案--------------------
我在别处看了,希望对你有帮助。
...
-
求助:关于qtp10 无法识别 maven自动构建flex3.6 的问题
近日遇到maven自动构建flex3.6的问题。希望大家提出宝贵意见。
问...