Практичне завдання №8
Тема: Визначення кореня алгебраїчного рівняння.
Постановка задачі:
Дано рівняння y=x ^ 4 + 2.4 * x ^ 3 - 2.85 * x + 0.13
Інтервал, на якому потрібно визначити корінь рівняння, (0,5;2)
Схема алгоритму:
1
2
так
4
3
ні
5
так
6
7
ні
8
9
так
ні
11
10
12
Програмний код:
Dim x As Double
Dim y As Double
Dim a As Double
Dim b As Double
Dim e As Double
Dim k As Double
Sub Parametr()
a = Text1.Text
b = Text2.Text
e = Text3.Text
End Sub
Sub final()
Text4.Text = Str(Format(Fun(x), "00.0000000"))
Text5.Text = Str(Format(x, "00.000"))
Text6.Text = k
End Sub
Function Fun(x)
Fun = x ^ 4 + 2.4 * x ^ 3 - 2.85 * x + 0.13
End Function
Sub cikl()
Do
x = (a + b) / 2
If Sgn(Fun(x)) = Sgn(Fun(a)) Then
a = x
Else
b = x
k = k + 1
End If
Loop While Abs(Fun(x)) > e
End Sub
Private Sub Command1_Click()
Call Parametr
If Sgn(Fun(a)) = Sgn(Fun(b)) Then
Dim m
m = MsgBox("Не існує", vbOKOnly)
Else
Call cikl
Call final
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Робочий проект:
На робочому вікні програми розташовані наступні елементи:
Текстові поля-1
Написи-2
Кнопки-3
Робоче вікно проекту:
Практичне завдання №9
Тема: Сортування масиву.
Постановка задачі: У даній роботі необхідно упорядкувати масив з 15 елементів за зростанням методом простої вставки.
С
хема
алгоритму:
2
j= 2,n
3
5
f=k(j)
4
6
i = i - 1
7
ні
8
так
k(i+1)=k(i)
i
= i
- 1
k(i+1)=
f
9
10
11
NewLine
12
13
14
Програмний код:
Dim k(15) As Integer
Dim i As Integer
Dim n As Integer
Dim j As Integer
Dim f As Long
Dim NewLine As String
Sub Sort2()
For j = 2 To n
f = k(j)
i = j - 1
Do While (i > 0) And (f <= k(i))
k(i + 1) = k(i)
i = i - 1
Loop
k(i + 1) = f
Next j
End Sub
Private Sub Command1_Click()
n = 15
For i = 1 To n
Index = i - 1
k(i) = Text2(Index).Text
Next i
Text1.Text = " "
Call Sort2
NewLine = Chr(13) + Chr(10)
For i = 1 To n
Text1.Text = Text1.Text + Str(Format(k(i), "000")) + NewLine
Next i
End Sub
Private Sub Command2_Click()
End
End Sub
Робочий проект:
На робочому вікні програми розташовані наступні елементи:
Текстові поля-1
Написи-2
Кнопки-3
Робоче вікно проекту:
