x= r Cos[t];
y=r Sin[t];
T={x,y,z}

Jac=D[T,{{r,t,z}}]
MatrixForm[Jac]
Det[Jac]
Simplify[%]