来自刘润久的问题
编写程序,用牛顿切线法求方程f(x)=x^2-x-8=0(其中^表示幂运算)在区间[3,4]上的近似实根r,迭代初
编写程序,用牛顿切线法求方程f(x)=x^2-x-8=0(其中^表示幂运算)在区间[3,4]上的近似实根r,迭代初
1回答
2020-05-31 20:22
编写程序,用牛顿切线法求方程f(x)=x^2-x-8=0(其中^表示幂运算)在区间[3,4]上的近似实根r,迭代初
编写程序,用牛顿切线法求方程f(x)=x^2-x-8=0(其中^表示幂运算)在区间[3,4]上的近似实根r,迭代初
'程序可以继续完善的:
'1、如果指定区间无解,怎么办
'2、迭代过程跳出了指定区间,怎么办
'3、如何使用界面直接输入方程式
PrivateSubCommand1_Click()
Dim上限AsSingle,下限AsSingle,误差AsSingle,自变量AsSingle,kAsSingle
Const允许误差=0.0001
上限=Val(InputBox("请输入区上限",,4))
Do
下限=Val(InputBox("请输入区下限",,3))
If下限