Solution

In[58]:=

(*1*)e = Solve[x * x + p x + q0, x]

Out[58]=

{{x1/2 (-p - (p^2 - 4 q)^(1/2))}, {x1/2 (-p + (p^2 - 4 q)^(1/2))}}

In[59]:=

(*2*)%[[2]]

Out[59]=

{x1/2 (-p + (p^2 - 4 q)^(1/2))}

In[60]:=

(*3*)x + p/.%

Out[60]=

p + 1/2 (-p + (p^2 - 4 q)^(1/2))

In[61]:=

(*4*)%/.{p1, q2}

Out[61]=

1 + 1/2 (-1 +  7^(1/2))

In[62]:=

(*5*)N[%]

Out[62]=

0.5 + 1.32288 

Created by Mathematica  (April 10, 2007) Valid XHTML 1.1!