Решение систем линейных уравнений на Visual Basic методом Крамера - Программирование, компьютеры и кибернетика курсовая работа

Главная

Программирование, компьютеры и кибернетика
Решение систем линейных уравнений на Visual Basic методом Крамера

Решение систем линейных уравнений на ЭВМ методом Крамера. Запуск Microsoft Visual Basic. Форма ввода размерности системы. Форма графика системы линейного уравнения. Матрица с неизвестными переменными. Программы построения графика и перехода между формами.


посмотреть текст работы


скачать работу можно здесь


полная информация о работе


весь список подобных работ


Нужна помощь с учёбой? Наши эксперты готовы помочь!
Нажимая на кнопку, вы соглашаетесь с
политикой обработки персональных данных

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

Уфимский государственный авиационный технический университет
Решение систем линейных уравнений на Visual Basic методом Крамера
На практике часто возникает необходимость решить систему линейных уравнений. Если маленького порядка, то всё в порядке и подсчитать вручную не представляет труда. А если система имеет высокий порядок или просто их очень много, то приходится прибегать к помощи компьютерной техники. Существуют несколько способов решения систему линейных уравнений на ЭВМ, причем все способы равноценны. В этой работе мы рассмотрим метод Крамера.
Процедура решает неоднородную систему n линейных алгебраических уравнений с n неизвестными:
a1,1 x1 +a1,2 x2 + ... +a1,n xn = a1,n+1
a2,1 x1 +a2,2 x2 + ... +a2,n xn = a2,n+1
an,1 x1 +an,2 x2 + ... +an,n xn =an,n+1
Процедура позволяет найти решение, если определитель основной матрицы A=(aij ) не равен нулю. Для нахождения i-ой компоненты корня ищем определитель:
При запуске Microsoft Visual Basic 6.0 автоматически открывается окно с предложением создать новый проект Standard EXE. Нажимаем OK.
Начнём создание титульного листа программы. В открывшейся форме (Form1) расставим объекты: Label1,Label2, Label3, PictureBox1, PictureBox2.
Присвоим свойству Caption объекта Label1 значение “УГАТУ-2011”. Так же Label2 - “ Решение систем линейных уравнений”, и Label3 - “метод Крамера”. В свойстве Picture объекта Picture1 и Picture2 выберем изображение.
Создадим меню для данной формы. Для этого в меню Tools выполним команду Menu Editor. В появившемся диалоговом окне напишем названия пунктов меню и названия процедур, которые будут запускаться при выполнении команд меню. Редактор меню с введёнными именами представлен на рисунке.
При выборе команды «Решить СЛАУ» в меню титульной формы “Файл > Решить СЛАУ” откроется главная форма( Form2).
На Form2 мы поместили объекты Label1,TextBox1, TextBox2.
В TextBox1 и TextBox2 вводится размерность системы. Нажав “ENTER” на клавиатуре, после ввода, открывается основная форма.
На Form3 мы поместили объекты Frame1, Frame2, Frame3, Command Button1, Command Button2, Label1, TextBox1, PictureBox1, PictureBox2, PictureBox3.
В Textbox1 вводятся значения системы с левого верхнего значения в право. В PictureBox1 изображается матрица A - значений имеющие неизвестные аргументы Хij. В PictureBox2 изображается одномерная матрица B, значения не имеющие неизвестные аргументы.
Меню данной формы состоит из раздела меню Файл и Справка. Раздел Файл имеет подменю На главное, Ввести размерность, Выход. При выборе Файл > На главное открывается титульная форма, а основная форма закрывается. При выборе Файл > Ввести размерность открывается форма ввода размерности системы, а основная - закрывается. Раздел Справка имеет подсистемы О создателе, О методе. При выборе Справка > О создателе открывается форма, в котором отображается информация о создателе, при команде Справка > О методе открывается форма, в котором отображается информация о методе.
При нажатие на кнопку «Решить» начнет работу написанная программа, которая решает систему линейных уравнение. Кнопка «Решить» на рамке «Графическое решение» открывает форму Графика системы и запускает программу построения графика решения, если размерность системы равна 2, иначе данная кнопка не отображается.
Кнопка «Решить» на рамке «Графическое решение» основной формы открывает форму График (Form4) системы и запускает программу построения графика решения, если размерность системы равна 2, иначе данная кнопка не отображается.
На данную форму помещены PictureBox1, Label1, Label2, TextBox1, TextBox2, TextBox3, TextBox4, TextBox5, TextBox6.
С помощью TextBox и Label отображаются уравнения прямых. В PictureBox1 выводится график данных уравнений.
Меню данной формы состоит из раздела меню Файл и Справка. Раздел Файл имеет подменю: На главное, Решить СЛАУ и Выход. Раздел Справка имеет одно подменю - О создателе.
Form4 и Form6 несут собой только информационный смысл: в Form6 (Информация о создателе) находится информация о создателе приложения, в Form5 (Метод Крамера) вкратце написано о методе Крамера.
Каждый из данных формы имеет только один объект - OLE1, в которую включен файл MS Word.
Меню формы Form6 (Информация о создателе) состоит из раздела меню Файл(подменю На главное, Решить СЛАУ и Выход) и Справка(подменю О методе). При нажатие на кнопку «На главное» откроется титульная форма, а использованная информационная форма закроется, при нажатие на кнопку «Решить СЛАУ» - форма ввода размерности системы.
Вызвать данные формы возможно из меню Справка любой формы, кроме формы ввода размерности системы:
Меню формы Form5 (Метод Крамера) состоит из раздела меню Файл, имеющий подменю На главное, Решить СЛАУ и Выход, которые выполняют процессы, соответствующие форме информации о создателе.
Данная программа запускаться при нажатии кнопки «ENTER» на клавиатуре, при котором будет вводиться данные из TextBox1, расположенной на основной форме (Form3). При активации Form3 переменным i и j присваиваются значение 1.
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Picture2.Print Format(b(i), " ##0")
Picture1.Print Format(a(i, j), " ##0 ");
Данная программа запускаться при нажатии кнопки «Решить», расположенной на основной форме (Form3). Программа имеет входные данные (матрица с неизвестными переменными и матрица, не имеющий неизвестные переменные), промежуточные и конечное выходные данные. При активации Form3 переменной n присваивается значение от 2 до 10.
'Picture2.Print Format(c(i, j), "##0.0##"),
m1 = c(n - 1, n - 1) * c(n, n) - c(n - 1, n) * c(n, n - 1)
m1 = c(n - 1, n - 1) * c(n, n) - c(n - 1, n) * c(n, n - 1)
m1 = a(n - 1, n - 1) * a(n, n) - a(n - 1, n) * a(n, n - 1)
m1 = a(n - 1, n - 1) * a(n, n) - a(n - 1, n) * a(n, n - 1)
Picture3.Print Format(d(x), "#0.0##")
Данная программа запускаться при активации Form4, которую можно активировать с основной формы (Form3) при нажатии кнопки «Решить» на рамке «Графическое решение». Если число данных уравнений не будет равен двум, то кнопка активации Form4 не будет отображаться на основной форме.
Программу можно разбить на несколько этапов:
1. Вычисление шага и построение осей координат;
X2 = (a(2, 3) * a(1, 1) - a(1, 3) * a(2, 1)) / (a(2, 2) * a(1, 1) - a(1, 2) * a(2, 1))
X1 = (a(1, 3) - a(1, 2) * X2) / a(1, 1)
h1 = Int((l - 500) / (Abs(X1) + 2))
h2 = Int((p - 500) / (Abs(X2) + 2))
f1 = (a(1, 3) - a(1, 1) * k) / a(1, 2)
f2 = (a(2, 3) - a(2, 1) * k) / a(2, 2)
fx1 = h * (a(1, 3) - a(1, 1) * i) / a(1, 2)
fx2 = h * (a(2, 3) - a(2, 1) * i) / a(2, 2)
Picture1.Line (x0 + i0, y0 - f1)-(x0 + i1, y0 - fx1), RGB(0, 0, 200)
Picture1.Line (x0 + i0, y0 - f2)-(x0 + i1, y0 - fx2), RGB(0, 200, 0)
Picture1.Line (x0, y0)-(x0 - 175, y0)
If Abs(k) > r Then z = k Else z = (-1) * r
Picture1.Line (x0, y0 - i * h)-(x0 + 100, y0 - i * h)
Picture1.Line (x0 - i * h, y0)-(x0 - i * h, y0 + 100)
Picture1.Line (x0 + X1 * h, y0)-(x0 + X1 * h, y0 - X2 * h), RGB(200, 0, 0)
Picture1.Line (x0, y0 - X2 * h)-(x0 + X1 * h, y0 - X2 * h), RGB(200, 0, 0)
При выборе команды меню Файл > Выход на любой форме данного приложения запускается программа, завершающая работу приложения. После выполнения действий для запуска данной программы появляется диалоговое окно с подтверждением завершения работы приложения или отклонением.
If MsgBox("Вы действительно хотите закрыть приложение?",vbYesNo+ vbQuestion, "Exit System...") = vbNo Then
При выборе команды в меню форм или нажатие кнопки «построить график» на основной форме (Form2), «Отменить» в форме сохранения (Form5) открывается форма, которая требуется для дальнейшей работы приложения.
Текст программы перехода титульной формы(Form1):
Текст программы перехода формы ввода размерности системы(Form2):
Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
Текст программы перехода основной формы(Form3):
Текст программы перехода формы Графика(Form4):
Текст программы перехода формы О методе(Form5):
Текст программ перехода формы О создателе(Form6):
Метод Крамера в программной среде для решения системы линейных уравнений используется часто и является одним из эффективных способов.
Разработанная на Visual Basic программа находит решение для системы линейных уравнений. Поиск решений производится с помощью метода Крамера. Программа позволяет строить график, т.е. визуализирует способ, если система состоит из двух уравнений.
Проверка правильного решения программы была осуществлена с помощью программы MS Excel. Результаты полностью совпадают.
1. ГОСТ 19.701-90 Схемы алгоритмов программ, данных и систем. М., 1992. 22 с.
2. ГОСТ 2.105-95. Общие требования к текстовым документам. М., 1996. 31 с..
3. Верисбицкий В.М. Численные методы. Линейная алгебра и нелинейные уравнения. - М.: Высшая школа, 2000
4. Браун С., Visual Basic 6. Учебный курс.- СПб.: Питер, 2005.-574 с.: ил.
5. informatic.ugatu.ac.ru - официальный сайт кафедры информатики УГАТУ, отдел дистанционной помощи студентам по выполнению курсовых работ.
История развития алгоритмических языков. Создание языка С++. Разработка программы в Visual C++ для решения линейных уравнений методом Крамера. Структура данных, этапы тестирования программного обеспечения на работоспособность и корректность расчетов. курсовая работа [390,0 K], добавлен 29.12.2014
Решение систем алгебраических линейных уравнений методом Крамера. Сущность метода прогонки. Программная реализация метода: блок-схема алгоритма, листинг программы. Проверка применимости данного способа решения для конкретной системы линейных уравнений. курсовая работа [581,0 K], добавлен 15.06.2013
Системы линейных алгебраических уравнений. Решение систем уравнений графическим способом. Разработка программного кода модуля, реализующего приближенное решение систем линейных уравнений графическим способом. Отладка программного модуля "Метод Гаусса". курсовая работа [858,5 K], добавлен 01.12.2013
Общее понятие о линейных уравнениях и их системах. Разработка программного продукта в среде Delphi 7 для решения методом Крамера квадратных систем линейных алгебраических уравнений с ненулевым определителем основной матрицы. Описание конкретных примеров. курсовая работа [193,7 K], добавлен 07.07.2013
Разработка программы для решения системы линейных уравнений методом Крамера и с помощью расширенной матрицы на языке С++. Описание метода Крамера. Структура программы: заголовочные файлы, типы данных, переменные, идентификаторы, операторы, массивы. курсовая работа [32,3 K], добавлен 19.01.2009
Требования к языкам программирования, их эффективность, лаконичность, ясность, реальные возможности. Создание языка С#. Применение систем линейных алгебраических уравнений для практических задач, сущность и особенности метода Крамера для их решения. курсовая работа [118,1 K], добавлен 13.11.2009
Этапы развития языков программирования. Способы решения системы линейных алгебраических уравнений методом Крамера, рассмотрение особенностей. Анализ языка программирования С++. С # как прямой потомок двух самых успешных в мире компьютерных языков. курсовая работа [770,2 K], добавлен 27.01.2013
Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д. PPT, PPTX и PDF-файлы представлены только в архивах. Рекомендуем скачать работу .

