These cells contain the code to generate one of the graphic images offered in the statement of the problem.

Input := 

p0 = ParametricPlot3D[{u,u,Sqrt[1 - u^2]}, {u,0,1},
	AxesLabel->{"x","y","z"},
	ViewPoint->{4.000, 0.730, 2.030},
	AspectRatio->Automatic]

Input := 

q1  = ParametricPlot3D[{Cos[u],v,Sin[u]},{u,0,2 Pi},
	{v,-1,1}, AxesLabel->{"x","y","z"},
	ViewPoint->{4.000, 0.730, 2.030},
	AspectRatio->Automatic]

Input := 

q2 = ParametricPlot3D[{v,Cos[u],Sin[u]},{u,0,2 Pi},
	{v,-1,1}, AxesLabel->{"x","y","z"},
	ViewPoint->{4.000, 0.730, 2.030},
	AspectRatio->Automatic]

Input := 

q4 = ParametricPlot3D[{Cos[t], 0, Sin[t]}, {t,0, Pi/2},
	AxesLabel->{"x","y","z"},
	ViewPoint->{4.000, 0.730, 2.030},
	AspectRatio->Automatic]

Input := 

q5 = Graphics3D[{Thickness[.005],
	Line[{{1,0,0},{1,1,0}}]}]

Input := 

q6 = Graphics3D[Text[FontForm["PANEL",{"Courier-Bold",16}],
		{1,.5,.4}]]

Input := 

shapePlot = Show[p0,q1,q2,q4,q5,q6]