오염지수 구하기 2(IF THEN, ELSE IF THEN, ELSE, END IF)

오염지수 구하기

세 곳의 오염지수를 입력

오염지수 평균을 구하여 두 개의 기준치와 비교하여 상태 표시

PROGRAM Pollution_2

IMPLICIT NONE

INTEGER :: Level_1, Level_2, Level_3, Index !세 곳의 오염지수와 오염지수 정수 평균

INTEGER, PARAMETER :: LowCutoff = 25, HighCutoff = 50 !기준치 상수

PRINT *, "세 곳의 오염지수를 입력하시오(ex: 1, 2, 3)"

READ *, Level_1, Level_2, Level_3 !세 곳의 오염지수 입력받기

INDEX = (Level_1 + Level_2 + Level_3) / 3 !세 곳의 오염지수의 정수 평균 구하기

IF (Index < LowCutoff) THEN !오염지수 평균이 LowCutoff 보다 작으면

PRINT *, "Good Condition"

ELSE IF (Index < HighCutoff) THEN !오염지수 평균이 HighCutoff보다 작으면

PRINT *, "Fair Condition"

ELSE ! 오염지수 평균이 HighCutoff 이상이면

PRINT *, "Poor Condition"

END IF

END PROGRAM Pollution_2

위 소스를 03_03_Poll_2.f95로 저장

컴파일 및 프로그램 테스트