home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / PASTUT24.ZIP / PTUTRSRC.ZIP / STRARRAY.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-12-01  |  893 b   |  38 lines
  1.                                 (* Chapter 7 - Program 1 *)
  2. program Pure_Pascal_Strings;
  3.  
  4. type Long_String  = array[1..25] of char;
  5.      String10     = array[1..10] of char;
  6.      String12     = array[1..12] of char;
  7.  
  8. var  First_Name   : String10;
  9.      Initial      : char;
  10.      Last_Name    : String12;
  11.      Full_Name    : Long_String;
  12.      Index        : integer;
  13.  
  14. begin  (* main program *)
  15.    First_Name := 'John      ';
  16.    Initial := 'Q';
  17.    Last_Name := 'Doe         ';
  18.    Writeln(First_Name,Initial,Last_Name);
  19.  
  20.    for Index := 1 to 10 do
  21.       Full_Name[Index] := First_Name[Index];
  22.    Full_Name[11] := Initial;
  23.    for Index := 1 to 12 do
  24.       Full_Name[Index + 11] := Last_Name[Index];
  25.    for Index := 24 to 25 do Full_Name[Index] := ' ';
  26.    Writeln(Full_Name);
  27. end.  (* main program *)
  28.  
  29.  
  30.  
  31.  
  32. { Result of execution
  33.  
  34. John      QDoe
  35. John      QDoe
  36.  
  37. }
  38.