李強(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句或表達(dá)式,把程序補(bǔ)充完整:
程序中①應(yīng)填入 f(x)=0f(x)=0.程序中②應(yīng)填入 xx.
【考點(diǎn)】冒泡排序算法及其實(shí)現(xiàn);編輯事件處理過程的代碼.
【答案】枚舉算法;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.有如下 Python 程序段:
運(yùn)行后列表中的值可能是( ?。?/h2>發(fā)布:2024/12/18 21:0:2組卷:5引用:3難度:0.3 -
2.用VB編寫的函數(shù)bubble_sort是一個(gè)用冒泡方法實(shí)現(xiàn)排序的函數(shù),其調(diào)用時(shí)需要三個(gè)參數(shù):布爾類型參數(shù)sx來確定是升序還是降序,sx為True時(shí)為升序,否則為降序;整數(shù)型數(shù)組a
比如有一個(gè)整數(shù)型數(shù)組a(1 to 10)需要降序排序,可以直接這樣調(diào)用:
a
該函數(shù)VB代碼如下:
Function bubble_sort(sx As Boolean,a
Dim i,j,t As Integer
For i=1 To n-1
For j=
If
If a(j)<a(j-1)Then t=a(j):a(j)=a(j-1):a(j-1)=t
Else
If a(j)>a(j-1)Then t=a(j):a(j)=a(j-1):a(j-1)=t
End If
Next j
Next i
bubble_sort=a
End Function
請(qǐng)將代碼補(bǔ)充完整:
①
②發(fā)布:2024/12/20 20:30:1組卷:23引用:2難度:0.3 -
3.用選擇排序法對(duì)一組數(shù)據(jù)進(jìn)行升序排序,第一趟排序結(jié)束后的順序?yàn)?、6、9、3、7,則原始數(shù)據(jù)順序不可能的是( ?。?/h2>
發(fā)布:2024/12/18 23:0:1組卷:10引用:1難度:0.5
把好題分享給你的好友吧~~