PROGRAM BISECTION_1_1
IMPLICIT NONE
REAL(8) X,A,AI,B,BI,C,CI
REAL(8) :: EPS=1.0D-10
REAL(8) :: e=2.71828182845904
INTEGER I
A=10.0D0
B=-2.0D0
C=(A+B)/2
WRITE(*,*) 0,C
DO I=1,100
AI=A
BI=B
CI=(AI+BI)/2
IF(F(AI)*F(CI)<=0) THEN
B=CI
ELSE
A=CI
ENDIF
WRITE(*,*) I,CI
IF(ABS(B-A)<EPS) EXIT
ENDDO
STOP
CONTAINS
REAL(8) FUNCTION F(X)
REAL(8),INTENT(IN):: X
F=e**X-1.0D0
RETURN
END FUNCTION F
END PROGRAM BISECTION_1_1
UFJPR1JBTSBCSVNFQ1RJT05fMV8xCklNUExJQ0lUIE5PTkUKUkVBTCg4KSBYLEEsQUksQixCSSxDLENJClJFQUwoOCkgOjogRVBTPTEuMEQtMTAKUkVBTCg4KSA6OiBlPTIuNzE4MjgxODI4NDU5MDQKSU5URUdFUiBJCgpBPTEwLjBEMApCPS0yLjBEMApDPShBK0IpLzIKCldSSVRFKCosKikgMCxDCgpETyBJPTEsMTAwCiBBST1BCiBCST1CCiBDST0oQUkrQkkpLzIKICBJRihGKEFJKSpGKENJKTw9MCkgVEhFTgogIEI9Q0kKICBFTFNFCiAgQT1DSQogRU5ESUYKIFdSSVRFKCosKikgSSxDSQogSUYoQUJTKEItQSk8RVBTKSBFWElUCkVORERPClNUT1AKCkNPTlRBSU5TCgpSRUFMKDgpIEZVTkNUSU9OIEYoWCkKICBSRUFMKDgpLElOVEVOVChJTik6OiBYCiAgRj1lKipYLTEuMEQwCiAgUkVUVVJOCkVORCBGVU5DVElPTiBGCgpFTkQgUFJPR1JBTSBCSVNFQ1RJT05fMV8x