온도 변환(DO WHILE, END DO)

DO WHILE 을 이용한 온도 변환

섭씨온도를 화씨온도로 변환

계속 변환할 지 결정

-40도씨 이상만 변환

PROGRAM Temp

IMPLICIT NONE

REAL :: Celsius, Fahrenheit
CHARACTER :: Response = "Y"

DO WHILE (Response /= "N")

PRINT *, "-40도씨 이상의 섭씨 온도를 입력하시오(ex:36)"
READ *, Celsius

IF (Celsius >= -40) THEN
Fahrenheit = 1.8 * Celsius + 32.0

PRINT *,"섭씨온도 ", Celsius, " = 화씨온도 ", Fahrenheit

PRINT *
PRINT *, "온도 변환을 더 하시겠습니까? 그만 두려면 N을 입력하시오."
READ *, Response
END IF

END DO

END PROGRAM Temp

위 소스를 b.f95로 저장

컴파일 및 프로그램 테스트