Q:

How to make Mathematica show small and large results?

I have two equations with x=r+Log[-1+r] and v=(1-1/r)/r^3 forms. When I substitute r=1.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000001, Mathematica shows x=Indeterminate and v=0. But I know that the results are x=-201.6274881834760201935832480122240502688969309993320218909328552851463896516070182607677539478846503 and v=0.9999999999999999999999999999999999999999999999999999999999999999999999999999999999999997000000000000*10^(-88). How to make Mathematica show these small and large results? I will be really thankful if someone help. 

A:

As Lucas Lang said in his first answer, Mathematica gives the same as Maple:
r = SetPrecision[1.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000001, 100]    
x = r + Log[-1 + r] 
v = (1 - 1/r)/r^3

-201.62748818348
1.00000000000*10^-88

