home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / TPEX.ZIP / C8REVEX2.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-09-04  |  872 b   |  41 lines
  1. {
  2. Programming in Turbo Pascal.
  3. Turbo Pascal By Example By Greg Perry.
  4. Chapter 8 Review Exercise #2.
  5. Robert E. Wade        9-4-93
  6. }
  7.  
  8. PROGRAM StringVariables;
  9.  
  10. USES Crt, Printer;
  11.  
  12. CONST    Spc = ' ';
  13.          c1  = 20;
  14.          c2  = 20;
  15.          c3  = 20;
  16.  
  17. VAR      FirstName:      STRING[30];
  18.          MiddleName:     STRING[30];
  19.          LastName:       STRING[30];
  20.  
  21. BEGIN
  22.    CLRSCR;
  23.  
  24.       { Assign data to variables }
  25.  
  26.    FirstName := 'Robert';
  27.    MiddleName := 'Eric';
  28.    LastName := 'Wade';
  29.  
  30.       { Display the data to the screen }
  31.  
  32.    WRITELN( LastName, ', ', FirstName, ' ', MiddleName );
  33.    WRITELN;
  34.    WRITELN( LastName:c1, FirstName:c2, MiddleName:c3 );
  35.  
  36.       { Print the data on a printer }
  37.  
  38.    WRITELN(LST, LastName, ', ', FirstName, ' ', MiddleName );
  39.    WRITELN(LST, LastName:c1, FirstName:c2, MiddleName:c3 );
  40. END.
  41.