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

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); " ";