Example 3.1

FORTRAN Version

!
      PROGRAM P31
!
!
!     Example to show use of logical variables
!
      IMPLICIT NONE
      INTEGER :: WEIGHT, AGE
      LOGICAL :: HEAVY,MINOR
!
!
      PRINT *, 'This is Program >> P31  - Logical Relations'
!
!
      READ * ,WEIGHT,AGE
      HEAVY=WEIGHT > 90
      MINOR=AGE <  18
      PRINT *,WEIGHT,HEAVY
      PRINT *,AGE,MINOR
      STOP
      END PROGRAM P31

65 17

              +--------------------------------------------------+
              |     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 >> P31  - Logical Relations
          65 F
          17 T

Pascal Version

PROGRAM p31 (input, output);
VAR
  heavy, minor : BOOLEAN;
  kilos, age : INTEGER;
BEGIN
  readln (kilos, age );
  heavy := kilos > 90;
  minor := age < 18;
  writeln ( kilos,' ', heavy );
  writeln ( age,' ',minor )
END.

65 17

Last modified: 21/07/97