Реферат Об'єктно-орієнтована модуль для роботи з матрицями

ня матриць

Різниця матриць аналогічна підсумовуванню, дані для другої матриці завантажуються з файлу input2.txt. Як показано на малюнку 7 результат відображається в третій таблиці. br/>В 

Рис. 7. Віднімання матриць

Остання, сьома вкладка дозволяє помножити дві матриці. Друга матриця завантажується з файлу input2.txt. Результат відображається у третій таблиці малюнок 7. <В 

Рис. 7. Обчислення твори матриць

Слід звернути увагу, що при перемиканні вкладок результати попередніх дій зникають, тобто очищається таблиця, в яку необхідно помістити результат.

Висновок

У ході роботи над курсовою були виконані наступні завдання. Був проведений аналіз літератури та виявлено основні поняття теорії матриць. Були обрані основні операції з матрицями. Для реалізації програми взяли квадратні матриці, так як вони зручніші для демонстрації можливостей роботи з матрицями. p align="justify"> Спроектовано об'єкт для зберігання матриці та виконання операцій з нею. Підготовлено функції і процедури, що реалізують ці операції. p align="justify"> Розроблено модуль дій над матрицями, продуманий інтерфейс програми а так само реалізована сама програма.

Література

Гантмахер Ф.Р. Теорія матриць. - М.: Наука, 1968. - 576 с. p align="justify"> Валентин Озеров В«Поради щодо DelphiВ», 1999

Зуєв Є.А. Програмування на мові Turbo Pascal 6.0,7.0. - М.: Радіо і зв'язок, Веста, 1993. p align="justify"> Фаронов В.В. Turbo Pascal 7.0. Початковий курс. - М.: Нолидж, 2000. p align="justify"> Фаронов В.В. В«DELPHI. Програмування на мові високого рівня В». - Пітер, 2005. p align="justify"> Бобровський С.І. Delphi 7. Навчальний курс - Пітер, 2007

Ілюстрований онлайн підручник з Borland Delphi 7 з прикладами, # "justify"> Додаток А

матриця модуль програма

Вихідний код модуля для роботи з матрицями

unit umatrix; Classes; = class (TComponent)

N: Integer;// Ðàçìåðíîñòü ìàòðèöû

Matrix: array of array of Real;// Ýëåìåíòû ìàòðèöû Razmer: Integer read N; Init (Num: Integer = 3); ShowScreen; LoadFromFile (FName: string ); Add (M2: Tmatrix): Tmatrix; Sub (M2: Tmatrix): TMatrix; Mult (M2: Tmatrix): tmatrix; Obrat (): Tmatrix; Transp (): Tmatrix; NumMul (Num: Real): TMatrix; Det (M: Tmatrix): Real; Exchange_line (Nfirst, Nsecond: Integer); getMatrix (M: TMatrix; Row, Col: Integer): TMatrix;;

TMatrix.Init (Num: Integer = 3); i: Integer;: = Num; (Matrix, N); i: = 0 to N-1 do (Matrix [i], N) ;; TMatrix.ShowScreen; i, j: Integer; i: = 0 to N-1 doj: = 0 to N - 1 do (Matrix [...