092.动态数组

最新推荐文章于 2021-04-05 10:50:32 发布

dos diosas

最新推荐文章于 2021-04-05 10:50:32 发布

阅读量120

点赞数

分类专栏： # Ada语言程序设计基础

本文链接：https://blog.csdn.net/dosdiosas_/article/details/106040527

版权

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

105 篇文章 8 订阅

订阅专栏

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

procedure Summer is
   
   type MY_ARRAY is array (Positive range <>) of Integer;
   
   Dummy1:constant MY_ARRAY:=(27,14,13,33);
   Dummy2:constant MY_ARRAY:=(112=>24,113=>14,114=>13,115=>33);
   
   My_List:MY_ARRAY(1..12);
   Stuff:MY_ARRAY(4..11):=(12,13,7,11,125,others=>17);
   Total:Integer;
   
   function Sum_Up(In_Array:MY_ARRAY)return Integer is
      Sum:Integer:=0;
   begin
      for Index in In_Array'First ..In_Array'Last loop
         Sum:=Sum+In_Array(Index);
      end loop;
      Put("the sum of the number is:");
      Put(Sum,4);
      New_Line;
      return Sum;
   end Sum_Up;
   
   
   
begin
   My_List := (0, 1, 2, 3, 4, 3, 2, 1, 2, 3, 4, 7);
   Stuff := (4 => 12, 8 => 11, 5 => 13, 7 => 1, others => 9);

   Total := Sum_Up(My_List);
   Total := Sum_Up(Stuff);
end Summer;