Computers in Engineering WWW Site - Example 6.1

Example 6.1

FORTRAN Version

!
      PROGRAM P61
!
!
      IMPLICIT NONE
      INTEGER :: I,J,K
!
      PRINT *, 'This is Program >> P61  - Swap 2 elements'
!
!     Tell program where data for  READ *  is coming from
      OPEN(UNIT=5, FILE='P61.DAT')      ! UNIT=5 is the default input
!
      READ *,I,J
      PRINT *,I,J
!     EXCHANGE I AND J
      K=I
      I=J
      J=K
      PRINT *,I,J
      STOP
      END PROGRAM P61

DATA:

39 47

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 >> P61  - Swap 2 elements
          39          47
          47          39

Pascal Version

{$G256}
{$P512}
{$D+}
PROGRAM p61 (input, output);
VAR
  i, j, k : INTEGER;
BEGIN
  readln ( i, j );
{
     exchange i and j
}
  k := i;
  i := j;
  j := k;
  writeln ( i, ' ', j )
END.

DATA:

39 47

Last modified: 22/07/97