程序
    READ(*，*)X
    IF((X．LT．-5.0)．OR．(X．EQ．-1.0))THEN
      Y=0.0
    ELSEIF(X．LT．0.0)THEN
      Y=1.0/(X+1.0)
    EISEIF(X．LT．5.O)THEN
      Y=1.0/(X+2.0)
    ELSE
      Y=0.0
    ENDIF
    WRITE(*，*)Y
    END
    若输入4.0，则结果为    。