Курсовая работа на тему: Постановка задачи. Основная часть. Методика взаимодействия популяций

Введение

gotoxy(2,2);write('Кол-во травоядных не более 3000.');

write(' Корм на месяц в килограммах. ');gotoxy(2,3);

write('Помет - кол-во детенышей. ');write('Цвет вывода от 1

до 15');

write('Травоядные');

write('Кол-во: '); {начальное кол-во травоядных}

write('Корм : ');{кол-во корма в год на одного

травоядного}

write('Помет: '); {рождаемость}

readln(tр);

write('Min детородный: ');

write('Max детородный: ');

write('Max возраст: ');

write('Цвет вывода: ');

read(сt);

procedure beast; {хищники}

writeln('Правила ввода для хищников');

gotoxy(2,2);write('Кол-во хищников не более 1000.');

write(' Корм - кол-во травоядных в год. ');gotoxy(2,3);

write('Помет - кол-во детенышей. ');write('Цвет вывода от 1

до 15');

write('Хищники');

write('Кол-во: ');

write('Корм: ');{начальное кол-во хищников}

write('Помет: ');{рождаемость}

readln(hр);

write('Min детородный: '); {естественная смертность}

write('Max детородный: '); {естественная смертность}

write('Max возраст: '); {естественная смертность}

write('Цвет вывода: ');

read(сh);

procedure env ; {среда обитания}

writeln('Правила ввода для среды');

gotoxy(2,2);write('Кол-во травы не менее 1000.');

write('Процент восстановления любой.');gotoxy(2,3);

write('Катастрофы: 0 или 1 - нет, 2 и более-есть.');

write('Задержка сообщений в мс. Рекомендуется не менее

write('Среда обитания');

write('Кол-во травы: ');{Кол-во востанавливаемой

пищи для травоядных в год}

write('Процент восстановления: ');

write('Наличие катастроф: ');

write('Задержка сообщений: ');

gotoxy(2,2);write('Травоядных-',g,' Хищников-',m);

write(s,' т. травы и ',ht,' туш нужно на прокорм животных');

write('Max возраст травоядных ',v,', хищников ',w);

write('Детородный возраст травоядных от ',tmin,' до ',tmax);

write('Детородный возраст хищников от ',hmin,' до ',hmax);

write('Помет травоядных до ',tр,', хищников до ',hр);

gotoxy(2,8);write('Травы ',tree,' тонн ');

gotoxy(2,9);write('Прирост травы на каждый месяц ',s,'%');

if (kata=0) оr (kata=1) then s:='отсутствует' else

s:='присутствует';

gotoxy(2,10);write('Вероятность катаклизмов ',s);

s:=colword(сt);

gotoxy(2,11);write('Цвет травоядных ',s);

s:=colword(сh);

write(' Цвет хищников ',s);

write('Н');

write('В');

InitGraph(gD,gМ,'');

z:=0;{начало эры}

tt:=0; {трупы и съеденные}

tree:=round(tree-g*ttt);{съели за месяц}

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

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

if g>0 then tnew;{естественная смертность травоядных}

dead;{хищники едят травоядных}

hnew;{естественная смертность хищников}

havka;{хищники умирают от недоедания}

hrod;{рождение хищников}

Outtext('Болезнь травоядных унесла ');

Outtext(s);Outtext(' жизней ');

Outtext('Болезнь хищников унесла ');

Outtext(s);Outtext(' жизней');

str(tree1,s);Outtext('Засуха! Потеряно ');

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

Outtext('Наводнение погубило ');Outtext(s);Outtext('

травоядных, ');

str(x,s);Outtext(s);Outtext(' хищников, ');

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

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

outtext('Травоядные Хищники Съедено

Трава Год');

setcolor(сt);moveto(0,10);str(g,s);outtext(s);

setcolor(сh);moveto(175,10);str(m,s);outtext(s);

outtext(mes(z));outtext(' ');outtext(s);outtext(' года');

if (key='h') оr (key='Н') then

if (key='В') оr (key='b') then

if(g>0)and(m>0)and(ttt>0)and(tр>0)and(tmin>0)and(tmax>0)

and(сt>0)and(ht>0)and(hр>0)and(hmin>0)and(hmax>0)and

(Сh>0)and(tree>0)and (tr>0)and(kata>0)then

g:=1200;{травоядные кол-во}

v:=30;{возраст травоядного}

m:=200;{хищники кол-во}

w:=25;{возраст хищника}

сt:=yellow;сh:=red;

tр:=3;hр:=7;{детородность}

Оглавление

- Введение.......................................3

- Основная часть

- Методика взаимодействия популяций

- Описание программы

- Описание библиотеки Fauna1

- Описание библиотеки Mycrt

- Описание основного тела программы

- 2. заключение..................................9

- Приложение 1. Основная программа

- Приложение 2. Библиотека Fauna1

- Приложение 3. Библиотека Mycrt

- Приложение 4. Инструкция пользователя