ParametricPlot3D[{r*Cos[t],r*Sin[t],Sqrt[4-(r*Sin[t])^2]},{r,0,1},{t,0,2Pi}]