1加到100
2012-05-19 22:25
239 查看
IDENTIFICATION DIVISION.
PROGRAM-ID. ADD1.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 A PIC 9(3).
01 SUMA PIC 9(4).
PROCEDURE DIVISION.
MOVE 1 TO A.
MOVE 0 TO SUMA.
PERFORM 100-ADD
UNTIL A > 100.
DISPALY 'SUMA : ' SUMA.
STOP RUN.
100-ADD.
ADD A TO SUMA.
ADD 1 TO A.
PROGRAM-ID. ADD1.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 A PIC 9(3).
01 SUMA PIC 9(4).
PROCEDURE DIVISION.
MOVE 1 TO A.
MOVE 0 TO SUMA.
PERFORM 100-ADD
UNTIL A > 100.
DISPALY 'SUMA : ' SUMA.
STOP RUN.
100-ADD.
ADD A TO SUMA.
ADD 1 TO A.
相关文章推荐
- 计算1加到100
- 第五周项目7,从1加到100
- java 1加到100
- 算法的乐趣-从1加到100说起
- 设置div的宽度从0加到100,从100减到0,反复执行
- 1 加到 100 的 时间复杂度 C#.
- 一道面试题:用shell写一个从1加到100的程序
- 用python实现从1加到100的三种方法: for循环,while循环,导入模块法
- shell脚本实例-for循环从1加到100
- 编写一个java程序,从1加到100,结果是5050。 每做一次加法,就休眠1秒 当程序运行过程中,杀死这个程序。 再次运行,还能从上次的计算结果继续下去。
- 一加到100的和
- 一道面试题:用shell写一个从1加到100的程序
- C++ 语言实现1加到100(初学者)
- shell 脚本从1加到100
- shell脚本-while循环从1加到100
- javascript 实现1加到100
- 第五周-从1加到100
- CPU : 从 1 加到 100
- linux系统计算从1加到100之和思路
- 从1加到100的算法你会吗?那从第M加到第N呢?