ex0503.for

来自「Fortran95的一些有用的源程序」· FOR 代码 · 共 17 行

	PROGRAM ex0503
	IMPLICIT NONE
	INTEGER rain, windspeed

	WRITE(*,*) "Rain:"
	READ (*,*) rain
	WRITE(*,*) "Wind Speed:"
	READ (*,*) windspeed

	IF ( rain .GT. 150 .OR. windspeed .GT. 10 ) THEN
	  WRITE(*,*) "不用上班上课"
	ELSE
	  WRITE(*,*) "照常上班上课"
	END IF

	STOP
	END