Робоче вікно проекту з відображенням результатів:

Практична робота №10 Розв'язування системи лінійних рівнянь методом Гаусса

Необхідно написати програму , яка б розв’язувала систему лінійних алгебраїчних рівнянь методом Гаусса . Для перевірки правильності програми необхідно скласти свою систему рівнянь з чотирма невідомими , які повинні приймати цілі значення.

Схема алгоритму:

В игляд форми проекту:

1 – Text Box

2 – Label

3 – Command Button

Текст програми:

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 = Format(x(1), "00.00")

Text39.Text = Format(x(2), "00.00")

Text40.Text = Format(x(3), "00.00")

Text41.Text = Format(x(4), "00.00")

End Sub

Private Sub Command2_Click()

For i = 0 To 19

Text1(i) = " "

Next

Text16.Text = " "

Text39.Text = " "

Text40.Text = " "

Text41.Text = " "

End Sub

Private Sub Command3_Click()

End

End Sub

Робоче вікно проекту з відображенням результату:

Висновок

Під час навчальної практики я ознайомилась з таким програмним середовищем, як Visual Basic. Працювала з дизайном проекту, створювала процедури обробки подій. На протязі учбової практики я виконала 10 практичних завдань, під час виконання яких ознайомилася з різними прийомами використання програмного продукту Visual Basic. Вивчила властивості різних полів та вікон програми. Навчилася створювати меню в програмах, які розробляла.

Список використаної літератури

1. Баженов В.А., Венгерський П.С., Горлач В.М., Шевченко О.М. Інформатика. Комп’ютерна техніка. Комп’терні технології: Підручник для студ. вищ. навч. закл. – К.: Каравела, 2004. – 462 с.

2. Вычислительная техника в инженерных и экономических расчетах: Учеб. для вузов /Под ред. А.В.Петрова. – М.: Высш. шк., 1984. – 320 с.

3. Гетц К., Гилберт М. Программирование на Visual Basic 6 и VBA. Руководство разработчика. – К.: Издательская группа BVH, 2003. – 912 с.

4. Глинський Я.М., Анохін В.Є., Ряжська В.А. Бейсик. Від QBasic до Visual Basic. NET: Навч. посіб. 5-те вид., доп.– Львів: СПД Глинський, 2006. – 192 с.

5. Дибкова Л.М. Інформатика та комп’ютерна техніка: Посібник. – К.: Академвидав, 2003. – 318 с.

6. Інформатика: Комп’ютерна техніка. Комп’ютерні технології: Посібник / В.В. Браткевич та ін.; За ред. О.І. Пушкаря. – К.: Видавничий центр “Академія”, 2003. – 703 с.

7. Кнут Д. Искусство программирования для ЭВМ: В 3 т. – т.3: Сортировка и поиск. – М.: Мир, 1978. – 844 с.

8. Кузьменко В.Г. Visual Basic 6. Самоучитель. – М.: ООО «Бином-Пресс», 2003. – 432 с.

9. Малачівський П.С. Програмування в середовищі Visual Basic: Навчальний посібник. – Львів: Бескид Біт, 2004. – 260 с.