Курсовая работа: Программа эмуляции развития

havka - процесс уничтожения точек массива tr в зависимости от значения переменной tt

tmor - процесс уничтожения случайного количества точек массива tr

hmor - процесс уничтожения случайного количества точек массива hr

zasux - подсчет переменной tree

quit - выход из программы

herb - организация ввода стартовых значений переменных для массива tr

beast - организация ввода стартовых значений переменных для массива hr

env - организация ввода значений переменных для задания переменных tree, tr, kata, q

info - организация информационного окна

gmenu - прорисовка основного меню

omenu - прорисовка меню Option

start - запуск графического режима и запуск основного цикла

komenu - организация меню Option

gkmenu - организация основного меню

3. ЗАКЛЮЧЕНИЕ

Данная программа представляет достаточно грубую модель жизнедеятельности и взаимодействия живых организмов. Однако, даже такое моделирование позволяет проследить основные моменты цикла жизни популяции. При возможном добавлении некоторых дополнительных факторов, моделирование может более приблизиться к реальной ситуации. Такими факторами могут являться:

- Сезонные изменения климата

- “Технология” охоты

- Окружающая флора и фауна

- Влияние жизнедеятельности человека

- Взаимодействие особей внутри популяции

Данная программа может служить в качестве учебного пособия по программированию на языке Pascal.

Приложение 1.

Основная программА

program fauna;

uses mycrt,dos,graph,fauna1,tpcrt;

var

q,x,y,x1,y1,gd,gm,t,i,j,k,AT,at1,ct1,ctp:integer;{общие}

g,v,m,w:integer;{}