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

最新推荐文章于 2025-07-07 10:49:43 发布

原创最新推荐文章于 2025-07-07 10:49:43 发布 · 200 阅读

0 ·

CC 4.0 BY-SA版权

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

105 篇文章

订阅专栏

本文通过一个Ada语言程序示例，展示了如何定义并使用枚举类型和数组。程序中定义了一个工作日的枚举类型，创建了一个浮点数数组来存储每周各天的工作小时数，并计算了一周总工时。

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;