来自刘润久的问题
编写程序,用牛顿切线法求方程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下限
大家都在问
最新问答
海冰含盐量接近淡水，...2020-12-30
三峡游山峰一下子就被...2020-12-30
二元一次方程简单的配...2020-12-30
【偏裨将校是什么意思...2020-12-30
如图秒表的读数为__...2020-12-30
____abigfi...2020-12-30
【知道本金和税后利息...2020-12-30
《一百条裙子》读后感...2020-12-30
利用矩阵解二元一次方...2020-12-30
【英语中的peasa...2020-12-30