Руководство пользователя к разработанному решению

Программа "Максимизации капиталовложений" предназначена для вычисления максимально возможного суммарного прироста прибыли всех предприятий (субъектов), прироста прибыли каждого предприятия, а также количества ресурсов, которые необходимо выделить каждому предприятию, чтобы суммарный прирост прибыли был максимальным.

Для работоспособности данного приложения вы должны обладать следующим перечнем программных и технических средств:

· ПК на базе процессора Intel, AMD;

· Оперативная память 128 МБ;

· Видео: совместимая VGA видеокарта;

· Операционная система Windows XP/Windows7;

· Клавиатура, мышь;

· Microsoft.NET Framework 3.0;

Для начала работы с программой запустите файл RZMK.exe. Далее вы должны заполнить пустые поля на форме данными.

Рисунок 17 «Главная форма приложения»

 

 

Для проведения операций над введенными данными необходимо воспользоваться кнопками (Рис.19):
- Результат - программа вычисляет и выводит результат.
- Сброс - очищает поля от введенных значений и ответа.
- Файл - Пример - автоматически заполняет поля вложения ресурсов и их распределения тестовыми значениями.
- О программе - вызывает информацию о программе и его разработчике

Рисунок 19 "Кнопки"

 

После нажатия кнопки "Рассчитать" программа выдает результаты максимального суммарного прироста прибыли, прирост прибыли на каждом предприятии и количество необходимых ресурсов (Рис.20), .

Рисунок 20 "Максимальный прирост прибыли и прирост прибыли и выделенные ресурсы на предприятиях "

 

Алгоритм решений унифицированной задачи

Начало

Выбор действия

Выбор действия

Конец

Ввод данных

Помощь

Тестовое задание

Решение

Вывод результата

 

Рисунок 24 «Алгоритм решения унифицировнанной задачи»

Заключение

В ходе разработки курсового проекта мной была рассмотрена и изучена задача о максимизации капиталовложений, что такое задача о максимизации капиталовложений и где она применяется.

 

 

Список литературы

1. Кузнецов А.М., Сакович В.А, Холод И.И. Высшая математика. Математическое программирование. Минск, Высшая школа, 2001.

2. Федосеев В.В. и др. Экономико-математические методы и прикладные модели: Учебное пособие для ВУЗов. – М:. Юнити, 2002.

3. Шикин Е.А., Чхартишвили А.Г. Математические методы и модели в управлении – М:. Дело 2000.

 

Приложение

unit Unit1;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Grids, Math, ExtCtrls, Menus, ShellAPI;

 

type

TForm1 = class(TForm)

 

StringGrid1: TStringGrid;

 

Button1: TButton;

Button2: TButton;

 

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

 

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

private

{ Private declarations }

 

public

{ Public declarations }

end;

 

var

Form1: TForm1;

MasSum:Array[0..5,0..5] of Integer; // Массив для хранение суммы

MasMax:Array[1..5,1..5] of Integer; // Массив для хранение максимальных чисел

Cells:Array[0..20] of TPoint; // Массив точек (записи координат максимальных чисел)

L:Integer;

 

implementation

 

uses Unit2;

 

{$R *.dfm}

 

procedure TForm1.FormCreate(Sender: TObject);

var

myRect: TGridRect;

I:Integer;

begin

// Смещаем фокус (выделение)

with myRect do

begin

Left:=-1;

Top:=-1;

Right:=-1;

Bottom:=-1;

end;

 

StringGrid1.Selection:=myRect;

 

// Заполняем заголовки таблицы

with StringGrid1 do

begin

Cells[0,0]:='U';

for I:=1 to 5 do

begin

Cells[0,I]:='L'+IntToStr(I)+'(U)';

Cells[I,0]:=IntToStr(I-1);

end;

end;

end;

 

// Процедура для подсчета суммы

procedure Sum();

var

I, J: Integer;

begin

For I:=1 to 5 do

For J:=1 to 5 do

MasSum[I,J]:=MasSum[I,0] + MasSum[0,J];

end;

 

// Процедура для нахождние максимальных чисел (диагонали)

// и записи координат в массив

