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

오염 지수 구하기

세 곳의 오염지수를 입력받는다.

세 곳의 오염지수 평균을 구한다.

기준치와 비교하여 안전한 상태 및 위험한 상태를 표시

PROGRAM Pollution_1

IMPLICIT NONE

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

INTEGER, PARAMETER :: Cutoff = 50 !기준치 상수

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

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

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

IF (Index < Cutoff) THEN !오염지수 평균이 기준치 보다 작으면

PRINT *, "안전한 상태"

ELSE !오염지수 평균이 기준이 이상이면

PRINT *, "위험한 상태"

END IF

END PROGRAM Pollution_1

위 소스를 03_02_Poll_1.f95 로 저장

컴파일 하고 프로그램 테스트