COBOL程序的示例代码
时间: 2023-08-19 19:06:08 浏览: 119
下面是一个简单的COBOL程序示例,它演示了如何计算圆的面积:
IDENTIFICATION DIVISION.
PROGRAM-ID. CIRCLE_AREA.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 RADIUS PIC 9(3)V9(2) VALUE 0.
01 PI PIC 9(3)V9(2) VALUE 3.14.
01 AREA PIC 9(5)V9(2).
PROCEDURE DIVISION.
MAIN-PARA.
DISPLAY "Enter the radius of the circle: ".
ACCEPT RADIUS.
COMPUTE AREA = PI * RADIUS * RADIUS.
DISPLAY "The area of the circle is: " AREA.
STOP RUN.
在这段代码中,IDENTIFICATION DIVISION部分定义了程序的标识,包括程序ID(PROGRAM-ID)。DATA DIVISION部分声明了一些变量。在这个示例中,我们声明了RADIUS(圆的半径),PI(圆周率)和AREA(圆的面积)。
在PROCEDURE DIVISION部分,我们有一个名为MAIN-PARA的段落。首先,使用DISPLAY语句提示用户输入圆的半径。然后,使用ACCEPT语句读取用户输入的值并将其存储在RADIUS变量中。
接下来,使用COMPUTE语句计算圆的面积,公式为:面积 = 圆周率 * 半径 * 半径。
最后,使用DISPLAY语句显示计算得到的圆的面积,并使用STOP RUN语句停止程序的执行。
当你运行这个COBOL程序时,它会提示你输入圆的半径,然后计算并显示圆的面积。
阅读全文