Тема: Государственный бюджет России. Проблемы дефицита и профицита бюджетов всех уровней. Учебная работа № 399903

Учебная работа № 399903. Тема: Государственный бюджет России. Проблемы дефицита и профицита бюджетов всех уровней

Выдержка из подобной работы

…….

Государственный бюджет России и проблемы его сбалансированности

….. множення матриці на вектор

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. maxAct]
of 0.5;

indexArr: array [1. maxAct+1]
of 0.60;

sizeOfAction,act: 0.2;

opers: array [1.2] of
matrRecLink;

filePath: string [255];

f: file of matrRec;

newItem: TListItem;

implementation

uses Unit3;

{$R *. dfm}

procedure TmatrEditor.
Button2Click (Sender: TObject);

begi…