Ada语言中可以使用多维数组类型来创建二维数组,同时可以定义函数来操作数组。以下是一个简单的例子:
type Int_Array is array (Integer range<>) of Integer;
type Two_D_Array is array (Integer range<>, Integer range<>) of Integer;
function Create_Two_D_Array (Size1, Size2: Integer) return Two_D_Array is
Tmp: Two_D_Array(1..Size1, 1..Size2);
begin
return Tmp;
end Create_Two_D_Array;
procedure Set_Two_D_Array (A: in out Two_D_Array; Value: Integer) is
begin
for I in A'range(1) loop
for J in A'range(2) loop
A(I, J) := Value;
end loop;
end loop;
end Set_Two_D_Array;
在上述代码中,定义了Int_Array类型和Two_D_Array类型来声明一维和二维数组。函数Create_Two_D_Array用于创建一个二维数组,同时通过参数传入数组的大小。过程Set_Two_D_Array用于将二维数组的每个元素设为相同的值。
使用以上代码来创建一个二维数组:
declare
A: Two_D_Array;
begin
A := Create_Two_D_Array(3, 4);
Set_Two_D_Array(A, 0);
-- Do something with A...
end;
可以看到,在Ada语言中,使用多维数组类型就能够创建和操作二维数组,而无需使用类似于Java中的ArrayList这样的库。