******************************* *****************} p> procedure herb; {травоїдні} p> begin p> colorwind (3,20,77,25, black, yellow); p> gotoxy (32,1); p> writeln ('Правила введення для травоїдних'); p> gotoxy (2,2); write ('Кількість травоїдних не більше 3000.'); p> write ('Корм на місяць в кілограмах.'); Gotoxy (2,3); p> write ('Кал - кількість дитинчат.'); Write ('Колір висновку від 1 p> до 15 '); p> colorwind (40,10,65,19, black, green); p> gotoxy (6,1); p> txt (Yellow); p> write ('Травоїдні'); p> gotoxy (2,2); p> write ('Кількість:'); {початкове кол-во травоїдних} p> readln (g); p> txt (yellow); p> gotoxy (2,3); p> write ('Корм:'); {кол-во корму в рік на одного p> травоїдного} p> readln (ttt); p> ttt: = ttt/1000; p> gotoxy (2,4); p> write ('Кал:'); {народжуваність} p> readln (tp); p> gotoxy (2,5); p> write ('Min дітородний:'); p> read (tmin); p> gotoxy (2,6); p> write ('Max дітородний:'); p> read (tmax); p> gotoxy (2,7); p> write ('Max возрaст:'); p> read (v); p> gotoxy (2,8); p> write ('Колір виводу:'); p> read (ct); p> colorwind (3,20,77,25, black, black); p> end; p> {****************************************** *****************} p> procedure beast; {хижаки} p> begin p> colorwind (3,20,77,25, black, yellow); p> gotoxy (32,1); p> writeln ('Правила введення для хижаків'); p> gotoxy (2,2); write ('Кількість хижаків не більше 1000.'); p> write ('Корм - кількість травоїдних на рік.'); Gotoxy (2,3); p> write ('Кал - кількість дитинчат.'); Write ('Колір висновку від 1 p> до 15 '); p> colorwind (40,10,65,19, black, red); p> gotoxy (8,1); p> txt (Yellow); p> write ('Хижаки'); p> gotoxy (2,2); p> txt (yellow); p> write ('Кількість:'); p> readln (m); p> gotoxy (2,3); p> write ('Корм:'); {початкове кол-во хижаків} p> readln (ht); p> gotoxy (2,4); p> write ('Кал:'); {народжуваність} p> -18 - p> p> p> readln (hp); p> gotoxy (2,5); p> write ('Min дітородний:'); {природна смертність} p> read (hmin); p> gotoxy (2,6); p> write ('Max дітородний:'); {природна смертність} p> read (hmax); p> gotoxy (2,7); p> write ('Max вік:'); {природна смертність} p> read (w); p> gotoxy (2,8); p> write ('Колір виводу:'); p> read (ch); p> colorwind (3,20,77,25, black, black); p> end; p> {****************************************** *****************} p> procedure env; {середовище проживання} p> begin p> colorwind (3,20,77,25, black, yellow); p> gotoxy (32,1); p> writeln ('Правила введення для середовища'); p> gotoxy (2,2); write ('Кількість трави не менше 1000.'); p> write ('Відсоток відновлення будь-який.'); Gotoxy (2,3); p> write ('Катастрофи: 0 або 1 - ні, 2 і більш-є.'); p> gotoxy (2,4); p> write ('Затримка повідомлень у мс. Рекомендується не менше p> 1000 '); p> colorwind (40,10,75,17, black, Magenta); p> gotoxy (13,1); p> txt (Y...
