Практичне завдання №10
Тема: Розв’язання системи лінійних рівнянь методом Гаусса.
Постановка задачі: Необхідно написати програму, яка б розв’язувала систему лінійних алгебраїчних рівнянь методом Гаусса. Для перевірки правильності програми необхідно скласти свою систему рівнянь з чотирма невідомими, які повинні приймати цілі значення.
Система рівнянь:
Схема алгоритму:
Програмний код:
Const n As Double = 4
Dim x(n) As Double
Dim y As Double
Dim a(4, 5) As Double
Dim i As Double
Dim j As Double
Dim u As Double
Dim k As Double
Dim x1 As Double
Dim x2 As Double
Dim x3 As Double
Dim x4 As Double
Private Sub Command1_Click()
For i = 1 To n
For j = 1 To n + 1
a(i, j) = Text1(Index).Text
Index = Index + 1
Next j
Next i
For u = 1 To n - 1
m = a(u, u)
For j = u To n + 1
a(u, j) = a(u, j) / m
Next j
For k = u + 1 To n
For j = u + 1 To n + 1
a(k, j) = a(k, j) - a(u, j) * a(k, u)
Next j
Next k
Next u
x(n) = a(n, n + 1) / a(n, n)
For k = n - 1 To 1 Step -1
s = 0
For j = k + 1 To n
s = s + a(k, j) * x(j)
Next j
x(k) = a(k, n + 1) - s
Next k
Text16.Text = Str(Format(x(1), "00.00"))
Text39.Text = Str(Format(x(2), "00.00"))
Text40.Text = Str(Format(x(3), "00.00"))
Text41.Text = Str(Format(x(4), "00.00"))
End Sub
Private Sub Command2_Click()
For i = 0 To 19
Text1(i).Text = Empty
Text16.Text = Empty
Text39.Text = Empty
Text40.Text = Empty
Text41.Text = Empty
Next i
End Sub
Private Sub Command3_Click()
End
End Sub
Робочий проект:
На робочому вікні програми розташовані наступні елементи:
Текстові поля-1
Написи-2
Кнопки-3
Робоче вікно проекту:
Висновок
Під час навчальної практики ми ознайомилися з візуальним програмуванням, вивчили програмне середовище Visual Basic. В роботах приділили увагу дизайну проекту, створенню процедур обробки подій. Розглянули основні оператори мови програмування Visual Basic, які дозволяють здійснювати обчислення, роботу з об’єктами, файлами тощо.
Список літератури
Гетц К., Гилберт М. Программирование на Visual Basic 6 и VBA. Руководство разработчика. – К.: Издательская группа BVH, 2003. – 912 с.
Глинський Я.М., Анохін В.Є., Ряжська В.А. Бейсик. Від QBasic до Visual Basic. NET: Навч. посіб. 5-те вид., доп.– Львів: СПД Глинський, 2006. – 192 с.
Кузьменко В.Г. Visual Basic 6. Самоучитель. – М.: ООО «Бином-Пресс», 2003. –432 с.
Малачівський П.С. Програмування в середовищі Visual Basic: Навчальний посібник. – Львів: Бескид Біт, 2004. –Visual Basic 6.0. – СПб.: БХВ – Петербург, 2003. – 992 с.
Основи програмування у середовищі Visual Basic: методичні вказівки до навчальної практики / уклад. В.В. Клюєва. – К.: КНУБА, 2010.-44 с.