With[{sol=NIntegrate[(1/x)Cos[((Log[x])/x)],{x,0,1}]},
Plot[(1/x)Cos[((Log[x])/x)],{x,0,1},PlotRange->15,Filling->Axis,Epilog->Inset[Style[HoldForm[Integrate[(1/x)Cos[((Log[x])/x)],{x,0,1}]≃sol],16],Scaled[{0.55,1}],Top],ImageSize->400]]