Question

很抱歉提出这个问题，但Ada对输入输出系统非常严格，所以我无法弄清楚如何从用户那里获取输入并将其放入数组中。

with Ada.Text_IO;
use Ada.Text_IO;
with Ada.Integer_Text_IO;
use Ada;

procedure Main is
 type MY_ARRAY is array(1..9) of INTEGER;
   Data        : MY_ARRAY;

begin
   Put("Please input the series of numbers");
   Get_Line(Data);
end Main;

我知道这是完全错误的，但我到处研究，我无法找到人们如何获得数组LOL的输入。感谢yall的帮助。

Answer 1

我认为只使用Ada.Text_IO包更容易，因此您可以将每个数字作为String读取，然后使用for循环和Integer'Value逐个整数存储，它从String转换为Integer。

with Ada.Text_IO;
use Ada.Text_IO;

procedure Main is
    type MY_ARRAY is array(1..9) of Integer;
    Data : MY_ARRAY;

begin
    Put_Line("Please input the series of numbers");

    for I in 1..MY_ARRAY'Length loop
        Data(I) := Integer'Value(Get_Line);
    end loop;
end Main;

Ada如何从用户输入整数列表并将其放入数组中

1 个答案: