ellow); p> write ('Середовище проживання'); p> gotoxy (2,2); p> txt (yellow); p> write ('Кількість трави:'); {Кількість встановлювати p> їжі для травоїдних на рік} p> readln (tree); p> gotoxy (2,3); p> write ('Відсоток відновлення:'); p> readln (tr); p> gotoxy (2,4); p> write ('Наявність катастроф:'); p> readln (kata); p> gotoxy (2,5); p> write ('Затримка повідомлень:'); p> readln (q); p> colorwind (3,20,77,25, black, black); p> end; p> {****************************************** *****************} p> procedure info; p> begin p> fon (15); p> colorwind (1,4,70,16, black, Lightblue); p> txt (Green); p> gotoxy (2,2); write ('травоїдних-', g, 'Хижаків-', m); p> str (ttt: 1:2, s); p> gotoxy (2,3); p> write (s, 'т. трави і', ht, 'туш потрібно на прокорм тварин'); p> gotoxy (2,4); p> write ('Max вік травоїдних', v, ', хижаків', w); p> gotoxy (2,5); p> write ('Дітородний вік травоїдних від', tmin, 'до', tmax); p> gotoxy (2,6); p> write ('Дітородний вік хижаків від', hmin, 'до', hmax); p> gotoxy (2,7); p> write ('Кал травоїдних до', tp, ', хижаків до', hp); p> gotoxy (2,8); write ('Трави', tree, 'тонн'); p> str (tr: 1:2, s); p> gotoxy (2,9); write ('Приріст трави на кожен місяць', s, '%'); p> if (kata = 0) or (kata = 1) then s: = 'відсутній' else p> s: = 'присутній'; p> gotoxy (2,10); write ('Ймовірність катаклізмів', s); p> s: = colword (ct); p> gotoxy (2,11); write ('Колір травоїдних', s); p> s: = colword (ch); p> write ('Колір хижаків', s); p> end; p> {****************************************** *****************} p> procedure Gmenu; p> begin p> fon (black); p> clrscr; p> colorwind (1,1,80,4, black, darkgray); p> txt (14); p> gotoxy (5,2); p> write ('S'); p> txt (white); p> write ('tart'); p> txt (yellow); p> write ('O'); p> txt (white); p> write ('ption'); p> txt (yellow); p> write ('Q'); p> txt (white); p> write ('uit'); p> END; p> {****************************************** *****************} p> PROCEDURE Omenu; p> begin p> colorwind (45,3,62,8, black, darkgray); p> hiddencursor; p> txt (14); p> gotoxy (2,2); p> write ('H'); p> txt (white); p> writeln ('erbivorous'); p> txt (yellow); p> gotoxy (2,3); p> write ('B'); p> txt (white); p> writeln ('east of prey'); p> txt (yellow); p> gotoxy (2,4); p> write ('E'); p> txt (white); p> write ('nvironment'); p> end; p> {****************************************** *****************} p> procedure start; p> begin p> randomize; p> gD: = Detect; p> InitGraph (gD, gM,''); p> setfillpattern (pal, black); p> z: = 0; {початок ери} p> tt: = 0; {трупи і з'їдені} p> ini; p> repeat p> key: = false; p> z: = z +1; p> if ((z mod 365) = 0) or ((z mod 365) = 31) or ((z mod 365) = 59) p> or ((z mod 365) = 90) or ((...
