«Решение системы линейных уравнений методом Халецкого» - Курсовая работа

На практике часто возникает необходимость решить системы линейных урав-нений. Существуют много методов решения подобных уравнений, одним из них является метод Халецкого. Но искать решение таким методом вручную очень долго и трудно. Поэтому в большинстве этот метод используется в ком-пьютерных программах, созданные для решения поставленной задачи.

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

Option Explicit

Dim a(10, 10) As Double

Dim r(10) As Double

Dim w, h, h1

Dim i , j

Public n, xy1, xy2, x1, xx1, x2, xx2 As Integer

Private Sub Command1_Click()

Dim File1 As String

Dim file2 As String

w = 200

h = 200

h1 = 2 ' длина линии делений

Picture1.Scale (0, 0)-(w, h)

'сетка

'ось OX

Picture1.Line (0, h / 2)-(w, h / 2)

For i = 0 To w Step 10 'шаг сетки по ОХ

Picture1.Line (i, h / 2 - h1)-(i, h / 2 + h1)

Picture1.Print (i - 100) / 10

Next i

'ось OY

Picture1.Line (w / 2, 0)-(w / 2, h)

For i = 0 To h Step 10 'шаг сетки по OY

Picture1.Line (w / 2 - h1, i)-(w / 2 + h1, i)

If h / 2 - i <> 0 Then Picture1.Print (100 - i) / 10

Next i

'ввод матрицы А

File1 = Form1.Text1.Text

Open File1 For Input As #1

Input #1, n

For i = 1 To n

For j = 1 To n

Input #1, a(i, j)

Picture1.Print a(i, j);

Next

Picture1.Print

Next

Close #1

'ввод матрицы b

file2 = Form1.Text2.Text

Open file2 For Input As #2

For i = 1 To n

Input #2, r(i)

Next

'Построение графика

xy1 = 10 'значение переменной x2

x1 = (r(1) - a(1, 2) * xy1) / a(1, 1) 'значение x1 ,зависящие от x2

xx1 = (r(1) + a(1, 2) * xy1) / a(1, 1)

Picture1.Line (100 + xy1 * 10, 100 - x1 * 10)-(100 - xy1 * 10, 100 - xx1 * 10), 1000

xy2 = 10 'значение переменной x2

x2 = (r(2) - a(2, 2) * xy2) / a(2, 1) 'значение x1 ,зависящие от x2

xx2 = (r(2) + a(2, 2) * xy2) / a(2, 1)

Picture1.Line (100 + xy2 * 10, 100 - x2 * 10)-(100 - xy2 * 10, 100 - xx2 * 10), 1000

Reset

End Sub

3.2 Программа сохранение результата.

Данная программа запускаться с основной формы (Form1) при нажатии кноп-ки «Сохранить результат» в меню Файл → Сохранить результат. В файле фор-матом “.txt” или “.doc” сохраняется текст “ Результатом решения системы ли-нейных уравнений является x(i)= ” и результат решения системы уравнений.

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

Private Sub Command1_Click()

d = Text1.Text + Combo1.Text

X = Form2.Text4.Text

Text = "Результатом решения системы линейных уравнений является x(i)=" + X

'сохранение файла

Open d For Output As #1

Print #1, Text

Close #1

Form5.Hide

End Sub

3.3 Программа завершения работы приложения.

При выборе команды меню Файл → Выход на любой форме, кроме формы сохранения (Form5), данного приложения запускается программа, завершающая работу приложения. После выполнения действий для запуска данной программы появляется диалоговое окно с подтверждением завершения работы приложения или отклонением.

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

Private Sub exit_Click()

If MsgBox("Вы действительно хотите закрыть приложение?",vbYesNo+ vbQuestion, "Exit System.") = vbNo Then

Exit Sub

End If

End

End Sub

3.4 Программы перехода между формами.

При выборе команды в меню форм или нажатие кнопки «Построить график» на основной форме (Form1), «Отменить» в форме сохранения (Form5) открыва-ется форма, которая требуется для дальнейшей работы приложения.

Текст программы перехода титульной формы(Form2):

Private Sub aboutmetod2_Click()

Form6.Show

End Sub

Private Sub osninfo2_Click()

Form4.Show

End Sub

Private Sub Prog2_Click()

Form2.Show

Form1.Hide

End Sub

Текст программы перехода основной формы(Form1):

Private Sub graph1_Click()

Form3.Show

End Sub

Private Sub infile_Click()

Form5.Show

End Sub

Private Sub onform1_Click()

Form1.Show

Form2.Hide

Form3.Hide

Form4.Hide

Form6.Hide

End Sub

Текст программы перехода формы основной информации(Form3):

Private Sub onform3_Click()

Form1.Show

Form2.Hide

Form3.Hide

Form4.Hide

Form6.Hide

End Sub

Текст программы перехода формы основной информации(Form4):

Private Sub onform4_Click()

Form1.Show

Form2.Hide

Form3.Hide

Form4.Hide

Form6.Hide

End Sub