Cylindrical Coordinates

Manipulate[Show[Graphics3D[{GrayLevel[.3],PointSize[.02],Point[{0,0,0}],RGBColor[.5,0,0],PointSize[.02],Point[{rho Cos[phi],rho Sin[phi],z}],

{Thickness[Small],RGBColor[.5,.7,1],
top={rho Cos[phi],rho Sin[phi],z};
Line[1.1Sqrt[9+rho^2]{- Normalize[top],Normalize[top]}],
Line[{{rho Cos[phi],rho Sin[phi],-3.6},{rho Cos[phi],rho Sin[phi],3.6}}]},

If[ax,{Gray,Line[{{-5,0,0},{5,0,0}}],Line[{{0,-5,0},{0,5,0}}],Line[{{0,0,-5},{0,0,5}}],
Line[{{0,0,-5},{0,0,5}}]},{}],Yellow,Opacity[.5],Cylinder[{{0,0,-3},{0,0,3}},rho]}],ParametricPlot3D[{rho Cos[t],rho Sin[t],z},{t,0,2 Pi}],PlotLabel->Column[{Row[{"(ρ, ϕ, z) = ("<>ToString[NumberForm[rho,{3,2},NumberPadding->{"","0"}]]<>", "<>ToString[NumberForm[phi/Pi,{2,1},NumberPadding->{"","0"},ExponentFunction->(Null&)]]<>" π, "<>ToString[NumberForm[z,{2,1},NumberPadding->{"","0"}]]<>")"}],Row[{"(x, y, z) = ("<>ToString[NumberForm[rho Cos[phi],{3,2},NumberPadding->{"","0"}]]<>", "<>ToString[NumberForm[rho Sin[phi],{2,1},NumberPadding->{"","0"},ExponentFunction->(Null&)]]<>", "<>ToString[NumberForm[z,{2,1},NumberPadding->{"","0"}]]<>")"}]},Center],PlotRange->4/3{{-3,3},{-3,3},{-3,3}},ViewAngle->π/10,ViewPoint->{Pi,Pi/2,2},ImageSize->{500,400},Boxed->False,SphericalRegion->True],{{rho,2.,"ρ"},.5,3.},{{phi,0,"ϕ"},0,2. Pi},{{z,2,"z"},-2.5,2.5},{{ax,True,"show axes"},{True,False}}, TrackedSymbols:>{rho,phi,z,ax}]