9;їдених ЗА МІСЯЦЬ
SELECT CASE INT (m)
CASE IS> 60 * c
dm = dm - 40 * c
CASE IS <= 60 * c
dm = dm - 15 * c
CASE 0
dm = dm + 0
END SELECT
'за кількостю ЗЕРНА ВИЗНАЧАЄТЬСЯ ПРИРІСТ МИШЕЙ
IF m <= w/2 THEN dm = dm + INT (1.5 * m) ELSE dm = dm + INT (m/10)
'ВИЗНАЧАЄТЬСЯ НОВЕ КІЛЬКІСТЬ МИШЕЙ
m = m + dm
'природної смертності КОТІВ
dc = 0
IF c> 120 THEN dc = dc - СINT (c/120) ELSE dc = dc - CINT (RND (1))
IF c <0 THEN c = 0
'ПРИРІСТ КІЛЬКОСТІ КОТІВ
SELECT CASE mt
CASE 3, 9
GOSUB 1000
END SELECT
'ПРОДАЖ КОТІВ за непотрібні
IF m> 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) <= 0 THEN m = INT (RND (1) * 20 + 1)
'ВИЗНАЧЕННЯ КІЛЬКОСТІ ПШЕНИЦІ
w = w + dw
IF INT (w) <0 THEN w = 0
IF INT (w) <= 0 THEN GOTO 3000
'ІНФОРМАЦІЯ, виведених на екран
PRINT "y ="; by + y; "";
PRINT "mt ="; mt; "";
PRINT "w ="; INT (w); "";
PRINT "dw ="; INT (dw); "";
PRINT "m ="; INT (m); "";
PRINT "dm ="; INT (dm); "";
PRINT "c ="; INT (c); "";
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); "$ "br/>
'РЕАЛІЗАЦІЯ ЗЕРНА З УРАХУВАННЯМ РІЧНИХ ВИТРАТ
INPUT "Скільки кг пшениці продати"; ws
'РОЗРАХУНОК ПРИБУТКУ ВІД РЕАЛІЗАЦІЇ ЗЕРНА І надлишків КОТІВ
dw = dw - ws
w = w + dw
ds = ws * pw
s = s + ds
st = st + s
'РІЧНИЙ БАЛАНС
PRINT "Річний дохід з продажу зерна ="; pw * ws; "$ "p> PRINT "Загальний річний дохід ="; INT (s); "$"
PRINT "Загальна накопичена сума ="; INT (st); "$"
IF st <0 THEN GOTO 3000
RETURN
3000 END
5.Тестірованіе програми.
У зв'язку з тим, що програму протестува...
