Chip 1995 March/CHIP3.mdf/programm/prog2/answers/ch15_1b.ada

Text File | 1991-07-01 | 480 b | 17 lines

                       -- Chapter 15 - Programmming example 1
separate (CH15_1A)
                       -- Implementation of Package1
package body AdderPkg is
   procedure Add_Em_Up(In_Dat : in     MY_ARRAY;
                       Sum    :    out FLOAT) is
   Total : FLOAT;
   begin
      Total := 0.0;
      for Index in In_Dat'FIRST..In_Dat'LAST loop
         Total := Total + In_Dat(Index);
      end loop;
      Sum := Total;
   end Add_Em_Up;
end AdderPkg;