RegionPlot[(x^2)/4-1≤y≤ 1-((x^2)/4),{x,-2,2},{y,-2,2}]

Plot3D[{0,4},{x,-2,2},{y,-2,2},RegionFunction->Function[{x,y,z},(x^2)/4-1≤y≤ 1-((x^2)/4)],Mesh->False,PlotStyle->{Opacity[0.3]},BoundaryStyle->{Thick,Blue},Filling->Bottom]

r[θ_]=1−Cos[θ] Sin[3 θ];

borbo=ParametricPlot[r[θ]{Cos[θ],Sin[θ]},{θ,0,2π},PlotStyle->{Blue,Thick}]

frontbase=ParametricPlot3D[r[θ]{Cos[θ],Sin[θ],0},{θ,0,2π},PlotStyle->{Blue,Thick}]

fronttampa=ParametricPlot3D[{r[θ]Cos[θ],r[θ]Sin[θ],3},{θ,0,2π},PlotStyle->{Blue,Thick}]

Show[frontbase,fronttampa]

base=ParametricPlot3D[λ r[θ]{Cos[θ],Sin[θ],0},{θ,0,2π},{λ,0,1},Mesh->False,PlotStyle->{Opacity[0.5],LightBlue}];

a=Show[frontbase,base]

tampa=ParametricPlot3D[{λ r[θ]Cos[θ],λ r[θ]Sin[θ],3},{θ,0,2π},{λ,0,1},Mesh->False,PlotStyle->{Opacity[0.5],LightBlue}];

basetampa=Show[frontbase,base,fronttampa,tampa]

paredes=ParametricPlot3D[{r[θ]Cos[θ],r[θ]Sin[θ],z},{θ,0,2π},{z,0,3},Mesh->False,PlotStyle->{Opacity[0.5],LightBlue}];

Show[basetampa,paredes]