試卷征集
加入會(huì)員
操作視頻

菁優(yōu)網(wǎng)李強(qiáng)設(shè)計(jì)了一個(gè)求一元三次方程x3+2x2-5x+2=0的近似實(shí)數(shù)根的Visual Basic程序.單擊“求解”按鈕Command1,程序在[-4,4]范圍內(nèi)求解,并將所有實(shí)數(shù)根顯示在列表框List1中.程序運(yùn)行界面如圖所示:
李強(qiáng)的方法是:設(shè)f(x)=x3+2x2-5x+2,從-4開始到4為止,每隔一個(gè)求解精度e取一個(gè)x值,并求出f(x)和f(x+e)的值.若f(x)×f(x+e)≤0,則表示x和x+e的中點(diǎn)就是方程的一個(gè)近似解.
程序代碼如下:
Private Sub Command1_Click ( ?。?br />Const e As Double=0.00001'e為求解精度
Dim s(1To 3)As String
Dim x As Double
Dim m As Double,k As Integer'm為實(shí)數(shù)解
s(1)=“x1“:s(2)=“x2“:s(3)=“x3“
k=0
For x=-4To 4-e Step e
If ①Or f(x+e)=0Then
k=k+1
If f(x+e)=0Then m=x+e Else m=x+e/2
m=Fix(m*10000+0.5)/10000'保留四位小數(shù)
List1.AddItem s(k)+“=“+②
End If
Next x
End Sub
'以下的自定義函數(shù),用于求f(x)的值
Private Function f(x As Double) As Double
f=x*x*x+2*x*x-5*x+2
End Function
(1)解決此問題主要采用的算法是
枚舉算法
枚舉算法
.(選填:遞歸算法/枚舉算法)
(2)在程序①和②,填入適當(dāng)?shù)恼Z(yǔ)句或表達(dá)式,把程序補(bǔ)充完整:
程序中①應(yīng)填入
f(x)=0
f(x)=0
.程序中②應(yīng)填入
x
x

【答案】枚舉算法;f(x)=0;x
【解答】
【點(diǎn)評(píng)】
聲明:本試題解析著作權(quán)屬菁優(yōu)網(wǎng)所有,未經(jīng)書面同意,不得復(fù)制發(fā)布。
發(fā)布:2024/10/26 8:30:1組卷:20引用:2難度:0.1
相似題
  • 1.有如下VB程序段:
    菁優(yōu)網(wǎng)
    數(shù)組元素a(1)到a(6)的值依次為“98,67,3,81,38,21”,執(zhí)行該程序段后,a(1)~a(6)各元素值不可能是( ?。?/h2>

    發(fā)布:2024/10/28 10:30:1組卷:0引用:1難度:0.5
  • 2.下列關(guān)于排序算法的描述,錯(cuò)誤的是(  )

    發(fā)布:2024/10/30 14:30:2組卷:6引用:3難度:0.5
  • 3.有6位裁判為運(yùn)動(dòng)員評(píng)分,給出的分?jǐn)?shù)分別為49,45,61,46,58,57.采用選擇排序算法對(duì)其進(jìn)行排序,若完成第一遍時(shí)的結(jié)果為:61,45,49,46,58,57,則完成第二遍時(shí)的結(jié)果是( ?。?/h2>

    發(fā)布:2024/10/29 10:30:4組卷:11引用:3難度:0.7
小程序二維碼
把好題分享給你的好友吧~~
APP開發(fā)者:深圳市菁優(yōu)智慧教育股份有限公司 | 應(yīng)用名稱:菁優(yōu)網(wǎng) | 應(yīng)用版本:4.8.2  |  隱私協(xié)議      第三方SDK     用戶服務(wù)條款廣播電視節(jié)目制作經(jīng)營(yíng)許可證出版物經(jīng)營(yíng)許可證網(wǎng)站地圖本網(wǎng)部分資源來源于會(huì)員上傳,除本網(wǎng)組織的資源外,版權(quán)歸原作者所有,如有侵犯版權(quán),請(qǐng)立刻和本網(wǎng)聯(lián)系并提供證據(jù),本網(wǎng)將在三個(gè)工作日內(nèi)改正