home *** CD-ROM | disk | FTP | other *** search
/ Chip 1995 March / CHIP3.mdf / programm / prog2 / answers / ch05_2.ada < prev    next >
Encoding:
Text File  |  1991-07-01  |  1.4 KB  |  57 lines
  1.                               -- Chapter 5 - Programming exercise 2
  2. with Text_IO;
  3. use Text_IO;
  4.  
  5. procedure Ch05_2 is
  6.  
  7.    package Int_IO is new Text_IO.Integer_IO(INTEGER);
  8.    use Int_IO;
  9.  
  10.    Year : INTEGER;
  11.  
  12. begin
  13.    for Age in 0..21 loop
  14.       Put("In");
  15.       Put(Age + 1938,5);
  16.       Put(", I was");
  17.       Put(Age,3);
  18.       Put(" years old");
  19.       case Age is
  20.          when  5 => Put(", and started school");
  21.          when 17 => Put(", and graduated from high school");
  22.          when others => null;
  23.       end case;
  24.       Put(".");
  25.       New_Line;
  26.    end loop;
  27. end Ch05_2;
  28.  
  29.  
  30.  
  31.  
  32. -- Result of execution
  33.  
  34. -- In 1938, I was  0 years old.
  35. -- In 1939, I was  1 years old.
  36. -- In 1940, I was  2 years old.
  37. -- In 1941, I was  3 years old.
  38. -- In 1942, I was  4 years old.
  39. -- In 1943, I was  5 years old, and started school.
  40. -- In 1944, I was  6 years old.
  41. -- In 1945, I was  7 years old.
  42. -- In 1946, I was  8 years old.
  43. -- In 1947, I was  9 years old.
  44. -- In 1948, I was 10 years old.
  45. -- In 1949, I was 11 years old.
  46. -- In 1950, I was 12 years old.
  47. -- In 1951, I was 13 years old.
  48. -- In 1952, I was 14 years old.
  49. -- In 1953, I was 15 years old.
  50. -- In 1954, I was 16 years old.
  51. -- In 1955, I was 17 years old, and graduated from high school.
  52. -- In 1956, I was 18 years old.
  53. -- In 1957, I was 19 years old.
  54. -- In 1958, I was 10 years old.
  55. -- In 1959, I was 21 years old.
  56.  
  57.