Computers in Engineering WWW Site - Example 4.5

Example 4.5


FORTRAN Version

!
      PROGRAM P45
!
!
      IMPLICIT NONE
      INTEGER :: M,N
!
      PRINT *, 'This is Program >> P45  - Spacing for a printer'
!
!     Carriage Control character
!     is the FIRST one in the FORMAT
!     Not all compilers respect these when running from a screen
      PRINT 200
200   FORMAT('1EXAMPLES')   ! On top of a new page/screen
      N = 14
      M = -27
      PRINT 15, N, M
15    FORMAT(' ',2I5)       ! Blank for single spacing
      PRINT 16, N, M
16    FORMAT('0', 2I5)      ! Zero for double spacing
      STOP
      END PROGRAM P45
OUTPUT:

              +--------------------------------------------------+
              |     32-bit Power for Lahey Computer Systems      |
              |   Phar Lap's 386|DOS-Extender(tm) Version 7.0    |
              |  Copyright (C) 1986-94 Phar Lap Software, Inc.   |
              |           Available Memory = 14880 Kb            |
              +--------------------------------------------------+


This is Program >> P45  - Spacing for a printer
 EXAMPLES
   14  -27

   14  -27

Pascal Version

PROGRAM p45 ( input, output );
VAR
  n, m : INTEGER;
BEGIN
  writeln ( ^l );
  writeln ( 'examples' );
  n := 14;
  m := -27;
  writeln ( n:5, m:5 );
  writeln;
  writeln ( n:5, m:5 )
END.

Last modified: 21/07/97