чно забирається з сховища пшениці,
DT - Обумовлений кількість щомісяця забираного зерна в
залежності від загальної маси пшениці,
Т - реальна кількість щомісяця забирається пшениці,
WS - Маса зерна, продаваного щорічно,
PW - Ціна продаваного кілограма зерна,
MN - гранично допустима кількість мишей у сховище,
DM - Щомісячну зміну популяції мишей,
М - загальна чисельність популяції мишей,
MNC - мінімально допустима кількість кішок,
З - загальна кількість кішок і котів у сховище,
DC - щомісячну зміну популяції кішок і котів
РС - ціна однієї кішки,
DS - щомісячне зміна грошових запасів,
S - загальний річний дохід,
ST - Загальна сума грошових коштів, оновлюється щороку,
I - Змінна-лічильник, здійснює зупинку виконання
програми.
4.Лістінг програми.
'IMITATION OF ECOSYSTEM
DEFDBL G-H, S
CLS
INPUT "Рік початку спостережень-"; by
INPUT "Кількість років спостережень-"; f
INPUT "Початкова маса пшениці в кг-"; bw
INPUT "Урожай пшениці в кг-"; h
PRINT "Скільки кг зерна в місяць забирати?"
IF bw
PRINT "(Бажано не брати більше"; INT (j); "кг)"
INPUT t
INPUT "Ціна однієї кішки в $ -"; pc
INPUT "Мінімально допустима кількість кішок"; mnc
INPUT "Гранично допустима кількість мишей-"; mn
PRINT
PRINT "(Усі дані наводяться на кінець поточного місяця)."
PRINT "YEAR =, MONTH =, WHEAT =, MICE =, CATS =, DWHEAT =, DMICE =, DCATS ="
PRINT "************************************************ ******** "
st = 0: w = bw: m = INT (RND (1) * 20 + 1): y = 0: mt = 0: c = mnc
50 RANDOMIZE TIMER
mt = mt + 1
IF mt> 12 THEN s = 0 AND ws = 0
ds = 0
IF mt> 12 THEN y = y + 1
IF y> f THEN END
'ПЕРЕРИВАННЯ ПРОГРАМИ
IF mt> 12 THEN PRINT "+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + "
IF mt> 12 THEN INPUT "Якщо введете 999 то програма зупиниться-"; i
IF i = 999 THEN GOTO 3000
IF mt> 12 THEN mt = 1
IF mt = 1 THEN INPUT "Введіть ціну кілограма пшениці в $ -"; pw
'МІСЯЦЬ ЗБОРУ ВРОЖАЮ ЧИ НІ
dw = 0
IF mt = 8 THEN dw = dw + h ELSE dw = dw + 0
'ПРИРОДНА СМЕРТНІСТЬ МИШЕЙ
dm = 0
dm = dm - 1 * INT (m/12)
'ВИЗНАЧЕННЯ КОЛ-ВА ПШЕНИЦІ за вирахуванням з'їдять. Мишами
dw = dw - 2 * INT (m)
IF w <= 0 THEN END
'СКІЛЬКИ ПШЕНИЦІ забиратися в МІСЯЦЬ
IF w> t THEN dt = t ELSE dt = w
dw = dw - dt
'КІЛЬКІСТЬ МИШЕЙ, з...
