Solve[{1-q/p x ==y,x^2 + y^2==1},{x,y}]