在Ada中将数组传递给函数
我试图将名为Arr的整数数组传递给collect函数。在collect内部，我正在从用户那里收集int。一旦用户输入100整数或给出0或负数，数组将停止收集。我做错了什么在Ada中将数组传递给函数,ada,Ada,我试图将名为Arr的整数数组传递给collect函数。在collect内部，我正在从用户那里收集int。一旦用户输入100整数或给出0或负数，数组将停止收集。我做错了什么 with Ada.Text_IO, Ada.Integer_Text_IO; use Ada.Text_IO; procedure helloworld is procedure PrintHelloWorld is begin Put_Line ("Enter Integers, up to 10
with Ada.Text_IO, Ada.Integer_Text_IO; use Ada.Text_IO;
procedure helloworld is
procedure PrintHelloWorld is
begin
Put_Line ("Enter Integers, up to 100 individual ints.");
end PrintHelloWorld;
function collect (A : array) return array is
A: array (1 .. 100) of integer;
begin
Ada.Text_IO.Put ("Enter an integer: ");
Ada.Integer_Text_IO.Get(I);
Ada.Text_IO.Put_Line (Integer'Image(I));
if I > 0 then
A(i) := I;
end if;
while I > 0 loop
Ada.Text_IO.Put ("Enter an integer: ");
Ada.Integer_Text_IO.Get(I);
Ada.Text_IO.Put_Line (Integer'Image(I));
if I > 0 then
A(i) := I;
end if;
end loop;
return A;
end collect;
procedure printArr is
begin
for j in Arr'range loop
Ada.Text_IO.Put_Line(Integer'Image(Arr(j)));
end loop;
end printArr;
Arr: array (1 .. 100) of integer;
Arr := (others => 0);
I: Integer;
begin
Put_Line ("Hello World!");
PrintHelloWorld;
Arr := collect(Arr);
printArr;
end helloworld;
gnatmake helloworld.adb
x86_64-linux-gnu-gcc-8 -c helloworld.adb
helloworld.adb:13:26: anonymous array definition not allowed here
helloworld.adb:13:46: reserved word "is" cannot be used as identifier
helloworld.adb:15:08: missing ")"
gnatmake: "helloworld.adb" compilation error
您的思维似乎停留在C/C++/Java语法和Ada之间。试试下面的例子
with Ada.Text_IO; use Ada.Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
procedure Main is
type Data_Array is array(Positive range <>) of Integer;
function Collect return Data_Array is
Count : Natural := 0;
begin
Put_Line("Enter the number of data values you will input");
Get(Count);
declare
Nums : Data_Array(1..Count);
begin
Put_Line("Enter" & Count'Image &" values");
for Value of Nums loop
Get(Value);
end loop;
return Nums;
end;
end Collect;
procedure Print(Item : in Data_Array) is
begin
Put_Line("Output of array values:");
for Value of Item loop
Put_Line(Value'Image);
end loop;
end Print;
begin
Print(Collect);
end Main;
函数collect只返回所需大小的数组。“打印”过程将获取一个大小不一的数组，并打印该数组的内容。您的思维似乎停留在C/C++/Java语法和Ada之间。试试下面的例子
with Ada.Text_IO; use Ada.Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
procedure Main is
type Data_Array is array(Positive range <>) of Integer;
function Collect return Data_Array is
Count : Natural := 0;
begin
Put_Line("Enter the number of data values you will input");
Get(Count);
declare
Nums : Data_Array(1..Count);
begin
Put_Line("Enter" & Count'Image &" values");
for Value of Nums loop
Get(Value);
end loop;
return Nums;
end;
end Collect;
procedure Print(Item : in Data_Array) is
begin
Put_Line("Output of array values:");
for Value of Item loop
Put_Line(Value'Image);
end loop;
end Print;
begin
Print(Collect);
end Main;
完成了 您可能从编译器收到消息，表示函数不返回任何内容。嗯，没有。此外，还有一个全局变量、一个函数的形式参数和一个局部变量，它们都具有相同的名称。猜猜哪一个是可见的。。。另外，请参见：可能是您的一位同学在做相同的作业？函数collect A:array返回数组甚至不会编译。您需要声明数组类型。@BrianDrummond感谢您的回复。我更新了我的代码以及终端的错误。@SimonWright这样的东西是数组类型吗？类型向量是整数的数组整数范围；1如果要传入一个数组进行收集：使其成为一个带有IN-Out模式参数的过程，不需要两个数组：更简单。2另外：在声明中初始化数组，例如by:=others=>0，这样它就不包含垃圾。3在阵列上循环时，不要使用幻数，因为您已经很好地说明了原因！：改为在Arr'range中使用i。您可能从编译器收到消息，该函数不返回任何内容。嗯，没有。此外，还有一个全局变量、一个函数的形式参数和一个局部变量，它们都具有相同的名称。猜猜哪一个是可见的。。。另外，请参见：可能是您的一位同学在做相同的作业？函数collect A:array返回数组甚至不会编译。您需要声明数组类型。@BrianDrummond感谢您的回复。我更新了我的代码以及终端的错误。@SimonWright这样的东西是数组类型吗？类型向量是整数的数组整数范围；1如果要传入一个数组进行收集：使其成为一个带有IN-Out模式参数的过程，不需要两个数组：更简单。2另外：在声明中初始化数组，例如by:=others=>0，这样它就不包含垃圾。3在阵列上循环时，不要使用幻数，因为您已经很好地说明了原因！：改为在Arr'范围内用于i。原始代码中函数collect内部的数组定义可能来自Fortran 77语法。原始代码中函数collect内部的数组定义可能来自Fortran 77语法。