procedure Max();

var

I,J,iMax,jMax:Integer;

C:TPoint;

begin

iMax:=0; jMax:=0;

For I:=5 downto 1 do

begin

MasMax[I,1]:=MasSum[1,I];

For J:=I downto 1 do

If MasSum[I-J+1,J] >= MasMax[I,1] then

begin

MasMax[I,1]:=MasSum[I-J+1,J];

iMax:=I-J+1;

jMax:=J;

MasMax[I,2]:=J-1; // В какой строке найдено максимальное знач.

end;

C.X:=jMax; C.Y:=iMax; // Координаты максимальных значений

Cells[L]:=C;

L:=L+1;

end;

end;

 

// Сбрасываем введенные нами значения

procedure TForm1.Button1Click(Sender: TObject);

var

I,J: Integer;

begin

For I:=1 to 5 do

For J:=1 to 5 do

Form1.StringGrid1.Cells[I,J]:='';

Form2.Close;

end;

 

// Процедура подсчета итераций

// Вывод результата в таблицы

procedure TForm1.Button2Click(Sender: TObject);

var

I,J,K,C,P:Integer;

begin

Form2.Show;

L:=0; C:=0; P:=2;

while C<=6 do

begin

K:=1;

For I:=1 to 5-K+1 do

begin

For J:=1 to 5-K+1 do

begin

If C=0 then MasSum[I,0]:=StrToInt(StringGrid1.Cells[I,1])

else MasSum[I,0]:=StrToInt((Form2.Components[C-1] as TStringGrid).Cells[I,1]);

MasSum[0,J]:=StrToInt(StringGrid1.Cells[J,P]);

(Form2.Components[C] as TStringGrid).Cells[I,0]:=IntToStr(MasSum[I,0]);

(Form2.Components[C] as TStringGrid).Cells[0,J]:=IntToStr(MasSum[0,J]);

Sum();

(Form2.Components[C] as TStringGrid).Cells[I,J]:=IntToStr(MasSum[I,J]);

(Form2.Components[C+1] as TStringGrid).Cells[I,0]:=IntToStr(K-1);

end;

K:=K+1;

end;

Max();

for I:=1 to 5 do

begin

(Form2.Components[C+1] as TStringGrid).Cells[I,1]:=IntToStr(MasMax[I,1]);

(Form2.Components[C+1] as TStringGrid).Cells[I,2]:=inttostr(MasMax[I,2]);

(Form2.Components[C+1] as TStringGrid).Cells[0,0]:='E';

(Form2.Components[C+1] as TStringGrid).Cells[0,1]:='F'+IntToStr(P)+'(E)';

(Form2.Components[C+1] as TStringGrid).Cells[0,2]:='X'+IntToStr(P)+'(E)';

end;

C:=C+2;

P:=P+1;

end;

Form2.StringGrid1.Invalidate;

 

// z(max)

Form2.LabeledEdit1.Text:=' '+Form2.StringGrid8.Cells[5,1];

 

// x5

Form2.LabeledEdit6.Text:=' '+Form2.StringGrid8.Cells[5,2];

 

// x4

Form2.LabeledEdit5.Text:=' '+Form2.StringGrid6.Cells[4-

StrToInt(Form2.LabeledEdit6.Text)+1,2];

 

// x3

Form2.LabeledEdit4.Text:=' '+Form2.StringGrid4.Cells[4-

StrToInt(Form2.LabeledEdit6.Text)-StrToInt(Form2.LabeledEdit5.Text)+1,2];

 

// x2

Form2.LabeledEdit3.Text:=' '+Form2.StringGrid2.Cells[4-

StrToInt(Form2.LabeledEdit6.Text)-

StrToInt(Form2.LabeledEdit5.Text)-

StrToInt(Form2.LabeledEdit4.Text)+1,2];

 

// x1

Form2.LabeledEdit2.Text:=' '+IntToStr(4-

StrToInt(Form2.LabeledEdit6.Text)-

StrToInt(Form2.LabeledEdit5.Text)-

StrToInt(Form2.LabeledEdit4.Text)-

StrToInt(Form2.LabeledEdit3.Text));

