home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / PASTUT24.ZIP / PTUTRSRC.ZIP / STRINGS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-12-01  |  532 b   |  27 lines
  1.                                 (* Chapter 7 - Program 2 *)
  2. program TURBO_Pascal_Strings;
  3.  
  4. var First_Name   : string[10];
  5.     Initial      : char;
  6.     Last_Name    : string[12];
  7.     Full_Name    : string[25];
  8.  
  9. begin  (* main program *)
  10.    First_Name := 'John';
  11.    Initial := 'Q';
  12.    Last_Name := 'Doe';
  13.    Writeln(First_Name,Initial,Last_Name);
  14.    Full_Name := First_Name + ' ' + Initial + ' ' + Last_Name;
  15.    Writeln(Full_Name);
  16. end.  (* main program *)
  17.  
  18.  
  19.  
  20.  
  21. { Result of execution
  22.  
  23. JohnQDoe
  24. John Q Doe
  25.  
  26. }
  27.