| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| t | 双精度小数型 | | |
| 迭代次数 | 整数型 | | |
| 最大迭代次数 | 整数型 | | |
| 精度要求 | 双精度小数型 | | |
| f | 双精度小数型 | | |
| f导 | 双精度小数型 | | |
| delta | 双精度小数型 | | |
t ＝ 0.3 最大迭代次数 ＝ 100 精度要求 ＝ 1e-007
计次循环首 (最大迭代次数, 迭代次数
)
f ＝ t × t × t － 1.826087 × t × t ＋ 0.391304 × t ＋ 0.033826
f导 ＝ 3 × t × t － 3.652174 × t ＋ 0.391304
如果真 (取绝对值 (f导
) ＜ 1e-007
)信息框 (“导数为零，无法继续迭代！”, 0, ,
)返回 ()
delta ＝ f ÷ f导
t ＝ t － delta
调试输出 (“第” ＋
到文本 (迭代次数
) ＋
“次迭代：t=”, t,
“误差=”,
取绝对值 (delta
))
如果真 (取绝对值 (delta
) ＜ 精度要求
)跳出循环 ()
计次循环尾 () 如果真 (迭代次数 ＞ 最大迭代次数
)信息框 (“未能在” ＋
到文本 (最大迭代次数
) ＋
“次内收敛！”, 0, ,
)信息框 (“方程实根为：” ＋
到文本 (四舍五入 (t, 5
)) ＋
#换行符 ＋
“迭代次数：” ＋
到文本 (迭代次数
), 0, ,
)