z mod 365) = 120) or ((z mod p> 365) = 151) or ((z mod 365) = 181) or ((z mod 365) = 212) or p> ((z mod 365) = 242) or ((z mod 365) = 273) or ((z mod p> 365) = 303) or ((z mod 365) = 334) then p> begin p> tree: = round (tree-g * ttt); {з'їли за місяць} p> tree: = tree + round (tree * (tr/100)); {приріст трави на місяць} p> x: = round (tree * ttt); {травоїдні вмирають від недоїдання} p> if tree <= 0 then p> begin p> key: = true; p> g: = 0; p> m: = 0; p> end p> else p> begin p> if x begin p> repeat p> j: = random (g) +1; p> tg [j]. Done; p> tg [j]. Init (0,0,0,0); p> tt: = tt +1; p> for i: = j +1 to g do p> begin p> x1: = tg [i]. Getx; p> y1: = tg [i]. Gety; p> at1: = tg [i]. Daiage; p> ct1: = tg [i]. Daizwet; p> tg [i]. Done; p> tg [i-1]. Init (x1, y1, at1, ct1); p> tg [i-1]. Show; p> end; p> tg [g]. Done; p> tg [g]. Init (0,0,0,0); p> g: = g-1; p> until x = g p> end; p> end; p> end; p> if g> 0 then tnew; {природна смертність травоїдних} p> if m> 0 then p> begin p> dead; {хижаки їдять травоїдних} p> hnew; {природна смертність хижаків} p> havka; {хижаки вмирають від недоїдання} p> hrod; {народження хижаків} p> end; p> if ((z mod 365) = 180) and (g> 0) and (m> 0) then p> begin p> if random (kata) <> 0 then p> begin p> x: = random (4); p> if x = 0 then p> begin p> x: = random (round (g/50)) +5; p> moveto (320,240); setcolor (Lightred); str (x, s); p> Outtext ('Хвороба травоїдних забрала'); p> Outtext (s); Outtext ('життів'); p> tmor; p> end; p> if x = 1 then p> begin p> x: = random (round (m/40)) +1; p> moveto (320,240); setcolor (Lightred); str (x, s); p> Outtext ('Хвороба хижаків забрала'); p> Outtext (s); Outtext ('життів'); p> hmor; p> end; p> if x = 2 then p> begin p> zasux; p> moveto (320,240); setcolor (Lightred); p> str (tree1, s); Outtext ('Засуха! Загублено'); p> Outtext (s); Outtext ('тонн трави'); p> delay (q); p> end; p> if x = 3 then p> begin p> x: = random (round (g/50)) +5; p> moveto (0,240); setcolor (Lightred); str (x, s); p> Outtext ('Повінь погубило'); Outtext (s); Outtext (' p> травоїдних, '); p> tmor; p> x: = random (round (m/40)) +1; p> str (x, s); Outtext (s); Outtext ('хижаків,'); p> hmor; p> zasux; p> str (tree1, s); Outtext (s); Outtext ('тонн трави'); p> delay (q); p> end; p> delay (q); p> bar (0,240,640,260); p> end; p> end; p> if g> 0 then trod; {народження травоїдних} p> if g> 4000 then break; p> if keypressed then key: = true; p> if (g> 4000) or (g <= 0) or (m <= 0) or (m> 1000) then p> key: = true; p> setcolor (white); p> bar (0,0,640,17); p> moveto (0,0); p> outtext ('Травоїдні Хижаки З'їдено p> Трава Рік '); p> setcolor (ct); moveto (0,10); str (g, s); outtext (s); p> setcolor (ch); moveto (175,10); str (m, s); outtext (s); p> setcolor (red); moveto (300,10); str (tt, s); outtext (s); p> setcolor (green); moveto (400,10); str ((tree), s); outtext (s); p> setcolor (magenta); moveto (510,10); str ((z div 365), s)...
