home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / TPEX.ZIP / C8REVEX3.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-09-04  |  726 b   |  35 lines
  1. {
  2. Programming in Turbo Pascal.
  3. Turbo Pascal By Example By Greg Perry.
  4. Chapter 8 Review Exercise #3.
  5. Robert E. Wade        9-4-93
  6. }
  7.  
  8. PROGRAM StringVariables;
  9.  
  10. USES Crt;
  11.  
  12. VAR      FirstName:      STRING[30];
  13.          MiddleName:     STRING[30];
  14.          LastName:       STRING[30];
  15.          FullName:       STRING[90];
  16.  
  17. BEGIN
  18.    CLRSCR;
  19.  
  20.       { Assign data to variables }
  21.  
  22.    FirstName := 'Robert';
  23.    MiddleName := 'Eric';
  24.    LastName := 'Wade';
  25.  
  26.       { Concatenated above variables and assigned
  27.       it to variable "FullName"  with spaces between each }
  28.  
  29.    FullName := FirstName + ' ' + MiddleName + ' ' + LastName;
  30.  
  31.       { Display the data to the screen }
  32.  
  33.    WRITELN( FullName );
  34. END.
  35.