Ada 根据用户输入初始化数组

Question

我从 Java/C++ 转到 Ada，但在弄清楚一些小问题时遇到了困难。是否可以声明一个数组并询问用户最小/最大值然后初始化它？我不喜欢必须为 MIN 和 MAX 定义常量值，似乎应该有一种方法可以做到这一点。

您可以定义不受约束的类型，但仍然必须在程序启动之前在声明块中初始化大小。我是否需要先有包主体，然后是过程声明，然后是实际执行工作的过程中的声明块，如下所示？

PACKAGE BODY Build_Graph IS
    TYPE Graph_Box IS ARRAY(Integer RANGE <>, Integer RANGE <>) of Character;

    PROCEDURE Print_Graph(Min, Max, Height, Width: IN Integer) IS
    BEGIN
        DECLARE
            Graph: Graph_Box(0..Height, 0..Width);
        BEGIN
            Do_Stuf(Graph);
        END;
    END Print_Graph;

END Build_Graph;

Answer 1

你在那里展示的应该有效。但是，“声明”块完全没有必要，除非您想捕获数组变量声明或其他内容上的范围异常。我将其更改为：（

procedure Print_Graph(Min, Max, Height, Width: in Integer) is
    Graph: Graph_Box(0..Height, 0..Width);
begin
    Do_Stuf(Graph);
end Print_Graph;

我也不喜欢将保留字放在大写字母中。）

---

我还应该提到的一件事是：Ada 数组不像 cish 语言那样从 0 开始。它们可以，但您也可以将它们从 1 或 -200 或任何您想要的值开始。

我提出这个问题的原因是我看到你定义 Graph_Box 的方式，它实际上是 Height+1 个元素高和 Width+1 个元素宽。您可能不希望这样，因为这很容易让其他人（甚至可能是您）感到困惑。

我的典型习惯用法是从 1 开始数组索引，除非我有充分的理由不这样做。