题库 高中信息
题干
可以用二分法来求算术平方根近似值。对f(x)=x2来说，在x∈[1,2]的范围内，f(x)单调递增，这就给二分法创造了条件，例如求解√2 ，由于√2 是无理数，因此只能获得它的近似值，我们以一定精度为例来逼近√2。
（1）如果f(mid)>2，说明mid>√2，应当在[left,mid]的范围内继续逼近，故令right=mid。
（2）如果f(mid)<2，说明mid<√2，应当在[mid,right]的范围内继续逼近，故令left=mid。
为实现这一算法，编写VB程序如下：
Function f(x As Single) As Single
f = x ^ 2
End Function
Private Sub Command1_Click()
Dim i As Integer, j As Single, m As Single
Dim n As Inte
ger
n = Val(text1.Text)
i = 1: j = 2
Do While j - i > 10 ^ -5
m = (i + j) / 2
If f(m) > n Then j = m Else i = m
Loop
label1.Caption = Str(n) & "的算术平方根近似值为" & Str(m)
End Sub
下面说法错误的是（ ）
（1）如果f(mid)>2，说明mid>√2，应当在[left,mid]的范围内继续逼近，故令right=mid。
（2）如果f(mid)<2，说明mid<√2，应当在[mid,right]的范围内继续逼近，故令left=mid。
为实现这一算法，编写VB程序如下：
Function f(x As Single) As Single
f = x ^ 2
End Function
Private Sub Command1_Click()
Dim i As Integer, j As Single, m As Single
Dim n As Inte
gern = Val(text1.Text)
i = 1: j = 2
Do While j - i > 10 ^ -5
m = (i + j) / 2
If f(m) > n Then j = m Else i = m
Loop
label1.Caption = Str(n) & "的算术平方根近似值为" & Str(m)
End Sub
下面说法错误的是（ ）
| A．该程序不可用于计算10的算术平方根 |
| B．该程序的精度j、i差值小于等于10-5 |
| C．代码“Function f(x As Single) As Single”不可修改为“Function f(x As Double) As Single” |
| D．代码中j=m可修改为j=m-1 |
答案(点此获取答案解析）
相关知识点