COBOL-练习题.docVIP

参照书中的例子，编写自己的第一个程序，显示一行信息： Hello COBOL! 编写一个程序，实现以下功能：INITIALIZE TEST-DATA-1. 05 TEST-9999 PIC 9(04). 05 TEST-XXX PIC X(03). 05 TEST-AAA PIC A(03). 使用INITIALIZE语句对TEST-DATA-1进行初始化 分别显示TEST-DATA-1、TEST-9999、TEST-XXX、TEST-AAA 编写一个程序，实现以下功能： A 描述 S9(05)V9(02) B 描述 12345.67 12345 1234.70 -123.64 12.78 1 0 99999.99 99B999.99 99,999.99 +99,999.99 +++,++9.99 +++,+++.99 -99,999.99 ---,--9.99 ---,---.99 $99,999.99 $$$,$$9.99 $$$,$$$.99 ZZ,ZZ9.99 ZZ,ZZZ.99 ZZ,ZZZ.ZZ 编写一个程序，实现以下功能： 使用ACCEPT语句接系统时间day of week 判断并输出今天是星期几 编写一个程序，实现以下功能： 使用ACCEPT语句接显示： Year: 2012 Month: 12 Day: 21 编写一个程序，实现以下功能： 编写一个程序，实现以下功能：使用ACCEPT语句接‘A’时，计算并显示DATA-1 + DATA-2的值 当FLG = ‘S’时，计算并显示DATA-1 - DATA-2的值 当FLG = ‘M’时，计算并显示DATA-1 * DATA-2的值 当FLG = ‘D’时，计算并显示DATA-1 / DATA-2的值 使用IF语句完成 第7题。（要求IF 与END-IF一起使用）。 编写一个程序，实现以下功能： 练习ADD、SUBSTRACT、MULTIPLY、DIVIDE、COMPUTE的用法。 A，B，C，D15，18，22，55 A 加上B赋值给 C；将B加上10，显示A和B的值 从A,B中减去3加上50，然后再乘以30，显示A、B的值计算(B-A)的立方加上(A+B)的平方，放到D中，显示D的值 编写一个程序，实现以下功能： 向文件FILE1(文件的记录结构如下)中写入如下三条记录 将文件FILE1中产品代码为0003的记录中PROD-PRICE加200、STATUS赋值为“UPDATED”后（其它字段内容同原记录）写入FILE2中(文件FILE2的记录结构如下) 处理完毕之后显示文件FILE1和FILE2的内容。 0 0 0 1 0 1 0 0 0 0 0 1 0 0 0 1 9 9 9 0 3 2 2 0 0 0 2 0 1 0 0 0 0 0 1 6 0 0 2 0 0 9 0 5 2 2 0 0 0 3 0 1 0 0 0 0 0 1 8 0 0 2 0 1 1 0 8 2 5 FILE1: 01 IN-RECORD. 02 PROD-CODE PIC 9（4）. 02 PROD-QUANTITY PIC 9（5）. 02 PROD-PRICE PIC 9（6）. 02 MANU-DATE.（生产日期为一组合项） 05 DATE-CCYY PIC 9（4）. 05 DATE-MM PIC 9（2）. 05 DATE-DD PIC 9（2）. FILE2: 01 NEW-RECORD. 02 PROD-CODE PIC 9（4）. 02 PROD-QUANTITY PIC 9（5）. 02 PROD-PRICE PIC 9（6）. 02 MANU-DATE.（生产日期为一组合项） 05 DATE-CCYY