溫馨提示×

cobol二維數(shù)組怎么定義和使用

小億
203
2023-10-13 19:51:21
欄目: 編程語言

在COBOL中，二維數(shù)組可以通過定義一個(gè)帶有多個(gè)下標(biāo)的表來實(shí)現(xiàn)。下面是一個(gè)定義和使用COBOL二維數(shù)組的示例：

01 MY-ARRAY.
05 ROWS OCCURS 5 TIMES.
10 COLS OCCURS 10 TIMES PIC X(10).
PROCEDURE DIVISION.
MOVE 'Value1' TO COLS(1,1)   -- 設(shè)置第一行第一列的值
MOVE 'Value2' TO COLS(1,2)   -- 設(shè)置第一行第二列的值
DISPLAY 'Value in row 1, col 1: ' COLS(1,1)   -- 顯示第一行第一列的值
DISPLAY 'Value in row 1, col 2: ' COLS(1,2)   -- 顯示第一行第二列的值
STOP RUN.

在上面的示例中，定義了一個(gè)名為MY-ARRAY的二維數(shù)組，它有5行和10列。然后，可以使用COLS(行號(hào), 列號(hào))語法來訪問和操作特定行和列的值。

在PROCEDURE DIVISION部分，通過MOVE語句設(shè)置了第一行第一列和第一行第二列的值。然后，使用DISPLAY語句顯示了這些值。

注意：在COBOL中，數(shù)組的下標(biāo)從1開始，而不是從0開始。

0 踩