منبع : عمران

F(X)=X+COS(X)

       READ (*,*) A,B,EPS

       X=(A*F(B)-B*F(A))/(F(B)-F(A))

        N=1

۱۰     IF (ABS(F(X)) .GE. EPS) THEN

           IF ( F(X) * F(A) .GA. 0 ) THEN

                      A=X

              ELSE

                       B=X

               ENDIF

              X=(A*F(B)-B*F(A))/(F(B)-F(A))

               N=N+1

                GOTO   ۱۰

            ELSE

                WRITE(*,*)  “ROOT=”,X

                WRITE(*,*)  “ITERATION=”,N

ENDIF

END

بازگشت به صفحه اصلی وبلاگ مهندسی عمران راه و ساختمان(مهندس حسن فراهانی)

مهندسی عمران راه و ساختمان