home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / PASTUT24.ZIP / PTUTRSRC.ZIP / WRITELNX.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-12-01  |  1.4 KB  |  76 lines
  1.                                 (* Chapter 10 - Program 1 *)
  2. program Examples_Of_Write_Statements;
  3.  
  4. var Index  : byte;
  5.     Count  : real;
  6.     What   : boolean;
  7.     Letter : char;
  8.     Name   : string[10];
  9.  
  10. begin
  11.    Writeln('Integer');
  12.    Index := 17;
  13.    Writeln(Index,Index);
  14.    Writeln(Index:15,Index:15);
  15.  
  16.    Writeln;
  17.    Writeln('Real');
  18.    Count := 27.5678;
  19.    Writeln(Count,Count);
  20.    Writeln(Count:15,Count:15);
  21.    Writeln(Count:15:2,Count:15:2);
  22.    Writeln(Count:15:3,Count:15:3);
  23.    Writeln(Count:15:4,Count:15:4);
  24.  
  25.    Writeln;
  26.    Writeln('Boolean');
  27.    What := FALSE;
  28.    Writeln(What,What);
  29.    Writeln(What:15,What:15);
  30.  
  31.    Writeln('Char');
  32.    Letter := 'Z';
  33.    Writeln(Letter,Letter);
  34.    Writeln(Letter:15,Letter:15);
  35.  
  36.    Writeln('String');
  37.    Name := 'John Doe';
  38.    Writeln(Name,Name);
  39.    Writeln(Name:15,Name:15);
  40.  
  41.    Writeln;
  42.    Writeln('Text output','Text output');
  43.    Writeln('Text output':15,'Text output':15);
  44. end.
  45.  
  46.  
  47.  
  48.  
  49. { Result of execution
  50.  
  51. Integer
  52. 1717
  53.              17             17
  54.  
  55. Real
  56.  2.7567800000E+01 2.7567800000E+01
  57.  2.75678000E+01 2.75678000E+01
  58.           27.57          27.57
  59.          27.568         27.568
  60.         27.5678        27.5678
  61.  
  62. Boolean
  63. FALSEFALSE
  64.           FALSE          FALSE
  65. Char
  66. ZZ
  67.               Z              Z
  68. String
  69. John DoeJohn Doe
  70.        John Doe       John Doe
  71.  
  72. Text OutputText Output
  73.     Text Output    Text Output
  74.  
  75. }
  76.