character A*4,B*5,C*4DATA A,B,C/’BIG’,’MIDLE’,’SMAL’/IF(A.GT.B) THEN IF(A.GT.C) THEN PRINT *,A ELSE PRINT *,B ENDIFELSE IF(B.GT.C) THEN PRINT *,B ELSE PRINT *,C ENDIFENDIFEND运行结果为
DATA A,B,C/’BIG’,’MIDLE’,’SMAL’/
IF(A.GT.B) THEN
IF(A.GT.C) THEN
PRINT *,A
ELSE
PRINT *,B
ENDIF
ELSE
IF(B.GT.C) THEN
PRINT *,B
ELSE
PRINT *,C
ENDIF
ENDIF
END
运行结果为
