Тип работы: Курсовая практическая
Предмет: Микроэкономика
Страниц: 34
стр.
Введение 3
1.Государственный бюджет – финансовый план государства 6
1.1.Экономическая сущность государственного бюджета 6
1.2. Доходы и расходы государственного бюджета 9
2.Оценка функционирования бюджетной системы РФ на современном этапе экономического развития 12
2.1.Анализ динамики доходов и расходов федерального бюджета 12
2.2.Проблемы функционирования бюджетной системы России 19
3.Бюджетная политика России 22
3.1.Направления развития бюджетной политики 22
3.2.Основные характеристики федерального бюджета на 2011 год и плановый период 2012 и 2013 годов 24
Заключение 32
Список использованной литературы 34
Учебная работа № 398290. Тема: Государственный бюджет России: пути формирования и использования
Выдержка из подобной работы
Государственный бюджет России и проблемы его сбалансированности
…..ти функцію множення матриці на вектор
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.
Bu…