090.使用一个辅助数组队员数组进行逆转(函数返回数组的实例)

原创于 2020-05-10 18:41:55 发布 · 147 阅读

0 ·

CC 4.0 BY-SA版权

Ada语言程序设计基础专栏收录该内容

105 篇文章

订阅专栏

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

procedure Revers is
   
   type MY_ARRAY is array(3..10) of Integer;
   
   Store_Here:MY_ARRAY:=(3,16,-5,6,12,66,-13,57);
   Another :MY_ARRAY;
   
   function Reverse_Array(Data:MY_ARRAY) return MY_ARRAY is
      Temp :MY_ARRAY;
   begin
      for Index in Data'Range loop
         Temp(Index):=Data(Data'First+Data'Last-Index);
      end loop;
      return Temp;
   end Reverse_Array;
   
begin
   
   for Index in Store_Here'Range loop
      Put(Store_Here(Index),5);
   end loop;
   New_Line;
   
   Another :=Reverse_Array(Store_Here);
   
   for Index in Store_Here'Range loop
      Put(Store_Here(Index),5);
   end loop;
   New_Line;
   
   for Index in Store_Here'Range loop
      Put(Another(Index),5);
   end loop;
   New_Line;   
      
   
end Revers;