求解平方根的迭代函数定义如下： 其中，p是A的近似平方根，e是结果允许误差。试写出相应的递归算法，并消除递归。