Главная Полное построение алгоритма [0] [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] [21] [22] [23] [24] [25] [26] [27] [28] [29] [30] [31] [32] [33] [34] [35] [36] [37] [38] [39] [40] [41] [42] [43] [44] [45] [46] [47] [48] [49] [50] [51] [52] [53] [54] [ 55 ] [56] [57] [58] [59] [60] [61] [62] [63] [64] [65] [66] [67] [68] [69] [70] [71] [72] [73] [74] [75] [76] [77] [78] [79] [80] [81] [82] [83] [84] [85] [86] [87] [88] [89] [90] [91] [92] [93] [94] [95] [96] [97] [98] [99] [100] [101] [102] [103] [104] [105] [106] [107] [108] [109] [110] [111] [112] [113] [114] [115] [116] [117] INTEGER FUNCTION DCATS(CATSiMlCEiMONTH» INTE6ER CATS.HICEiMONTH вычисление увеличения или уменьшения ocats. кошки умирают от голода и от старости и приносят лотомство, средняя продолжительность жизни-10 лет. dcats = о IF ( MICE .LT. 25*CATS » DCftTS = DCATS - ((25*CATS-HICE)/50l . случайные числа: когда кошки умирают от старости.. IF ( RANFtO.I .1.т, FLOAT(CATSl/iaO. ) DCATS=DCATS-MAX0(liCATS/12QI IF ( MONTH .NE. 3 .and. MONTH .ne. 9 1 GOTO 20 IF « MICE .GT. 50*CATS 1 DCATS = 0CaTS+3*CATS IF ( MICE .GE, 25*CatS .AND. MICE .LE. SO*CATS ) + DCATS = OCATS + 3«(MICE/2S - CATS) • 20 RETURN END INTEGER FUNCTION DI4ICC (WHEAT.CATSlHlCE) INTEGER WHEAT.CATS.MICE вычисление увеличения или уменьшения DMICE. мыши умирают от старости, их убивают кошки, но они размножаются. все мыши умирают, если нет пшеницы. DMICE = -MicE/ia IF ( NICE .GT, SO*CATS ) DMICE = OMICE-SOtCATS IF ( MICE .LE, 50*CAtS ) DMICF = DM1CE-MINO(30*CATS.30*M1CE/S0) IF 1 WHEAT .GT. 100*MICE ) DMTCE = DMICE+MICE IF I WHEAT .LE. lOOtHICE ) DMICE = DMICE+MINO IHICE.KHEAT/ICO) IF ( WHEAT .EO. 0 ) DMICE = -MICE RETURN INTEGER FUNCTION DWHEAT (MICE.MONTH) INTEGER MICEiMONTH вычисление ежемесячного увеличения или уменьшения dwheat. в июле урожай-2 млн фунтов, люди едят 100 ооо фунтов ежемесячно. мыши едят по 10 фунтов каждая. DWHEAT = О IF < MONTH .EQ. 7 ) DWHEAT г DWHEAT+aOOOOOO DWHEAT = OHHEAT-100000-10»MICF RETURN Рис. 3.6,8. Продолжение новый ЭКСПЕРИМЕНТ HlNCATS= г
год 2
год 3
год 4.
Рис. 3.6.8. Продолжение год 5
Рис. 3.6.8. Окончание [0] [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] [21] [22] [23] [24] [25] [26] [27] [28] [29] [30] [31] [32] [33] [34] [35] [36] [37] [38] [39] [40] [41] [42] [43] [44] [45] [46] [47] [48] [49] [50] [51] [52] [53] [54] [ 55 ] [56] [57] [58] [59] [60] [61] [62] [63] [64] [65] [66] [67] [68] [69] [70] [71] [72] [73] [74] [75] [76] [77] [78] [79] [80] [81] [82] [83] [84] [85] [86] [87] [88] [89] [90] [91] [92] [93] [94] [95] [96] [97] [98] [99] [100] [101] [102] [103] [104] [105] [106] [107] [108] [109] [110] [111] [112] [113] [114] [115] [116] [117] 0.0015 |