home *** CD-ROM | disk | FTP | other *** search
/ Chip 1995 March / CHIP3.mdf / programm / prog2 / answers / ch11_1.ada < prev    next >
Encoding:
Text File  |  1991-07-01  |  380 b   |  25 lines
  1.                               -- Chapter 11 - Programming exercise 1
  2. with Text_IO;
  3. use Text_IO;
  4.  
  5. procedure Ch11_1 is
  6.  
  7. First_Name : constant STRING := "John";
  8. Last_Name  : constant STRING := "Doe";
  9. Full_Name  : STRING(1..8);
  10.  
  11. begin
  12.  
  13.    Full_Name := First_Name & ' ' & Last_Name;
  14.    Put_Line(Full_Name);
  15.  
  16. end Ch11_1;
  17.  
  18.  
  19.  
  20.  
  21. -- Result of execution
  22.  
  23. -- John Doe
  24.  
  25.