НАЦІОНАЛЬНИЙ ТЕХНІЧНИЙ УНІВЕРСИТЕТ УКРАЇНИ "КПІ"
ФАКУЛЬТЕТ ПРИКЛАДНОЇ МАТЕМАТИКИ
Кафедра спеціалізованих комп’ютерних систем
КУРСОВА РОБОТА
з дисципліни "Технологія програмування"
Виконав: Семенякін Володимир
Постановка завдання
Розробити програму для розрахунку норм вектору, отриманому по наступній формулі:
, Де A, B, C - матриці й X, Y - вектори.
Теоретичні відомості
Для обрахунку заданої формули необхідно:
a) Написати процедуру[1] множення матриці на матрицю.
b) Написати процедуру сумування матриць.
c) Написати процедуру віднімання векторів.
d) Написати функцію множення матриці на вектор
e) Написати функцію для обчислення евклідової норми вектора.
f) Написати функцію обчислення норми вектора
g) Написати функцію обчислення норми вектора
h) Створити зручний інтерфейс для користувача.
Множення матриць:
Звідки легко бачити, що при множені матриці розмірами NM на матрицю розмірами МК буде отримана матриця розміром NК.
Сумування матриць:
Легко бачити, що задана дія ніяк не впливає на розмірність результуючої матриці. Матриці, що сумуються, мають бути однакових розмінностей.
Множення матриці на вектор:
Аналогічно множенню матриці на матрицю. Другим операндом у такій ситуації виступає матриця розміром М1. В результаті виникає матриця розміром N1, або ж просто вектор з N координатами.
Віднімання векторів:
Обчислення евклідової норми[2]:
Відбувається за наступною формулою:
Частіше всього евклідова норма використовується для обчислення довжини вектора.
Норми й не потребують пояснення. Їх зміст у їх вигляді.
Обґрунтування доцільності використання модулів
Модулі дозволяють використання функцій, процедур й типів для роботи з матрицями і векторами у інших програмах. Отже модульне програмування додає універсальності.
Функції й процедури доцільні, коли виникає багаторазове повторення одних й тих же алгоритмів. Ця курсова робота - як раз той випадок.
Код програми
Код головної програми:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls, ComCtrls, matrix, Menus;
type
TmatrEditor = class (TForm)
Label1: TLabel;
Button2: TButton;
operList: TListView;
l2: TLabel;
objInf: TGroupBox;
matrViev: TStringGrid;
vectViev: TStringGrid;
itemNomb: TEdit;
infLab: TLabel;
Button3: TButton;
GroupBox2: TGroupBox;
Label2: TLabel;
vectorRB: TRadioButton;
matrixRB: TRadioButton;
l4: TLabel;
GroupBox3: TGroupBox;
Button1: TButton;
Button4: TButton;
TEST: TButton;
MainMenu1: TMainMenu;
File1: TMenuItem;
Save1: TMenuItem;
Open1: TMenuItem;
Exit1: TMenuItem;
opViev: TEdit;
GroupBox1: TGroupBox;
plusA: TRadioButton;
minusA: TRadioButton;
multA: TRadioButton;
Button5: TButton;
Button7: TButton;
Button6: TButton;
OpenD: TOpenDialog;
saveD: TSaveDialog;
Label3: TLabel;
procedure Button2Click (Sender: TObject);
procedure FormCreate (Sender: TObject);
procedure matrVievClick (Sender: TObject);
procedure TESTClick (Sender: TObject);
procedure Button1Click (Sender: TObject);
procedure operListClick (Sender: TObject);
procedure vectVievClick (Sender: TObject);
procedure vectorRBClick (Sender: TObject);
procedure matrixRBClick (Sender: TObject);
procedure Button4Click (Sender: TObject);
procedure itemNombKeyUp (Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure operListDblClick (Sender: TObject);
procedure Button5Click (Sender: TObject);
procedure Button6Click (Sender: TObject);
procedure Button7Click (Sender: TObject);
procedure Save1Click (Sender: TObject);
procedure Open1Click (Sender: TObject);
procedure itemNombChange (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
const maxAct=15;
type matrRec = record
strName: string [20];
case typeOf: (vect,matr) of
matr: (mt: matrix_);
vect: (vt: vector);
end;
matrRecLink = ^matrRec;
var
matrEditor: TmatrEditor;
nowCharCode: byte;
nowMatr: matrix_;
nowVect: vector;
mainList: TList;
nowEl: matrRecLink;
i,j: size;
nowItem: integer;
fl: boolean;
actionArr: array [1. ............
