home *** CD-ROM | disk | FTP | other *** search
/ Chip 1995 March / CHIP3.mdf / programm / prog2 / mixtypes.ada < prev    next >
Encoding:
Text File  |  1991-07-01  |  831 b   |  39 lines
  1.                                        -- Chapter 6 - Program 7
  2. with Text_IO;
  3. use Text_IO;
  4.  
  5. procedure MixTypes is
  6.  
  7.    PI : constant := 3.1416;
  8.    TWO_PI : constant := 2 * PI;
  9.  
  10.    type MY_FLOAT is digits 7;
  11.    Size : MY_FLOAT;
  12.  
  13.    type MY_FIXED is delta 0.1 range -40.0..120.0;
  14.    Temperature : MY_FIXED;
  15.  
  16.    Index : INTEGER;
  17.  
  18. begin
  19.    Size := TWO_PI;
  20.    Temperature := 2 * TWO_PI;
  21.    Temperature := 3 * Temperature;
  22.    Temperature := MY_FIXED(12.0 * TWO_PI);
  23.  
  24.    Size := MY_FLOAT(Temperature) + PI;
  25.    Size := MY_FLOAT(Temperature + PI);
  26.  
  27.    Index := INTEGER(Size + MY_FLOAT(Temperature) + PI);
  28.    Index := INTEGER(Size) + INTEGER(Temperature) + INTEGER(PI);
  29.    Index := INTEGER(Size + PI) + INTEGER(Temperature);
  30.  
  31. end MixTypes;
  32.  
  33.  
  34.  
  35.  
  36. -- Result of execution
  37.  
  38. --   (No output from this program.)
  39.