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

  • Просмотров 3672
  • Скачиваний 207
  • Размер файла 14
    Кб

по времени и по состоя- нию экосистемы. Ну и , разумеется , можно будет брать эту прог- рамму за основу для составления новых программ , решающих другие задачи с взаимовлияющими математическими параметра- ми. Далее я приведу список переменных , использованных в программе : BY – год начала прогнозирования , Y – текущий год прогноза , F – долгосрочность прогноза , лет, MT – текущий месяц прогноза BW – начальный запас зерна , W - общее

количество зерна в хранилище , H – ежегодный урожай пшеницы , DW – ежемесячное изменение общей массы зерна , J – рекомедуемая масса ежемесячно забираемой из хранилища пшеницы , DT – определяемое количество ежемесячно забираемого зерна в зависимости от общей массы пшеницы , Т – реальное количество ежемесячно забираемой пшеницы , WS – масса зерна , продаваемого ежегодно , PW – цена продаваемого килограмма зерна , MN – предельно

допустимое количество мышей в хранилище , DM – ежемесячное изменение популяции мышей , М – общая численность популяции мышей , MNC – минимально допустимое количество кошек , С – общее число кошек и котов в хранилище , DC – ежемесячное изменение популяции кошек и котов РС – цена одной кошки , DS – ежемесячное изменение денежных запасов , S – общий годовой доход , ST – общая сумма денежных средств , обновляющаяся ежегодно , I –

переменная-счётчик , осуществляющая остановку выполнения программы. 4.Листинг программы. 'IMITATION OF <WHEAT-MICE-CATS> ECOSYSTEM DEFDBL G-H, S CLS INPUT "Год начала наблюдений-"; by INPUT "Количество лет наблюдений-"; f INPUT "Начальная масса пшеницы в кг-"; bw INPUT "Урожай пшеницы в кг-"; h PRINT "Сколько кг зерна в месяц забирать?" IF bw < h THEN j = bw / 8 ELSE j = h / 12 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 'КОЛИЧЕСТВО МЫШЕЙ,СЪЕДЕННЫХ ЗА МЕСЯЦ SELECT CASE INT(m)