Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
MxMOIM_CW.doc
Скачиваний:
19
Добавлен:
19.04.2013
Размер:
303.1 Кб
Скачать

Программная реализация модели.

Реализация модели была произведена с помощью ЭВМ, в виде написания программы, производящей поиск решения. В качестве алгоритмического языка программирования был использован 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 га. соответственно.