ContourPlot[{a*c - (c - a)^2 == 1, a*c - (a - c)^2 == -1}, {a, 0, 10}, {c, 0, 10}]