home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / PASANS.ZIP / CH07_1.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-02-04  |  502 b   |  31 lines
  1.                             (* Chapter 7 - Programming exercise 1 *)
  2. program My_Name;
  3.  
  4. var First_Name : string[10];
  5.     Initial    : char;
  6.     Last_Name  : string[10];
  7.     Full_Name  : string[30];
  8.  
  9. begin
  10.  
  11.    First_Name := 'John';
  12.    Initial    := 'Q';
  13.    Last_Name  := 'Doe';
  14.    Writeln(First_Name,' ',Initial,' ',Last_Name);
  15.  
  16.    Full_Name := First_Name + ' ' + Initial + ' ' + Last_Name;
  17.    Writeln(Full_Name);
  18.  
  19. end.
  20.  
  21.  
  22.  
  23.  
  24.  
  25. { Result of execution
  26.  
  27. John Q Doe
  28. John Q Doe
  29.  
  30. }
  31.