Collect[Resultant[x^3+ax^2+bx+c, y-(x^2+px+q), x],y]