level 6
不可以msgbox 91^(1/7),原题要求必须要用2分法
2010年02月09日 06点02分
level 6
含蓄又俭朴灬工匠08
楼主
2
level 5
a = InputBox("输入被开方数：","开方程序")
d = InputBox("输入指数：","开方程序")
a = CDbl(a):d = CDbl(d)
MsgBox a ^ (1 / d)
c = a
b = 1.0
while a <> b
a = b
b = (c / b + b) / d
wend
MsgBox b
2010年02月09日 07点02分
5
d = InputBox("输入指数：","开方程序")
a = CDbl(a):d = CDbl(d)
MsgBox a ^ (1 / d)
c = a
b = 1.0
while a <> b
a = b
b = (c / b + b) / d
wend
MsgBox b
这个怎么修改可以多算几位
2014年09月05日 13点09分
回复 王延忻12138 :多久的坟你也挖？
2014年09月05日 16点09分
回复 andylaw5 :.......我不是故意的
2014年09月05日 16点09分
level 6
level 6
level 6
level 6
level 6
'二分法
r=91
x=7
d=0.00001
a=1
b=2
While b-a>d
c=(a+b)/2
If Sgn(c^x-r)= Sgn(a^7-r) Then
a=c
Else
b=c
End If
Wend
MsgBox c
MsgBox c^7
2010年04月16日 00点04分
14
r=91
x=7
d=0.00001
a=1
b=2
While b-a>d
c=(a+b)/2
If Sgn(c^x-r)= Sgn(a^7-r) Then
a=c
Else
b=c
End If
Wend
MsgBox c
MsgBox c^7