Plot[y /. Solve[(x-2)^2+(y-2)^2], {x,0,3}, AspectRatio -> Automatic, AxesOrigin -> {0, 0}]

Show[RevolutionPlot3D[Sqrt[1 - (x)^2], {x, 0, 1}, {t, 0, 2 [Pi]}],
     RevolutionPlot3D[-Sqrt[1 - (x)^2], {x, 0, 1}, {t, 0, 2 [Pi]}],
     PlotRange -> All, AspectRatio -> 1]

Show[RevolutionPlot3D[Sqrt[1 - (x - 2)^2] + 2, {x, 1, 3}, {t, 0, 2 [Pi]}],
     RevolutionPlot3D[-Sqrt[1 - (x - 2)^2] + 2, {x, 1, 3}, {t, 0, 2 [Pi]}],
     PlotRange -> All]