© 2000 — 2021



Решение систем линейных уравнений на Visual Basic методом Крамера курсовая работа. Программирование, компьютеры и кибернетика.
Реферат: Психосоматические расстройства. Скачать бесплатно и без регистрации
Дипломная работа по теме Презумпция невиновности в доказывании. Обязанность доказывания
Виды Исследований Реферат
Обучающее Сочинение Описание По Картине Пластова План
Курсовая работа по теме Разработка программного обеспечения для анализа и моделирования взвешенных сетей
Дипломная работа по теме Психологічний аналіз ділових стосунків в академічних групах
Курсовая работа по теме Вивчення застосування Інтернет та інтернет-ресурсів у процесі обслуговування в готелях
Дипломная работа по теме Особенности формирования связной монологической речи дошкольников с общим недоразвитием речи
Реферат: Характерные черты индийских философских систем
Информационное Общество В России Реферат
Курсовая работа по теме Моделирование поведения игроков фондового рынка (в отношении акций второго эшелона) на российском рынке
Шпаргалки На Тему Медиапланирование
Дипломная работа по теме Технология лесосечных работ. Технология нижнескладских работ и первичной переработки круглых лесоматериалов
Контрольная работа: Расчет индуктивности
Курсовая работа по теме Обучение и реабилитация детей с нарушением слуха по верботональному методу
Курсовая работа по теме Товароведная характеристика и таможенная экспертиза мороженой рыбы
Протокол осмотра трупа
Презумпция Принимается За Истину Эссе
Дипломная работа по теме Методические особенности расследования и профилактики отдельных ДТП в условиях города
Дипломная Работа На Тему Традиції Та Новаторство У Зарубіжній Музичній Культурі Хх Століття
Экспериментальное исследование особенностей процессов запоминания в младшем дошкольном возрасте - Педагогика курсовая работа
Исторический ход перестройки - История и исторические личности курсовая работа
Форми групової навчальної діяльності на різних етапах уроку іноземної мови - Педагогика курсовая работа