Теми рефератів
> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти
Реферати, твори, дипломи, практика » Курсовые проекты » Програма емуляції розвитку популяцій тварин

Реферат Програма емуляції розвитку популяцій тварин





(z mod 365) = 181) or ((z mod 365) = 212) or

((Z mod 365) = 242) or ((z mod 365) = 273) or ((z mod

365) = 303) or ((z mod 365) = 334) then

begin

tree: = round (tree-g * ttt); {з'їли за місяць}

tree: = tree + round (tree * (tr/100)); {приріст трави на місяць}

x: = round (tree * ttt); {травоїдні вмирають від недоїдання}

if tree <= 0 then

begin

key: = true;

g: = 0;

m: = 0;

end

else

begin

if x

begin

repeat

j: = random (g) +1;

tg [j]. done;

tg [j]. init (0,0,0,0);

tt: = tt +1;

for i: = j +1 to g do

begin

x1: = tg [i]. getx;

y1: = tg [i]. gety;

at1: = tg [i]. daiage;

ct1: = tg [i]. daizwet;

tg [i]. done;

tg [i-1]. init (x1, y1, at1, ct1);

tg [i-1]. show;

end;

tg [g]. done;

-21 - br/>

tg [g]. init (0,0,0,0);

g: = g-1;

until x = g

end;

end;

end;

if g> 0 then tnew; {природна смертність травоїдних}

if m> 0 then

begin

dead; {хижаки їдять травоїдних}

hnew; {природна смертність хижаків}

havka; {хижаки вмирають від недоїдання}

hrod; {народження хижаків}

end;

if ((z mod 365) = 180) and (g> 0) and (m> 0) then

begin

if random (kata) <> 0 then

begin

x: = random (4);

if x = 0 then

begin

x: = random (round (g/50)) +5;

moveto (320,240); setcolor (Lightred); str (x, s);

Outtext ('Хвороба травоїдних забрала');

Outtext (s); Outtext (' життів ');

tmor;

end;

if x = 1 then

begin

x: = random (round (m/40)) +1;

moveto (320,240); setcolor (Lightred); str (x, s);

Outtext ('Хвороба хижаків забрала');

Outtext (s); Outtext (' життів ');

hmor;

end;

if x = 2 then

begin

zasux;

moveto (320,240); setcolor (Lightred);

str (tree1, s); Outte xt ('Засуха! Загублено');

Outtext (s); Outtext ('тонн трави');

delay (q);

end;

if x = 3 then

begin

x: = random (round (g/50)) +5;

moveto (0,240); setcolor (Lightred); str (x, s);

Outtext ('Повінь погубило'); Outtext (s); Outtext ('

травоїдних, '); p> tmor;

x: = random (round (m/40)) +1;

str (x, s); Outtext (s); Outtext ('хижаків,');

hmor;

zasux;

str (tree1, s); Outtext (s); Outtext ('тонн трави');

-22 - br/>

delay (q);

end;

delay (q);

bar (0,240,640,260);

end;

end;

if g> 0 then trod; {народження травоїдних}

if ...


Назад | сторінка 11 з 15 | Наступна сторінка





Схожі реферати:

  • Реферат на тему: Creation of control system by a personnel how to begin with a zero
  • Реферат на тему: Зернові культури та кормові трави
  • Реферат на тему: Вплив скошування трави на сінокоси і пасовища
  • Реферат на тему: Заготівля пресованого сіна. Трави в польових сівозмінах
  • Реферат на тему: Українські космогонічні легенди та перекази про Різні трави та квіти