f[x_,y_]:=x^2+y

g[x_,y_]:=x^2+y^2

Manipulate[ContourPlot[{f[x,y]==k,g[x,y]==1},{x,-3,3},{y,-3,3},PlotPoints->50],{k,-2,2,0.125}]