- •Необходимость моделирования.
- •Цель курсовой работы:
- •Формулировка цели исследования.
- •Описание хозяйственной деятельности объекта.
- •Процесс управления.
- •Описание характера модели.
- •Условные обозначения.
- •Выбор формализованной схемы описания модели.
- •Математическая модель.
- •Программная реализация модели.
- •Результаты реализации модели.
- •Построение реляционных отношений и реализация запросов.
- •Вместо заключения.
- •Список использованной литературы:
Программная реализация модели.
Реализация модели была произведена с помощью ЭВМ, в виде написания программы, производящей поиск решения. В качестве алгоритмического языка программирования был использован Turbo Pascal 7.0. Текст программы приведен ниже:
program model;
uses WinTypes, WinProcs;
const
AppName = 'Generic';
const
idm_About;
function About(Dialog: HWnd; Message, WParam: Word;
LParam: Longint: Bool; export;
begin
About:= True;
case Message of
wm_InitDialog:
Exit;
wm_Command:
if (WParam = id_Ok) or (WParam = id_Cancel) then
begin
EndDialog(Dialog, 1);
Exit;
end;
end;
About:= False;
end;
function WindowProc(Window: HWnd; Message, WParam: Word;
LParam: Longint: Longint; export;
var
AboutProc: TFarProc;
begin
WindowProc:= 0;
case Message of
wm_Command:
if WParam = idm_About then
begin
AboutProc:= MakeProcInstance(@About, HInstance);
DialogBox(HInstance, 'AboutBox', Window, AboutProc);
FreeProcInstance(AboutProc);
Exit;
end;
wm_Destroy:
begin
PostQuitMessage;
Exit;
end;
end;
WindowProc:= DefWindowProc(Window, Message, WParam, LParam);
end;
procedure WinMain;
var
Window: HWnd;
Message: TMsg;
const
WindowClass: TwndClass
style:
lpfnWndProc: WindowProc;
cbClsExtra:
cbWndExtra:
hInstance:
hIcon:
hCursor:
hbrBackground:
lpszMenuName: AppName;
lpszClassName: AppName);
begin
if HPrevInst = then
begin
WindowClass.hInstance := HInstance;
WindowClass.hIcon := LoadIcon(0, idi_Application);
WindowClass.hCursor := LoadCursor(idc_Arrow);
WindowClass.hbrBackground := GetStockObject(white_Brush);
if not RegisterClass(WindowClass) then Halt;
end;
Window := CreateWindow(
AppName,
'Turbo Pascal Generic',
ws_OverlappedWindow,
cw_UseDefault,
cw_UseDefault,
cw_UseDefault,
cw_UseDefault,
HInstance,
ShowWindow(Window, CmdShow);
UpdateWindow(Window);
while GetMessage(Message) do
begin
TranslateMessage(Message);
DispatchMessage(Message);
end;
Halt(Message.wParam);
end;
begin
WinMain;
end.
Результаты реализации модели.
После запуска и работы программы были получены следующие итоговые результаты: 1 год.
Общая площадь всех земель = 10 000 (га.); Объем инвестиций в животноводство = 10 000 000 (руб.); Площадь пастбищ = 10 000 (га.); Урожайность травы за год = 50 (ц./га.); Общее количество травы = 500 000 (ц.); Среднее потребление травы одной особью крупного рогатого скота за год = 100 (ц./голову); Среднее количество мяса, получаемое с одной особи крупного рогатого скота за год = 300 (кг./голову); Общее поголовье скота = 5 000 (голов); Общее количество мяса = 1 500 000 (кг.); Издержки связанные с выращиванием травы = 10 000 000 (руб.); Издержки связанные с разведением скота = 50 000 000 (руб.); Цена мяса = 80 (руб./кг.); Стоимость мяса = 120 000 000 (руб.); Доход от мяса = 60 000 000 (руб.); Общий доход = 60 000 000 (руб.);
2 год.
Общая площадь всех земель = 10 000 (га.); Общий объем инвестиций в производство продукции = 15 000 000 (руб.); Площадь пастбищ = 9 500 (га.); Урожайность травы за год = 50 (ц./га.); Общее количество травы = 475 000 (ц.); Среднее потребление травы одной особью крупного рогатого скота за год = 100 (ц./голову); Среднее количество мяса, получаемое с одной особи крупного рогатого скота за год = 300 (кг./голову); Общее поголовье скота = 4 750 (голов); Общее количество мяса = 1 425 000 (кг.); Объем инвестиций в животноводство = 12 000 000 (руб.); Издержки связанные с выращиванием травы = 9 500 000 (руб.); Издержки связанные с разведением скота = 47 500 000 (руб.); Цена мяса = 80 (руб./кг.); Стоимость мяса = 114 000 000 (руб.); Доход от мяса = 57 000 000 (руб.); Площадь рисовых чеков = 500 (га.); Урожайность риса за год = 30 (ц./га.); Общее количество риса = 15 000 (ц.); Объем инвестиций в рисоводство = 3 000 000 (руб.); Издержки связанные с выращиванием риса = 10 000 000 (руб.); Цена риса = 10 (руб./кг.); Стоимость риса = 15 000 000 (руб.); Доход от риса = 5 000 000 (руб.); Общий доход = 62 000 000 (руб.);
3 год.
Общая площадь всех земель = 10 000 (га.); Общий объем инвестиций в производство продукции = 15 500 000 (руб.); Площадь пастбищ = 9 000 (га.); Урожайность травы за год = 50 (ц./га.); Общее количество травы = 450 000 (ц.); Среднее потребление травы одной особью крупного рогатого скота за год = 100 (ц./голову); Среднее количество мяса, получаемое с одной особи крупного рогатого скота за год = 300 (кг./голову); Общее поголовье скота = 4 500 (голов); Общее количество мяса = 1 350 000 (кг.); Объем инвестиций в животноводство = 12 000 000 (руб.); Издержки связанные с выращиванием травы = 9 000 000 (руб.); Издержки связанные с разведением скота = 45 000 000 (руб.); Цена мяса = 80 (руб./кг.); Стоимость мяса = 108 000 000 (руб.); Доход от мяса = 54 000 000 (руб.); Площадь рисовых чеков = 1 000 (га.); Урожайность риса за год = 32 (ц./га.); Общее количество риса = 32 000 (ц.); Объем инвестиций в рисоводство = 3 500 000 (руб.); Издержки связанные с выращиванием риса = 20 000 000 (руб.); Цена риса = 13 (руб./кг.); Стоимость риса = 41 600 000 (руб.); Доход от риса = 21 600 000 (руб.); Общий доход = 75 600 000 (руб.);
4 год.
Общая площадь всех земель = 10 000 (га.); Общий объем инвестиций в производство продукции = 18 900 000 (руб.); Площадь пастбищ = 8 500 (га.); Урожайность травы за год = 50 (ц./га.); Общее количество травы = 425 000 (ц.); Среднее потребление травы одной особью крупного рогатого скота за год = 100 (ц./голову); Среднее количество мяса, получаемое с одной особи крупного рогатого скота за год = 300 (кг./голову); Общее поголовье скота = 4 250 (голов); Общее количество мяса = 1 275 000 (кг.); Объем инвестиций в животноводство = 10 000 000 (руб.); Издержки связанные с выращиванием травы = 8 500 000 (руб.); Издержки связанные с разведением скота = 42 500 000 (руб.); Цена мяса = 80 (руб./кг.); Стоимость мяса = 102 000 000 (руб.); Доход от мяса = 51 000 000 (руб.); Площадь рисовых чеков = 1 500 (га.); Урожайность риса за год = 35 (ц./га.); Общее количество риса = 52 500 (ц.); Объем инвестиций в рисоводство = 8 900 000 (руб.); Издержки связанные с выращиванием риса = 30 000 000 (руб.); Цена риса = 14 (руб./кг.); Стоимость риса = 73 500 000 (руб.); Доход от риса = 43 500 000 (руб.); Общий доход = 94 500 000 (руб.);
5 год.
Общая площадь всех земель = 10 000 (га.); Общий объем инвестиций в производство продукции = 23 625 000 (руб.); Площадь пастбищ = 8 000 (га.); Урожайность травы за год = 50 (ц./га.); Общее количество травы = 400 000 (ц.); Среднее потребление травы одной особью крупного рогатого скота за год = 100 (ц./голову); Среднее количество мяса, получаемое с одной особи крупного рогатого скота за год = 300 (кг./голову); Общее поголовье скота = 4 000 (голов); Общее количество мяса = 1 200 000 (кг.); Объем инвестиций в животноводство = 10 000 000 (руб.); Издержки связанные с выращиванием травы = 8 000 000 (руб.); Издержки связанные с разведением скота = 40 000 000 (руб.); Цена мяса = 80 (руб./кг.); Стоимость мяса = 96 000 000 (руб.); Доход от мяса = 48 000 000 (руб.); Площадь рисовых чеков = 2 000 (га.); Урожайность риса за год = 25 (ц./га.); Общее количество риса = 50 000 (ц.); Объем инвестиций в рисоводство = 13 625 000 (руб.); Издержки связанные с выращиванием риса = 40 000 000 (руб.); Цена риса = 11 (руб./кг.); Стоимость риса = 55 000 000 (руб.); Доход от риса = 15 000 000 (руб.); Общий доход = 58 000 000 (руб.);
6 год.
Общая площадь всех земель = 10 000 (га.); Общий объем инвестиций в производство продукции = 14 500 000 (руб.); Площадь пастбищ = 7 500 (га.); Урожайность травы за год = 50 (ц./га.); Общее количество травы = 375 000 (ц.); Среднее потребление травы одной особью крупного рогатого скота за год = 100 (ц./голову); Среднее количество мяса, получаемое с одной особи крупного рогатого скота за год = 300 (кг./голову); Общее поголовье скота = 3 750 (голов); Общее количество мяса = 1 125 000 (кг.); Объем инвестиций в животноводство = 6 000 000 (руб.); Издержки связанные с выращиванием травы = 7 500 000 (руб.); Издержки связанные с разведением скота = 37 500 000 (руб.); Цена мяса = 80 (руб./кг.); Стоимость мяса = 90 000 000 (руб.); Доход от мяса = 45 000 000 (руб.); Площадь рисовых чеков = 2 500 (га.); Урожайность риса за год = 25 (ц./га.); Общее количество риса = 62 500 (ц.); Объем инвестиций в рисоводство = 8 500 000 (руб.); Издержки связанные с выращиванием риса = 50 000 000 (руб.); Цена риса = 10 (руб./кг.); Стоимость риса = 62 500 000 (руб.); Доход от риса = 12 500 000 (руб.); Общий доход = 57 500 000 (руб.);
7 год.
Общая площадь всех земель = 10 000 (га.); Общий объем инвестиций в производство продукции = 14 375 000 (руб.); Площадь пастбищ = 7 500 (га.); Урожайность травы за год = 50 (ц./га.); Общее количество травы = 375 000 (ц.); Среднее потребление травы одной особью крупного рогатого скота за год = 100 (ц./голову); Среднее количество мяса, получаемое с одной особи крупного рогатого скота за год = 300 (кг./голову); Общее поголовье скота = 3 750 (голов); Общее количество мяса = 1 125 000 (кг.); Объем инвестиций в животноводство = 8 000 000 (руб.); Издержки связанные с выращиванием травы = 7 500 000 (руб.); Издержки связанные с разведением скота = 37 500 000 (руб.); Цена мяса = 80 (руб./кг.); Стоимость мяса = 90 000 000 (руб.); Доход от мяса = 45 000 000 (руб.); Площадь рисовых чеков = 2 500 (га.); Урожайность риса за год = 25 (ц./га.); Общее количество риса = 62 500 (ц.); Объем инвестиций в рисоводство = 6 375 000 (руб.); Издержки связанные с выращиванием риса = 50 000 000 (руб.); Цена риса = 9 (руб./кг.); Стоимость риса = 56 250 000 (руб.); Доход от риса = 6 250 000 (руб.); Общий доход = 51 250 000 (руб.);
Дальнейшее увеличение площади рисовых чеков экономически нецелесообразно. Следовательно, равновесное соотношение площади пастбищ и площади рисовых чеков составляет 7 500 га. и 2 500 га. соответственно.