eqn=x^2+2a x+1==0;

sol=Solve[eqn,x]

forPlot=x/.sol

Plot[forPlot,{a,-5,5}]