华工cobol实验3

实验三

一、实验目的：

了解数据部的结构，PIC子句及数据描述符

二、实验步骤

1．编写一个小程序，要求把数值－321312.21433传送给数据项A（数据类型定义为999），并在屏幕上显示出A的值（显示出来的值跟实际值不同）。

2．编写一个程序，要求把数值A（123.4）和数值B(－234.5)相加，结果存放在C 里面，并把A,B,C的值从屏幕上显示出来，显示结果应为A =123.4 , B=－234.5 , C=－111.1 。

加法命令：ADD X, Y GIVING Z. (X+Y→Z)

传送命令：MOVE X TO Y (X→ Y)

IDENTIFICATION DIVISION.

PROGRAM-ID. PSAMPLE1.

ENVIRONMENT DIVISION.

DA TA DIVISION.

WORKING-STORAGE SECTION.

77 A pic XXXX V ALUE 123.4. （用于运算）

77 B PIC XXXX V ALUE -234.5. （用于运算）

77 C PIC XXXX. （用于输出显示运算结果）

77 D PIC XXXX. (用于存放运算结果)

PROCEDURE DIVISION.

ADD A, B GIVING xxx.

MOVE xxx TO xxx.

DISPLAY 'A=' A.

DISPLAY 'B=', B.

DISPLAY 'D=', D.

DISPLAY 'C=', C.

STOP RUN.