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

PRINT "dc="; INT(dc); " ";

PRINT "ds="; ds

'СОБЫТИЯ ДЕКАБРЯ

IF mt = 12 THEN GOSUB 2500

GOTO 50

'ПРИРОСТ КОШЕК

1000 SELECT CASE INT(m)

CASE IS > 60 * c

dc = dc + 3 * c

CASE IS < 20

dc = dc + 0

CASE 0

dc = dc - .8 * c

CASE ELSE

dc = dc + СINT(RND(1)) + 3

END SELECT

RETURN

'СОБЫТИЯ ДЕКАБРЯ

2500 PRINT "*********************************************************"

'ОПРЕДЕЛЕНИЕ ГОДОВЫХ РАСХОДОВ НА КОШЕК

PRINT "Годовой доход от продажи кошек="; INT(s); "$ "

'РЕАЛИЗАЦИЯ ЗЕРНА С УЧЁТОМ ГОДОВЫХ РАСХОДОВ

INPUT "Сколько кг пшеницы продать"; ws

'РАСЧЁТ ПРИБЫЛИ ОТ РЕАЛИЗАЦИИ ЗЕРНА И ИЗЛИШКА КОШЕК

dw = dw - ws

w = w + dw

ds = ws * pw

s = s + ds

st = st + s