умарного приросту прибутку, приріст прибутку на кожному підприємстві і кількість необхідних ресурсів (Рис.20),
Малюнок 20 Максимальний приріст прибутку і приріст прибутку і виділені ресурси на підприємствах
Алгоритм рішень уніфікованої завдання
Малюнок 24 «Алгоритм розв'язання уніфіціровнанной завдання»
Висновок
У ході розробки курсового проекту мною була розглянута і вивчена задача про максимізації капіталовкладень, що таке завдання про максимізації капіталовкладень і де вона застосовується.
Список літератури
1.Кузнецов А.М., Сакович В.А, Холод І.І. Вища математика. Математичне програмування. Мінськ, Вища школа, 2011.
2.Федосеев В.В. та ін. Економіко-математичні методи і прикладні моделі: Навчальний посібник для ВНЗ.- М :. Юніті, +2002.
.Шікін Е.А., Чхартішвілі А.Г. Математичні методи та моделі в управлінні - М :. Справа +2010.
Додаток
unit Unit1 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, Grids, Math, ExtCtrls, Menus, ShellAPI;=class (TForm): TStringGrid ;: TButton;:TButton ;: TMainMenu ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem; Button1Click (Sender: TObject); FormCreate (Sender: TObject); Button2Click (Sender: TObject); N2Click (Sender: TObject ); N3Click (Sender: TObject); N4Click (Sender: TObject); N5Click (Sender: TObject); N6Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm1;: Array [0..5,0..5] of Integer;// Масив для зберігання суми: Array [1..5,1..5] of Integer;// Масив для зберігання максимальних чисел
Cells: Array [0..20] of TPoint;// Масив точок (записи координат максимальних чисел)
L: Integer; Unit2;
{$ R * .dfm} TForm1.FormCreate (Sender: TObject) ;: TGridRect;: Integer;
//Зміщуємо фокус (виділення) myRect do:=- 1;:=- 1;:=- 1;:=- 1 ;;. Selection:=myRect;
//Заповнюємо заголовки табліциStringGrid1 do [0,0]:= U raquo ;; I:=1 to 5 do [0, I]:= L + IntToStr (I) + (U) raquo ;; [I, 0]:=IntToStr (I - 1) ;;;
end;
//Процедура для підрахунку суми
procedure Sum () ;, J: Integer; I:=1 to 5 doJ:=1 to 5 do [I, J]:=MasSum [I, 0] + MasSum [0, J ] ;;
//Процедура для нахождніе максимальних чисел (діагоналі)
//і записи координат в масив
procedure Max ();
var, J, iMax, jMax: Integer;: TPoint;:=0; jMax:=0; I:=5 downto 1 do [I, 1]:=MasSum [1, I]; J:=I downto 1 doMasSum [I-J + 1, J] gt;=MasMax [I, 1 ] then [I, 1]:=MasSum [I-J + 1, J];:=I-J + 1;:=J; [I, 2]:=J - 1;// У якому рядку знайдено максимальне знач.
end;
C.X:=jMax; C.Y:=iMax;// Координати максимальних значень
Cells [L]:=C;:=L + 1 ;;;
//Скидаємо введені нами значеніяTForm1.Button1Click (Sender: TObject) ;, J: Integer; I:=1 to 5 doJ:=1 to 5 do.StringGrid1.Cells [I, J]: = raquo ;; 2.Close;
end;
//Процедура підрахунку ітерацій
//Висновок результату в табліциTForm1.Button2Click (Sender: TObject) ;, J, K, C, P: Integer; .Show;:=0; C:=0; P:=2; C lt;=6 do:=1; I:=1 to 5-K + 1 doJ:=1 to 5-K + 1 doC=0 then MasSum [I, 0]:=StrToInt (StringGrid1. Cells [I, 1]) MasSum [I, 0]:=StrToInt ((Form2.Components [C - 1] as TStringGrid) .Cells [I, 1]); [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]); ();
(Form2.Components [C] as TStringGrid) .Cells [I, J]:=IntToStr (MasSum [I, J]);
(Form2.Components [C + 1] as TStringGrid) .Cells [I, 0]:=IntToStr (K - 1) ;;:=K + 1 ;; (); I:= 1 to 5 do
(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 raquo ;;
(Form2.Components [C + 1] as TStringGrid) .Cells [0,1]:= F + IntToStr (P) + (E) raquo ;;
(Form2.Components [C + 1] as TStringGrid).Cells[0,2]:=laquo;Xraquo;+IntToStr(P)+laquo;(E)raquo;;;:=C+2;:=P+1;;.StringGrid1.Invalidate;
