home *** CD-ROM | disk | FTP | other *** search
/ Chip 1995 March / CHIP3.mdf / programm / prog4 / answers / ch19_1.ada < prev    next >
Encoding:
Text File  |  1991-07-01  |  1.2 KB  |  56 lines
  1.                        -- Chapter 19 - Programming exercise 1
  2. with Text_IO;
  3. use Text_IO;
  4.  
  5. procedure CH19_1 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.    package Enum_IO is new Text_IO.Enumeration_IO(DAY);
  13.    use Enum_IO;
  14.  
  15.    Hours       : array(DAY) of FLOAT;
  16.    Total_Hours : FLOAT;
  17.    Today       : DAY;
  18.  
  19. begin
  20.    for Today in MON..FRI loop
  21.       Hours(Today) := 8.0;
  22.    end loop;
  23.  
  24.    Hours(SAT) := 4.0;
  25.    Hours(SUN) := 0.0;
  26.  
  27.    Total_Hours := 0.0;
  28.    for Today in DAY loop
  29.       Total_Hours := Total_Hours + Hours(Today);
  30.       Put(Hours(Today),4,2,0);
  31.       Put(" hours were worked on ");
  32.       Put(Today);
  33.       New_Line;
  34.    end loop;
  35.  
  36.    Put("Total hours for the week =");
  37.    Put(Total_Hours,8,2,0);
  38.    New_Line;
  39.  
  40. end CH19_1;
  41.  
  42.  
  43.  
  44.  
  45. -- Result of Execution
  46.  
  47. --    8.00 hours were worked on MON
  48. --    8.00 hours were worked on TUE
  49. --    8.00 hours were worked on WED
  50. --    8.00 hours were worked on THU
  51. --    8.00 hours were worked on FRI
  52. --    4.00 hours were worked on SAT
  53. --    0.00 hours were worked on SUN
  54. -- Total hours for the week =      44.00
  55.  
  56.