Pseudocode
FUNCTION NewtRaph(X0, es, imax)
i = 1
Xi = X0
eai = 0
DO
xi+1 = Xi - (fx / fx')
IF |Xi+1 - Xi| < es THEN
eai+1 = |(Xi+1 - Xi) / Xi+1| * 100
END IF
DISPLAY i, Xi, fx, fx', eai
IF eai < es OR i > imax THEN
EXIT
END IF
i = i + 1
END DO
NewtRaph = Xi
END FUNCTION