home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / pascal / pascsrc.arc / WRITELNX.PAS < prev    next >
Pascal/Delphi Source File  |  1988-01-15  |  973b  |  44 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.