在COBOL中,二维数组可以通过定义一个带有多个下标的表来实现。下面是一个定义和使用COBOL二维数组的示例:
01 MY-ARRAY.
05 ROWS OCCURS 5 TIMES.
10 COLS OCCURS 10 TIMES PIC X(10).
PROCEDURE DIVISION.
MOVE 'Value1' TO COLS(1,1) -- 设置第一行第一列的值
MOVE 'Value2' TO COLS(1,2) -- 设置第一行第二列的值
DISPLAY 'Value in row 1, col 1: ' COLS(1,1) -- 显示第一行第一列的值
DISPLAY 'Value in row 1, col 2: ' COLS(1,2) -- 显示第一行第二列的值
STOP RUN.
在上面的示例中,定义了一个名为MY-ARRAY的二维数组,它有5行和10列。然后,可以使用COLS(行号, 列号)语法来访问和操作特定行和列的值。
在PROCEDURE DIVISION部分,通过MOVE语句设置了第一行第一列和第一行第二列的值。然后,使用DISPLAY语句显示了这些值。
注意:在COBOL中,数组的下标从1开始,而不是从0开始。
亿速云「云服务器」,即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘,价格低至29元/月。点击查看>>
相关推荐:vhdl二维数组怎么定义和使用