FUNCTION F(X)
F=2*X*X-4*X+1
RETURN
END
2 WRITE(*,*)'ENTER TWO NUMBERS'
READ(*,*) X1,X2
IF(F(X1)*F(X2)) 3,4,2
4 IF(F(X1).EQ.0) THEN
WRITE(*,*)'SOLUTION=',X1
ELSE
WRITE(*,*)'SOLUTION=',X2
ENDIF
3 WRITE(*,*)'ENTER TOL'
READ(*,*) TOL
5 AM=(X1+X2)/2
Y=F(AM)
IF(ABS(Y).LE.TOL) THEN
WRITE(*,*)'SOLUTION=',AM
STOP
ELSE
IF(Y*F(X1).GT.0) THEN
X1=AM
ELSE
X2=AM
ENDIF
ENDIF
GO TO 5
END
|
No responses found. Be the first to respond and make money from revenue sharing program.
|