Практична робота №7 Чисельне інтегрування
Скласти схему алгоритму та програму обчислення значення визначеного інтеграла.
Проміжок інтегрування від 1 до 2
Формула для обчислення трапецій
Кількість відрізків, розбиття n=30
Підінтегральна функція y =
Схема алгоритму:
Робоча формула:
-
формула трапецій
В игляд форми проекту:
1 – Label
2 – Text Box
3 – Command Button
Текст програми:
Dim a As Double
Dim b As Double
Dim n As Double
Dim i As Double
Dim h As Double
Dim s As Double
Function f(x) As Single
f = Sin(x / Sqr(1 + Log(x + 5) / Log(10)))
End Function
Private Sub Command5_Click()
a = Text1.Text
b = Text2.Text
n = Text3.Text
h = (b - a) / n
s = 0
For i = 1 To n - 1 Step 1
x = a + i * h
s = s + f(x)
Next i
s = h / 2 * (f(a) + f(b) + 2 * s)
Text5.Text = Str(Format(s, "000.0000"))
End Sub
Private Sub Command6_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text5.Text = ""
End Sub
Private Sub Command7_Click()
End
End Sub
Р обоче вікно проекту з відображенням результату: Практична робота №8 Визначення кореня алгебраїчного рівняння
Визначення кореня алгебраїчного рівняння
Постановка задачі:
Дано рівняння
Інтервал , на якому повинен бути визначений корінь рівняння [a,b]=[0;3]
Точність розв’язку задачі
Знайти x, при якому
Схема алгоритму:
так
Вигляд форми проекту:
1
1
2
3
2 – Text Box
3- Command Button
Текст програми:
Dim x As Double
Dim y As Double
Dim a As Double
Dim b As Double
Dim E As Double
Sub Parametr()
a = Text1.Text
b = Text2.Text
E = Text6.Text
End Sub
Function Fun(x)
Fun = 0.18 * Exp(x + 3.6) - 5.7 * (x + 1) - 8.3
End Function
Private Sub Command1_Click()
Call Parametr
If Sgn(Fun(a)) = Sgn(Fun(b)) Then
Dim m
m = MsgBox("Коренів немає", vbOKOnly)
Else
Do
x = (a + b) / 2
If Sgn(Fun(x)) = Sgn(Fun(a)) Then a = x Else b = x
k = k + 1
Loop While Abs(Fun(x)) > E
Text3.Text = Str(Format(Fun(x), "00.000000"))
Text4.Text = Str(Format(x, "00.000"))
Text5.Text = k
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
End Sub
Р обоче вікно проекту з відображенням результату: Практична робота №9 Сортування масиву
У даній роботі необхідно упорядкувати масив з 15 елементів за зростанням методом бульбашки.
Схема алгоритму:
b
= k(i): k(i) = k(j): k(j) = b
Ф
орма
під час проектування:
1 – Label
2 – List Box
3 – Command Button
4 – Text Box
Текст програми:
Dim i As Integer, j As Integer
Dim p As Integer
Dim n As Long, b As Long
Dim k(100) As Long
Private Sub Command1_Click()
n = Text1.Text
For j = 1 To n
k(j) = Int(Rnd * 100)
list1.List(j - 1) = k(j)
Next j
End Sub
Private Sub Command2_Click()
list1.Clear
List2.Clear
End Sub
Private Sub Command3_Click()
n = Text1.Text
For j = 1 To n - 1
For i = j + 1 To n
If k(i) < k(j) Then b = k(i): k(i) = k(j): k(j) = b
Next i
Next j
Call vuvod(n)
End Sub
Sub vuvod(n)
For j = 1 To n
List2.List(j - 1) = k(j)
Next j
End Sub
Private Sub Command4_Click()
End
End Sub