Читайте данную работу прямо на сайте или скачайте
Программа эмуляции развития популяций животных
1.1.
1.2.
1.3.
1.4.
1.5.
"Жизнь", но с некоторыми изменениями в начальных словиях.
две популяции: хищники и травоядные, которые взаимодействовали
бы друг с другом путем поедания травоядных хищниками.
параметры:
-
так, что хищники учитываются один раз в год, травоядные двенадцать раз в год.
-
-
- g,m типа integer для задания начального количества животных
-
- ct,ch типа shortint для задания цвета отображаемых точек
- tmin,tmax,hmin,hmax,tp,hp типа integer для задания факторова
- tt типа integer для чета мерших и съеденных травоядных
- kata типа integer для задания вероятности природных
- ht типа integer для задания количества травоядных нужных
- типа real для задания количества травы нужных
- tr типа real для задания процента восстановления количеств
- tree,tree1 типа longint для задания и модификации
- z типа longint для счетчика времени
- key типа boolean для отслеживания нажатия клавиш
- s,ss типа string размером в семнадцать символов для вывод
- palа
- tg массив объемом 4400 точек типа tosob для хранения
- hr массив объемом 1350 точек типа tosob для хранения
2.3а
Задействованы функции:
также процедура инициализации объекта init
Тип Tosob имеет четыре параметра:
Задействованы функции:
процедуры:
Процедуры:
Функции:
Данная программа может служить в качестве учебного пособия по программированию на языке
program fauna;
uses mycrt,dos,graph,fauna1,tpcrt;
{***********************************************************}
procedure ini;
begin
end;
{***********************************************************}
procedure tnew;
begin
end;
{***********************************************************}
procedure trod;
begin
end;
{***********************************************************}
procedure hnew;
begin
end;
{**********************************************************}
procedure hrod;
begin
end;
{***********************************************************}
procedure dead;{хищники едеят в радиусе 1 пиксель}
begin
end;
{**********************************************************}
procedure havka;
begin
end;
{***********************************************************}
procedure tmor;{мор травоядных}
begin
end;
{***********************************************************}
procedure hmor;{мор хищников}
begin
end;
{***********************************************************}
procedure zasux;{засуха}
begin
end;
{***********************************************************}
procedure quit;
begin
end;
{***********************************************************}
procedure herb;{травоядные}
begin
end;
{***********************************************************}
procedure beast; {хищники}
begin
end;
{***********************************************************}
procedure envа
begin
end;
{***********************************************************}
procedure info;
begin
end;
{***********************************************************}
procedure Gmenu;
begin
END;
{***********************************************************}
PROCEDURE Omenu;
begin
end;
{***********************************************************}
procedure start;
begin
end;
{***********************************************************}
procedure komenu;
ar key:char;
begin
end;
{***********************************************************}
PROCEDURE GKMENU;
ar key2:char;
begin
end;
{***********************************************************}
{Body program}
begin
end.
{Init object}
unit fauna1;
{metod Tposition}
Implementation
End.
unit Mycrt;
interface
uses tpcrt,dos;
procedure fon(x:byte);
procedure txt(col:byte);
procedure ramka(x1,y1,x2,y2:integer);
procedure colorwind(v1,v2,v3,v4,fon,text:byte);
FUNCTION COLWORD(COL:BYTE):STRING;
function mes(z:longint):string;
implementation
{***********************************************************}
function mes;
ar col:string;
x:integer;
begin
end;
{***********************************************************}
FUNCTION COLWORD;
AR COLO:STRING;
BEGIN
END;
{***********************************************************}
procedure fon;
{***********************************************************}
procedure txt;
{***********************************************************}
procedure ramka;а
{***********************************************************}
procedure colorwind;
{***********************************************************}
begin
end.
должен находится в одном
При нажатии клавиши
любого места программы.