home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / PASTUT24.ZIP / PTUTRSRC.ZIP / WHATSTRG.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-12-01  |  842 b   |  46 lines
  1.                                 (* Chapter 7 - Program 3 *)
  2. program What_Is_In_A_String;
  3.  
  4. var First_Name   : string[10];
  5.     Initial      : char;
  6.     Last_Name    : string[12];
  7.     Full_Name    : string[25];
  8.     Index,Total  : integer;
  9.  
  10. begin  (* main program *)
  11.    First_Name := 'John';
  12.    Initial := 'Q';
  13.    Last_Name := 'Doe';
  14.    Writeln(First_Name,Initial,Last_Name);
  15.    Full_Name := First_Name + ' ' + Initial + ' ' + Last_Name;
  16.    Writeln(Full_Name);
  17.  
  18.    Total := Length(Full_Name);
  19.    Writeln('The string contains ',Total:4,' characters');
  20.    for Index := 1 to Length(Full_Name) do
  21.       Writeln(Full_Name[Index]);
  22.    Writeln('End of program');
  23. end.  (* main program *)
  24.  
  25.  
  26.  
  27.  
  28. { Result of execution
  29.  
  30. JohnQDoe
  31. John Q Doe
  32. The string contains   10 characters
  33. J
  34. o
  35. h
  36. n
  37.  
  38. Q
  39.  
  40. D
  41. o
  42. e
  43. End of program
  44.  
  45. }
  46.