home *** CD-ROM | disk | FTP | other *** search
/ Chip 1995 March / CHIP3.mdf / programm / prog2 / concat.ada < prev    next >
Encoding:
Text File  |  1991-07-01  |  891 b   |  45 lines
  1.                                        -- Chapter 11 - Program 3
  2. with Text_IO;
  3. use Text_IO;
  4.  
  5. procedure Concat is
  6.  
  7.    String4 : STRING(1..4);
  8.    String7 : STRING(1..7);
  9.  
  10. begin
  11.  
  12.    String7 := "CAT" & "FISH";                       -- CATFISH
  13.    Put(String7); New_Line;
  14.  
  15.    String4 := "CAT" & "S";                          -- CATS
  16.    Put(String4); New_Line;
  17.  
  18.    String4 := "S" & "CAT";                          -- SCAT
  19.    Put(String4); New_Line;
  20.  
  21.    String7 := String4 & "cat";                      -- SCATcat
  22.    Put(String7); New_Line;
  23.  
  24.    String7 := "Go" & ASCII.CR & ASCII.LF & "Car";   -- Go
  25.    Put(String7); New_Line;                          -- Car
  26.  
  27.    String7(3..5) := "ldb";                          -- Goldbar
  28.    Put(String7); New_Line;
  29.  
  30. end Concat;
  31.  
  32.  
  33.  
  34.  
  35. -- Result of execution
  36.  
  37. -- CATFISH
  38. -- CATS
  39. -- SCAT
  40. -- SCATcat
  41. -- Go
  42. -- Car
  43. -- Goldbar
  44.  
  45.