093.带有枚举变量索引的数组的示例

with Ada.Text_IO,Ada.Float_Text_IO;
use Ada.Text_IO,Ada.Float_Text_IO;

procedure EnumAry is
   
   type DAY is (MON, TUE, WED, THU, FRI, SAT, SUN);

   Hours       : array(DAY) of FLOAT; -- array(DAY) 代指下标的取法
   Total_Hours : FLOAT;
   Today       : DAY;
   
begin
   for Today in MON..FRI loop
      Hours(Today):=8.0;
   end loop;
   
   Hours(SAT):=4.0;
   Hours(SUN):=0.0;
   
   Total_Hours:=0.0;
   for Today in DAY loop
      Total_Hours:=Total_Hours+Hours(Today);
   end loop;
   
   Put("Total hours for the week=");
   Put(Total_Hours,5,2,0);
   New_Line;
      
end EnumAry;