! ! =====> 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
Page builder: Charles Boivin
Last modified: 11/07/95