오염지수 구하기
세 곳의 오염지수를 입력받고 평균을 계산
평균과 기준치와 비교하여 상태 표시
PROGRAM Pollution_3
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 !세 곳의 오염지수의 정수 평균 구하기
SELECT CASE (Index)
CASE (:LowCutoff -1)
PRINT *, "Good Condition"
CASE (LowCutoff : HighCutoff -1)
PRINT *, "Fair Condition"
CASE (HighCutoff:)
PRINT *, "Poor Condition"
END SELECT
END PROGRAM Pollution_3
위 소스를 03_04_Poll_3.f95로 저장
컴파일 및 프로그램 테스트
CASE 사용방법
1)
SELECT CASE (INDEX)
CASE(25)
PRINT *, "INDEX is 25"
DEFAULT
PRINT *, "INDEX is ", Index
END SELECT
INDEX의 값이 25이면 출력
2)
SELECT CASE (INDEX)
CASE(:25)
PRINT *, "INDEX is equal or less than 25"
DEFAULT
PRINT *, "INDEX is ", Index
END SELECT
INDEX의 값이 25이하이면 출력
3)
SELECT CASE (INDEX)
CASE(25 : 50)
PRINT *, "INDEX is equal or more than 25 and equal or less than 50"
DEFAULT
PRINT *, "INDEX is ", Index
END SELECT
INDEX의 값이 25 이상, 50 이하이면 출력
4)
SELECT CASE (INDEX)
CASE(50:)
PRINT *, "INDEX is equal or more than 50"
DEFAULT
PRINT *, "INDEX is ", Index
END SELECT
INDEX의 값이 50 이상이면 출력
'Programming > Fortran' 카테고리의 다른 글
| 곱셈표 (DO, END DO) (0) | 2008.08.27 |
|---|---|
| 반가수기(.OR. .AND. .NOT) (0) | 2008.08.27 |
| 오염지수 구하기 2(IF THEN, ELSE IF THEN, ELSE, END IF) (0) | 2008.08.27 |
| 오염지수 구하기(IF THEN ELSE END IF) (0) | 2008.08.26 |
| 이차방정식의 해 구하기(IF THEN ELSE END IF) (0) | 2008.08.26 |