用牛顿迭代法求根。方程为ax^3+bx^2+cx+d=0，系数a、b、c、d由主函数输入，求x在1附近的一个实根。求出根后，由主函数输出。

牛顿迭代法是一种求解方程根的方法，可以用来求解方程ax^3+bx^2+cx+d=在1附近的一个实根。

具体步骤如下：

1. 初始化x=1。

2. 计算f(x)=ax^3+bx^2+cx+d和f'(x)=3ax^2+2bx+c。

3. 计算x1=x-f(x)/f'(x)。

4. 如果|x1-x|<ε，则停止迭代，输出x1作为方程的一个实根；否则，令x=x1，返回步骤2。

其中，ε为一个足够小的正数，用来控制迭代的精度。

在主函数中，输入系数a、b、c、d，然后调用牛顿迭代法求解方程的实根，最后输出结果即可。