你这是a, b, c, d都是无确切值的字母量?那就要先把它们设成实数,比如：
Simplify[Re[Expand[(a + b*I) (c + d*I)]], (a | b | c | d) \[Element] Reals]
若是不明白相关指令请看帮助,实在不懂请追问.试试这个：Simplify[Re[ComplexExpand[Sqrt[p (r + m I)/(p + r + m I)]]], (p | r | m) \[Element] Reals]