home *** CD-ROM | disk | FTP | other *** search
/ Chip 1995 March / CHIP3.mdf / programm / prog2 / answers / ch11_2.ada < prev    next >
Encoding:
Text File  |  1991-07-01  |  765 b   |  45 lines
  1.                    -- Chapter 11 - Programming exercise 2
  2. with Text_IO;
  3. use Text_IO;
  4.  
  5. procedure CH11_2 is
  6.  
  7.    package Int_IO is new Text_IO.Integer_IO(INTEGER);
  8.    use Int_IO;
  9.  
  10.    Char : CHARACTER;
  11.    Index : INTEGER;
  12.    Stuff : array(0..25) of CHARACTER;
  13.  
  14. begin
  15.    Char := 'A';
  16.    Index := 5 + CHARACTER'POS(Char);
  17.    Put(Index);
  18.    Char := CHARACTER'VAL(Index);
  19.    Put(Char);
  20.  
  21.    New_Line;
  22.    Stuff(21) := 'X';
  23.    Index := 2 + CHARACTER'POS(Stuff(21));
  24.    Put(Index);
  25.    Stuff(0) := CHARACTER'VAL(Index);
  26.    Put(Stuff(0));
  27.  
  28.    New_Line;
  29.    Char := CHARACTER'VAL(CHARACTER'POS(Char) + 1);
  30.    Put(Char);
  31.    Char := CHARACTER'SUCC(Char);
  32.    Put(Char);
  33.  
  34. end CH11_2;
  35.  
  36.  
  37.  
  38.  
  39. -- Result of execution
  40.  
  41. --     70F
  42. --     90Z
  43. -- GH
  44.  
  45.