Computers in Engineering WWW Site - Example 2.3

Example 2.3


FORTRAN Version

!
      PROGRAM P23
!
!
      IMPLICIT NONE 
      INTEGER :: I, J
!
      PRINT *, 'This is Program >> P23  - INTEGER Operations'
!
!
!     INTEGER OPERATIONS
!
      I = 1
      J = 2
      PRINT *,' I+J = ',I+J
      PRINT *,' I-J = ',I-J
      PRINT *,' I*J = ',I*J
      PRINT *,' I/J = ',I/J
!
      STOP
      END PROGRAM P23
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 >> P23  - INTEGER Operations
 I+J =            3
 I-J =           -1
 I*J =            2
 I/J =            0

Pascal Version

{
     Conversions in expressions
}
PROGRAM p23 (input, output);
VAR
  i, j : INTEGER;
  a, b : REAL;
{
     Integer operations
}
BEGIN
  i := 1;
  j := 2;
  writeln (' i+j = ', i+j);
  writeln (' i-j = ', i-j);
  writeln (' i*j = ', i*j);
  writeln (' i/j = ', i DIV j)
END.

Last modified: 21/07/97