end;

 

 

// Кнопка "Решить"

procedure TForm1.N2Click(Sender: TObject);

begin

Form1.Button2.Click;

end;

 

// Кнопка "Мой пример"

procedure TForm1.N3Click(Sender: TObject);

var

I:Integer;

begin

with StringGrid1 do

begin

for I:=1 to 5 do Cells[1,I]:=IntToStr(0);

 

Cells[2,1]:='5'; Cells[4,1]:='11';

Cells[2,2]:='3'; Cells[4,2]:='5';

Cells[2,3]:='7'; Cells[4,3]:='10';

Cells[2,4]:='4'; Cells[4,4]:='12';

Cells[2,5]:='3'; Cells[4,5]:='7';

 

Cells[3,1]:='9'; Cells[5,1]:='12';

Cells[3,2]:='4'; Cells[5,2]:='10';

Cells[3,3]:='9'; Cells[5,3]:='11';

Cells[3,4]:='8'; Cells[5,4]:='14';

Cells[3,5]:='5'; Cells[5,5]:='9';

end;

end;

 

// Кнопка "Сброс"

procedure TForm1.N4Click(Sender: TObject);

begin

Form1.Button1.Click;

end;

 

// Кнопка "Выход"

procedure TForm1.N5Click(Sender: TObject);

begin

Form1.Close;

Form2.Close;

end;

 

// О программе

procedure TForm1.N6Click(Sender: TObject);

begin

ShowMessage('Программа предназначена для решения задачи' + chr(13) +

'максимизации капатиловложений' + chr(13) + chr(13) +

 

'Разработал студент группы 10п-1' + chr(13) +

'Урусов Алексей' + chr(13) + chr(13) +

'УАвиаК, 2013г.');

end;

 

end.

 

unit Unit2;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, Math, StdCtrls, ExtCtrls, jpeg, ColorGrd, Buttons,

ImgList;

 

type

TForm2 = class(TForm)

StringGrid1: TStringGrid;

StringGrid2: TStringGrid;

StringGrid3: TStringGrid;

StringGrid4: TStringGrid;

StringGrid5: TStringGrid;

StringGrid6: TStringGrid;

StringGrid7: TStringGrid;

StringGrid8: TStringGrid;

 

LabeledEdit1: TLabeledEdit;

LabeledEdit2: TLabeledEdit;

LabeledEdit3: TLabeledEdit;

LabeledEdit4: TLabeledEdit;

LabeledEdit5: TLabeledEdit;

LabeledEdit6: TLabeledEdit;

 

StaticText1: TStaticText;

StaticText2: TStaticText;

StaticText3: TStaticText;

StaticText4: TStaticText;

 

procedure SG_OnDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);

procedure FormCreate(Sender: TObject);

 

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form2: TForm2;

 

implementation

 

uses Unit1;

 

{$R *.dfm}

 

// Процедура для закрашивание максимальных элементов

// по найденным координатам

procedure TForm2.SG_OnDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);

var

I,F,N:Integer;

Change:Boolean;

begin

F:=0; N:=0;

while F<=6 do

begin

Change:=False;

For I:=N to N+4 do

begin

If (ACol = Cells[i].Y) and (ARow = Cells[i].X) then

begin

Change:=True;

Break

end;

end;

If Change then

begin

(Components[f] as TStringGrid).Canvas.Brush.Color:=clRed;;

(Components[f] as TStringGrid).Canvas.FillRect(Rect);

(Components[f] as TStringGrid).Canvas.TextOut(Rect.Left, Rect.Top, (Components[f] as TStringGrid).Cells[ACol, ARow]);

end;

N:=N+5;

F:=F+2;

end;

end;

 

// Процедруа для смещений фокуса (выделения)

procedure TForm2.FormCreate(Sender: TObject);

var

myRect:TGridRect;

C:Integer;

begin

with myRect do begin

Left:=-1;

Top:=-1;

Right:=-1;

Bottom:=-1;

end;

for C:=1 to 8 do

(Form2.FindComponent('StringGrid'+IntToStr(C)) as TStringGrid).Selection:=myRect;

end;

 

end.