y1[x_] := Sqrt@x - 1
    y2[x_] := -Sqrt@ x + 1
    Plot[{y1[x], y2[x]}, {x, 0, x /. Last@Solve[y1[x] == y2[x]]}, PlotRange->{{0, 2}, {-1, 1}}]

![Mathematica graphics](https://i.sstatic.net/AL12E.png)