home *** CD-ROM | disk | FTP | other *** search
/ Chip 1995 March / CHIP3.mdf / programm / prog4 / enumary.ada < prev    next >
Encoding:
Text File  |  1991-07-01  |  749 b   |  42 lines
  1.                                        -- Chapter 19 - Program 2
  2. with Text_IO;
  3. use Text_IO;
  4.  
  5. procedure EnumAry is
  6.  
  7.    package Flt_IO is new Text_IO.Float_IO(FLOAT);
  8.    use Flt_IO;
  9.  
  10.    type DAY is (MON,TUE,WED,THU,FRI,SAT,SUN);
  11.  
  12.    Hours       : array(DAY) of FLOAT;
  13.    Total_Hours : FLOAT;
  14.    Today       : DAY;
  15.  
  16. begin
  17.    for Today in MON..FRI loop
  18.       Hours(Today) := 8.0;
  19.    end loop;
  20.  
  21.    Hours(SAT) := 4.0;
  22.    Hours(SUN) := 0.0;
  23.  
  24.    Total_Hours := 0.0;
  25.    for Today in DAY loop
  26.       Total_Hours := Total_Hours + Hours(Today);
  27.    end loop;
  28.  
  29.    Put("Total hours for the week =");
  30.    Put(Total_Hours,8,2,0);
  31.    New_Line;
  32.  
  33. end EnumAry;
  34.  
  35.  
  36.  
  37.  
  38. -- Result of Execution
  39.  
  40. -- Total hours for the week =      44.00
  41.  
  42.