home *** CD-ROM | disk | FTP | other *** search
/ Chip 1995 March / CHIP3.mdf / programm / prog2 / record3.ada < prev    next >
Encoding:
Text File  |  1991-07-01  |  1.3 KB  |  57 lines
  1.                                        -- Chapter 12 - Program 3
  2. with Text_IO;
  3. use Text_IO;
  4.  
  5. procedure Record3 is
  6.  
  7.    type MONTH_NAME is (JAN,FEB,MAR,APR,MAY,JUN,JUL,
  8.                                              AUG,SEP,OCT,NOV,DEC);
  9.  
  10.    type DATE is
  11.       record
  12.          Month : MONTH_NAME;
  13.          Day   : INTEGER range 1..31;
  14.          Year  : INTEGER range 1776..2010;
  15.       end record;
  16.  
  17.    type GRADE_ARRAY is array(1..4) of POSITIVE;
  18.  
  19.    type PERSON is
  20.       record
  21.          Name           : STRING(1..15);
  22.          Birth_Day      : DATE;
  23.          Graduation_Day : DATE := (MAY,27,1987);
  24.          Age            : INTEGER := 21;
  25.          Sex            : CHARACTER := 'F';
  26.          Grades         : GRADE_ARRAY;
  27.       end record;
  28.  
  29.    Self, Mother, Father : PERSON;
  30.  
  31. begin
  32.  
  33.    Self.Name := "John Q. Doe    ";
  34.    Self.Sex := 'M';
  35.    Self.Birth_Day.Month := OCT;
  36.    Self.Birth_Day.Day := 18;
  37.    Self.Birth_Day.Year := 1938;
  38.    Self.Grades(1) := 85;
  39.    Self.Grades(2) := 90;
  40.    Self.Grades(3) := 75;
  41.    Self.Grades(4) := 92;
  42.  
  43.    Mother := Self;
  44.    Father.Birth_Day := Mother.Birth_Day;
  45.    Father.Birth_Day.Day := Self.Birth_Day.Day - 4;
  46.    Mother.Sex := 'F';
  47.  
  48. end Record3;
  49.  
  50.  
  51.  
  52.  
  53. -- Result of execution
  54.  
  55. --   (No output from this program.)
  56.  
  57.