Изучение взаимно влияющих друг на друга математических параметров

| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: банк курсовых, изложение по русскому
| Добавил(а) на сайт: Сунгатулин.

Все процессы , описанные ранее , нуждаются в математичес- кой формализации. Для пшеницы значимы 3 параметра : общее ко- личество пшеницы в хранилище , ежемесячное изменение массы зерна и количество зерна , ежегодно выставляемое на продажу-
W , (W и WS соответственно. W меняется при прибавлении (W ежемесячно и при вычитании WS ежегодно , в декабре. (W в свою очередь изменяется ежемесячно
, уменьшаясь из-за мышей , а так- же увеличиваясь каждый год в августе , за счёт урожая. WS заново устанавливается также ежегодно , в декабре , самим пользовате- лем. Исключительным событием , прерывающим программу , для
W считается его неположительное значение- хозяева хранилища не проживут без запасов зерна.

Состояние мышиной популяции определяется более сложно.
Начальное количество определяется случайным образом на интер- вале от 1 до 20 и обозначается символом M. Ежемесячное измене- ние количества мышей (М , от которого зависит М , в свою оче- редь определяется естественным приростом. Он описан выше , а математически выглядит следующим образом : если W >= 2M , то
(М за данный месяц равно 1,5М. Если же W60 (C=3C котят, при 20 < M/C < 40
(C=3 или 4 котёнка , при ещё меньшем – (С=0. Естественная смертность определяется общим количеством кошек. При С>=120 ежемесячно умирает С/120 ко- шек , а при меньших значениях С – одна кошка или ни одной.Рас- считать дополнительно необходимое количество мышеловов по- могает предельно допустимое количество мышей – MN. Если
M > MN , то (С = (С + М/30 , а (S = (S – ( М/30 ) * РС , где (S - ежемесячное приращение годового дохода , а РС – цена одной кошки. Если же
М 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 t THEN dt = t ELSE dt = w dw = dw - dt

'КОЛИЧЕСТВО МЫШЕЙ,СЪЕДЕННЫХ ЗА МЕСЯЦ
SELECT CASE INT(m)
CASE IS > 60 * c dm = dm - 40 * c
CASE IS mn THEN GOTO 80
60 dc = dc - c + mnc
70 ds = ds + pc * (c - mnc): GOTO 85
80 dc = dc + INT(m 30) ds = ds - INT(m 30) * pc
85 s = s + ds c = c + dc

'В СЛУЧАЕ ГИБЕЛИ ВСЕХ МЫШЕЙ ПРИХОДИТ ГРУППА МЫШЕЙ С ПОЛЯ
IF INT(m)