割线算法;

代码说明：

数值计算算法：割线算法的数学写的帕斯卡尔要找到解决方程f（x）=0   给定的初始近似值P0和P1：   输入：初始近似值P0，P1;公差TOL;            迭代N 0的最大数目。   输出：近似解p或            该算法失败的消息。