It seems that f[x] is evaluating to a number. Probably you Set an OwnValues for x? Check by evaluating ?x.
Area is only defined for regions, parametric surfaces and sets of coordinates, not single numbers nor plots.
Therefore, my the strategy is to first, start with a fresh kernel. Then, create a Cartesian parametric expression for the surface and use Area on that.
To create the parametric expression in Cartesian coordinates the easiest way is to start with the cylindrical coordinantes {r, θ, f[r]} and then use CoordinateTransform
CoordinateTransform[
"Cylindrical" -> "Cartesian"
, {r, θ, Sqrt[28 r]}
]
See also this other answer using ParametricRegion.
Here my take on it.
With[
{
parmcartsn = CoordinateTransform[
"Cylindrical" -> "Cartesian"
, {r, θ, Sqrt[28 r]}
]
},
Column[
{
ParametricPlot3D[
parmcartsn
, {r, 0, 21}
, {θ, 0, 2 π}
, PlotLabel -> TraditionalForm[parmcartsn]
],
Area[
parmcartsn
, {r, 0, 21}
, {θ, 0, 2 π}
]
}
]
]
