COBOL程序题.docVIP

1.基本语句 IDENTIFICATION DIVISION. (标识部) PROGRAM-ID. EXAM1. ENVIRONMENT DIVISION. （环境部） DATA DIVISION.(数据部) WORKING STOPAGE SECTION.(工作单元节) PROCEDURE DIVISION. （过程部） INPUT_OUTPUT SECTION.(输入输出节) FILE-CONTROL. (文件控制段) STOP RUN. 2.加减乘除运算 IDENTIFICATION DIVISION.（标识部） PROGRAM-ID. EXAM2-2.（文件名） ENVIRONMENT DIVISION.（环境部） DATA DIVISION.（数据部） WORKING-STORAGE SECTION.（工作单元节） 77 N PIC 99. 定义N为两位数 PROCEDURE DIVISION.（过程部） S. ACCEPT N. 输入语句 ADD 3 TO N. 加法语句 DIVIDE 5 INTO N. 除法语句 SUBTRACT 2 FROM N. 减法语句 MULTIPLY 8 BY N. 乘法语句 DISPLAY N. 输出语句 STOP RUN. 停止语句 3.分段计算 IDENTIFICATION DIVISION. PROGRAM-ID. EXAM2-7. ENVIRONMENT DIVISION. 保存文件 INPUT-OUTPUT SECTION .(输入输出节) FILE-CONTROL. (文件控制段) SELECT OUTPUT-FILE ASSIGN TO C:\test.dat. DATA DIVISION. (数据部) FILE_CONTROL. (文件控制段) FD OUTPUT-FILE LABEL RECORD IS OMITTED. 01 OUTPUT-RECORD. 02 FILLER PIC X. 02 OUT-REC PIC X(9). WORKING-STORAGE SECTION. 保存文件 读文件 INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT IN-FILE ASSIGN TO D:\COBOL_S\A.TXT. 读文件 77 M PIC 9999. 定义M 77 I PIC 9. 定义I 77 AMOUNT PIC 99999. 定义AMOUNT PROCEDURE DIVISION. ACCEPT M. 输入M DIVIDE 50 INTO M GIVING I. 除50取整 ADD 1 TO I. 加1 GO TO A, B, C, D, E DEPENDING I. 转移语句 A. COMPUTE AMOUNT = 10 * M. 转移到A GO TO F. 转移语句到F B. COMPUTE AMOUNT = 9 * M. 转移到B GO TO F. 转移语句到F C. COMPUTE AMOUNT = 8 * M. 转移到C GO TO F. 转移语句到F D. COMPUTE AMOUNT = 7 * M. 转移到D GO TO F. 转移语句到F E. COMPUTE AMOUNT = 6 * M. 转移到E F. DISPLAY M, AMOUNT. 输出M, AMOUNT STOP RUN. 停止