P37.F90

Classification program

!
! =====> Program - P37.F90
!
!
!     DECLARATIONS
!
      INTEGER AGE,WEIGHT
      CHARACTER (LEN=15) GROUP, NAME
      LOGICAL SINGLE,HEAVY
!
!
      PRINT *, 'This is Program >> P37  - Classification program'
!
!     Tell program where data for  READ *  is coming from
      OPEN(UNIT=5, FILE='P37.DAT')      ! UNIT=5 is the default input
!
!
!     MAIN STATEMENTS
!
         PRINT *,'CLASSIFICATION PROGRAM'
!
Loop1: DO
         PRINT * ,' '
         READ  * ,AGE,WEIGHT
!
         IF(AGE == 99)STOP  ! Yes == for testing in an IF
         HEAVY = .FALSE.    ! One = for an assignment statement
         IF(WEIGHT > 70) HEAVY=.TRUE.
!
!
!
         IF(AGE < 18)THEN
           GROUP='MINOR'
         ELSE IF(AGE < 35)THEN
           GROUP='PRIME YEARS'
         ELSE
           GROUP='MATURE'
         END IF
!
         READ * ,NAME
         READ *,SINGLE
!
         IF(SINGLE)THEN
           PRINT * ,NAME,' IS SINGLE'
         ELSE
           READ * ,MARRGS
           PRINT * ,NAME,'WAS MARRIED', &
           MARRGS,'TIMES'
         END IF
!
         PRINT * ,'SHE IS',AGE,'YEARS OLD'
         PRINT * ,'AND WEIGHS',WEIGHT,'KILOGRAMS'
         IF(HEAVY)PRINT * , &
            'AND SHOULD JOIN WEIGHT WATCHERS'
!
         PRINT * ,'AGE GROUP: ',GROUP
      END DO Loop1
      END

DATA:
39  77
'Mary'
F
9
19  48
'Suzie'
T
99 99

OUTPUT:
Program entered
 This is Program >> P37  - Classification program
 CLASSIFICATION PROGRAM
  
 Mary           WAS MARRIED 9 TIMES
 SHE IS 39 YEARS OLD
 AND WEIGHS 77 KILOGRAMS
 AND SHOULD JOIN WEIGHT WATCHERS
 AGE GROUP: MATURE         
  
 Suzie           IS SINGLE
 SHE IS 19 YEARS OLD
 AND WEIGHS 48 KILOGRAMS
 AGE GROUP: PRIME YEARS    
  
Fortran-90 STOP
Come back to the previous page
Page builder: Charles Boivin
Last modified: 11/07/95