tg [i-1]. show;
end;
tg [g]. done;
tg [g]. init (0,0,0,0);
g: = g-1;
until y = g;
end;
end;
{********************************************** *************}
-16 - br/>
procedure hmor; {мор хижаків}
begin
y: = m-x;
if x> 0 then
begin
repeat
j: = random (m) +1;
hr [j]. done;
hr [j]. init (0,0,0,0);
for i: = j +1 to m do
begin
x1: = hr [i]. getx;
y1: = hr [i]. gety;
at1: = hr [i]. daiage;
ct1: = hr [i]. daizwet;
hr [i]. done;
hr [i-1]. init (x1, y1, at1, ct1);
hr [i-1]. show;
end;
hr [m]. done;
hr [m]. init (0,0,0,0);
m: = m-1;
until m = y;
end;
end;
{********************************************** *************}
procedure zasux; {посуха}
begin
tree: = tree - Random (round (tree/10));
end;
{********************************************** *************}
procedure quit;
begin
window (1,1,80,25);
fon (black);
clrscr;
GOTOXY (1,24);
txt (White);
WRITELN (' --------------------------------------------------
---------------------------- '); p> txt (yellow);
WRITELN (' Antony Sokolov | FidoNet 2:5078/20.4 AKA
2:5078/20.666 AKA 2:5078/22.666 ');
txt (White);
WRITELN (' --------------------------------------------------
---------------------------- '); p> end;
{********************************************** *************}
procedure herb; {травоїдні}
begin
colorwind (3,20,77,25, black, yellow);
gotoxy (32,1);
writeln ('Правила введення для травоїдних');
gotoxy (2,2); write ('Кількість травоїдних не більше 3000.');
write ('Корм на місяць в кілограмах.'); gotoxy (2,3);
-17 - br/>
write ('Кал - кількість дитинчат.'); write ('Колір висновку від 1
до 15 ');
colorwind (40,10,65,19, black, green);
gotoxy (6,1);
txt (Yellow);
write ('Травоїдні');
gotoxy (2,2);
write ('Кількість:'); {початкове кол-во травоїдних}
readln (g);
txt (yellow);
gotoxy (2,3);
write ('Корм:'); {кол-во корму в рік на одного
травоїдного}
readln (ttt);
ttt: = ttt/1000;
gotoxy (2,4);
write ('Кал:'); {народжуваність}
readln (tp);
gotoxy (2,5);
write ('Min дітородний:');
read (tmin);
gotoxy (2,6);
write ('Max дітородний:');
read (tmax);
gotoxy (2,7);
write ('Max возрaст:');
read ...
