Реферат: Программа эмуляции развития популяций животных

<span Courier New"; mso-bidi-font-family:«Times New Roman»">               Институт Переподготовки Кадров

<span Courier New"; mso-bidi-font-family:«Times New Roman»">    Уральского Государственного Технического Университета

<span Courier New"; mso-bidi-font-family:«Times New Roman»">

<span Courier New"; mso-bidi-font-family:«Times New Roman»">

<span Courier New"; mso-bidi-font-family:«Times New Roman»">             Кафедра микропроцессорной техники

<span Courier New"; mso-bidi-font-family:«Times New Roman»">

<span Courier New"; mso-bidi-font-family:«Times New Roman»">

<span Courier New"; mso-bidi-font-family:«Times New Roman»">

<span Courier New"; mso-bidi-font-family:«Times New Roman»">

<span Courier New"; mso-bidi-font-family:«Times New Roman»">                                Оценка работы

<span Courier New"; mso-bidi-font-family:«Times New Roman»">

<span Courier New"; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">

<span Courier New"; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">

<span Courier New"; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">

<span Courier New"; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">

<span Courier New"; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">

<span Courier New"; mso-bidi-font-family:«Times New Roman»">                               Члены комиссии

<span Courier New"; mso-bidi-font-family:«Times New Roman»">

<span Courier New"; mso-bidi-font-family:«Times New Roman»">

<span Courier New"; mso-bidi-font-family:«Times New Roman»">       ПРОГРАММА ЭМУЛЯЦИИ РАЗВИТИЯ 

<span Courier New"; mso-bidi-font-family:«Times New Roman»">            ПОПУЛЯЦИЙ ЖИВОТНЫХ

<span Courier New"; mso-bidi-font-family:«Times New Roman»">

<span Courier New"; mso-bidi-font-family:«Times New Roman»">

<span Courier New"; mso-bidi-font-family:«Times New Roman»">

<span Courier New"; mso-bidi-font-family:«Times New Roman»">

<span Courier New"; mso-bidi-font-family:«Times New Roman»">                       Курсовая работа

<span Courier New"; mso-bidi-font-family:«Times New Roman»">

<span Courier New"; mso-bidi-font-family:«Times New Roman»">

<span Courier New"; mso-bidi-font-family:«Times New Roman»">                    Пояснительная записка

<span Courier New"; mso-bidi-font-family:«Times New Roman»">

<span Courier New"; mso-bidi-font-family:«Times New Roman»">

<span Courier New"; mso-bidi-font-family:«Times New Roman»">

<span Courier New"; mso-bidi-font-family:«Times New Roman»">

<span Courier New"; mso-bidi-font-family:«Times New Roman»">

<span Courier New"; mso-bidi-font-family:«Times New Roman»">

<span Courier New"; mso-bidi-font-family:«Times New Roman»">

<span Courier New"; mso-bidi-font-family:«Times New Roman»">        Руководитель

<span Courier New"; mso-bidi-font-family:«Times New Roman»">        Доцент                           С.С.Соколов

<span Courier New"; mso-bidi-font-family:«Times New Roman»">

<span Courier New"; mso-bidi-font-family:«Times New Roman»">

<span Courier New"; mso-bidi-font-family:«Times New Roman»">

<span Courier New"; mso-bidi-font-family:«Times New Roman»">

<span Courier New"; mso-bidi-font-family:«Times New Roman»">

<span Courier New"; mso-bidi-font-family:«Times New Roman»">        Слушатель

<span Courier New"; mso-bidi-font-family:«Times New Roman»">        Группа СП-913                    А.А.Соколов

<span Courier New"; mso-bidi-font-family:«Times New Roman»">

<span Courier New"; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">

<span Courier New"; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">

<span Courier New"; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">

<span Courier New"; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">

<span Courier New"; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">

<span Courier New"; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">

<span Courier New"; mso-bidi-font-family:«Times New Roman»">                        ЕКАТЕРИНБУРГ

<span Courier New"; mso-bidi-font-family:«Times New Roman»">                            1997

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">                        СОДЕРЖАНИЕ

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">           ПОСТАНОВКАЗАДАЧИ..............................-

<span Courier New";mso-bidi-font-family: «Times New Roman»;mso-ansi-language:EN-US">

<span Courier New";mso-bidi-font-family:«Times New Roman»">           ВВЕДЕНИЕ.......................................3

<span Courier New";mso-bidi-font-family:«Times New Roman»">          

<span Courier New"; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">1. <span Courier New"; mso-bidi-font-family:«Times New Roman»">ОСНОВНАЯЧАСТЬ..............................4<span Courier New";mso-bidi-font-family: «Times New Roman»;mso-ansi-language:EN-US">

<span Courier New";mso-fareast-font-family: «Courier New»;text-transform:uppercase">1.1.

<span Courier New"; mso-bidi-font-family:«Times New Roman»;text-transform:uppercase">Методикавзаимодействия популяций.........4

<span Courier New";mso-fareast-font-family: «Courier New»;text-transform:uppercase">1.2.

<span Courier New"; mso-bidi-font-family:«Times New Roman»;text-transform:uppercase">Описаниепрограммы........................5

<span Courier New";mso-fareast-font-family: «Courier New»;text-transform:uppercase">1.3.

<span Courier New"; mso-bidi-font-family:«Times New Roman»;text-transform:uppercase">Описаниебиблиотеки Fauna1 ...............6

<span Courier New";mso-fareast-font-family: «Courier New»;text-transform:uppercase">1.4.

<span Courier New"; mso-bidi-font-family:«Times New Roman»;text-transform:uppercase">Описаниебиблиотеки Mycrt ................7

<span Courier New";mso-fareast-font-family: «Courier New»;text-transform:uppercase">1.5.

<span Courier New"; mso-bidi-font-family:«Times New Roman»;text-transform:uppercase">Описаниеосновного тела программы.........8

<span Courier New";mso-bidi-font-family:«Times New Roman»">           2.ЗАКЛЮЧЕНИЕ..................................9

<span Courier New";mso-bidi-font-family:«Times New Roman»;text-transform: uppercase">           Приложение 1.Основная программа...............10

<span Courier New";mso-bidi-font-family:«Times New Roman»;text-transform: uppercase">           Приложение 2.Библиотека Fauna1................24

<span Courier New";mso-bidi-font-family:«Times New Roman»;text-transform: uppercase">           Приложение 3. Библиотека Mycrt.................26       

<span Courier New";mso-bidi-font-family:«Times New Roman»;text-transform: uppercase">           Приложение 4.Инструкция пользователя..........28

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">

<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">

<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">

<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">

<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">

<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">

<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">

<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">

<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">

<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">

<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">

<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">

<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">

<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">

<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">

<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">                           -3-

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">                     1.  ВВЕДЕНИЕ.

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">     Ради интереса было дано задание написатьпрограмму типа 

<span Courier New";mso-bidi-font-family:«Times New Roman»">«Жизнь»,но с некоторыми изменениями в начальных условиях.

<span Courier New";mso-bidi-font-family:«Times New Roman»">     Условия были таковы, что в эмуляции должныучаствовать

<span Courier New";mso-bidi-font-family:«Times New Roman»">двепопуляции: хищники и травоядные, которые взаимодействовали

<span Courier New";mso-bidi-font-family:«Times New Roman»">бы друг сдругом путем поедания травоядных хищниками.

<span Courier New";mso-bidi-font-family:«Times New Roman»">     В процессе разработки программы быливведены дополнительные

<span Courier New";mso-bidi-font-family:«Times New Roman»">параметры:

<span Courier New";mso-bidi-font-family:«Times New Roman»">     — Возраст животных

<span Courier New";mso-bidi-font-family:«Times New Roman»">     — Минимальный и максимальныйрепродуктивный возраст

<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US"> 

<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">      

<span Courier New"; mso-bidi-font-family:«Times New Roman»">животных

<span Courier New";mso-bidi-font-family:«Times New Roman»">     — Количество пищи нужный животным дляподдержания жизни

<span Courier New";mso-bidi-font-family:«Times New Roman»">     — Количество травы

<span Courier New";mso-bidi-font-family:«Times New Roman»">     — Процент восстановления травы

<span Courier New"; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">-

<span Courier New"; mso-bidi-font-family:«Times New Roman»">Вероятность природных катаклизмоввлияющих на<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US"> 

<span Courier New"; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US"> 

<span Courier New";mso-bidi-font-family:«Times New Roman»">популяцииживотных

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">

<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">

<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">

<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">

<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">

<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">

<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">

<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">

<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">

<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">

<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">

<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">

<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">

<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">

<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">

<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">

<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">

<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">

<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">

<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">

<span Courier New";mso-bidi-font-family:«Times New Roman»">                           -4-

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">                2.  ОСНОВНАЯ  ЧАСТЬ.

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»; text-transform:uppercase;mso-ansi-language:EN-US"> 

<span Courier New";mso-bidi-font-family:«Times New Roman»; text-transform:uppercase">      2.1 Методикавзаимодействия популяций.

<span Courier New";mso-bidi-font-family:«Times New Roman»">                  

<span Courier New";mso-bidi-font-family:«Times New Roman»">     Методика взаимодействий хищника итравоядного заключается в том,

<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US"> <span Courier New";mso-bidi-font-family:«Times New Roman»">что ихищники, и травоядные представлены в виде точек, которые передвигаются поэкрану с шагом в один пиксель. При этом заданно<span Courier New";mso-bidi-font-family: «Times New Roman»;mso-ansi-language:EN-US"> <span Courier New";mso-bidi-font-family:«Times New Roman»">условие,если в радиусе один пиксель от точки принадлежащей хищнику<span Courier New"; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US"> <span Courier New"; mso-bidi-font-family:«Times New Roman»">появляется точка принадлежащаятравоядному, то считается, что хищник<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US"> <span Courier New";mso-bidi-font-family:«Times New Roman»">съелтравоядного.

<span Courier New";mso-bidi-font-family:«Times New Roman»">     Способ передвижения точек на экране былорганизован по алгоритму случайного блуждания, т.е. передвижение по осям Х и

<span Courier New"; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">Y<span Courier New"; mso-bidi-font-family:«Times New Roman»"> с шагом в один пиксель выбираетсяслучайным образом.

<span Courier New";mso-bidi-font-family:«Times New Roman»">     Умершие своей жизнью травоядные считаются,как съевшиеся хищниками.

<span Courier New";mso-bidi-font-family:«Times New Roman»">     При недоедании обеими популяциями, особиумирают в процессе уменьшения возраста, т.е. чем больше возраст животного, тембольше вероятность погибнуть от голода. Из-за больших промежуточных расчетовучет по недоеданию был выбран

<span Courier New";mso-bidi-font-family:«Times New Roman»">так, чтохищники учитываются один раз в год, а травоядные двенадцать раз в год.

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">                           -5-

<span Courier New";mso-bidi-font-family:«Times New Roman»;text-transform: uppercase">

<span Courier New";mso-bidi-font-family:«Times New Roman»;text-transform: uppercase">                 2.2 Описаниепрограммы.

<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">

<span Courier New";mso-bidi-font-family:«Times New Roman»">     Данная программа написана с использованиемобъектно-ориентированного языка BorlandPascal 7.1 и построена на обработке массивов типа tosob описанного вобъектном модуле fauna1. Этот типимеет следующие параметры:

<span Courier New";mso-bidi-font-family:«Times New Roman»">  x   — расположение по координате Х экрана

<span Courier New";mso-bidi-font-family:«Times New Roman»">  y   — расположение по координате Y экрана

<span Courier New";mso-bidi-font-family:«Times New Roman»">  age- возраст точки

<span Courier New";mso-bidi-font-family:«Times New Roman»">  col- цвет вывода на экран

<span Courier New";mso-bidi-font-family:«Times New Roman»">       Программа обеспечивает следующиеоперации:

<span Courier New";mso-bidi-font-family:«Times New Roman»">     — Задание параметров популяции травоядных

<span Courier New";mso-bidi-font-family:«Times New Roman»">     — Задание параметров популяции хищников

<span Courier New";mso-bidi-font-family:«Times New Roman»">     — Задание параметров окружающей среды

<span Courier New";mso-bidi-font-family:«Times New Roman»">     — Просмотр взаимодействия животных вграфическом режиме

<span Courier New";mso-bidi-font-family:«Times New Roman»">     — Индикация результатов по выходу изрежима просмотра

<span Courier New";mso-bidi-font-family:«Times New Roman»">       взаимодействия животных

<span Courier New";mso-bidi-font-family:«Times New Roman»">     — Выход из программы

<span Courier New";mso-bidi-font-family:«Times New Roman»">      При помощи  зарезервированного  слова  «uses» к программеподключается стандартные библиотечные модули TPCRT, GRAPH, DOS и библиотечные модули написанныепрограммистом

<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">-<span Courier New";mso-bidi-font-family:«Times New Roman»">разработчикомMYCRT и FAUNA1.

<span Courier New";mso-bidi-font-family:«Times New Roman»">     В разделе описания констант и переменныхбыли объявленны следующие переменные:

<span Courier New";mso-bidi-font-family: «Times New Roman»;mso-ansi-language:EN-US">

<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">-

<span Courier New"; mso-bidi-font-family:«Times New Roman»">gd,gm<span Courier New";mso-bidi-font-family: «Times New Roman»"> типа integer дляинициализации графики<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">

<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">-

<span Courier New"; mso-bidi-font-family:«Times New Roman»">q,x,y,x1,y1,t,i,j,k,at,at1,ct1,ctp<span Courier New"; mso-bidi-font-family:«Times New Roman»"> типа integer для<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US"> 

<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US"> 

<span Courier New"; mso-bidi-font-family:«Times New Roman»">использования их в теле циклов

<span Courier New";mso-bidi-font-family:«Times New Roman»">- g,m типа integer для задания начального количества животных

<span Courier New";mso-bidi-font-family:«Times New Roman»; mso-ansi-language:EN-US">-

<span Courier New"; mso-bidi-font-family:«Times New Roman»">v,w<span Courier New";mso-bidi-font-family: «Times New Roman»"> типа integer длязадания максимального возраста животных

<span Courier New";mso-bidi-font-family:«Times New Roman»">- ct,ch типа shortint для задания цвета отображаемых точек

<span Courier New";mso-bidi-font-family:«Times New Roman»">- tmin,tmax,hmin,hmax,tp,hp типа integer для задания факторов 

<span Courier New";mso-bidi-font-family:«Times New Roman»">  влияющих на репродуктивность животных

<span Courier New";mso-bidi-font-family:«Times New Roman»">- tt типа integer для учета умерших и съеденных травоядных

<span Courier New";mso-bidi-font-family:«Times New Roman»">- kata типа integer для задания вероятности природных   

<span Courier New";mso-bidi-font-family:«Times New Roman»">  катаклизмов

<span Courier New";mso-bidi-font-family:«Times New Roman»">- ht типа integer для задания количества травоядных нужных  

<span Courier New";mso-bidi-font-family:«Times New Roman»">  хищнику для пищи

<span Courier New";mso-bidi-font-family:«Times New Roman»">- ttt типа real для задания количества травы нужных  

<span Courier New";mso-bidi-font-family:«Times New Roman»">  травоядному для пищи

<span Courier New";mso-bidi-font-family:«Times New Roman»">- tr типа real для задания процента восстановления количества 

<span Courier New";mso-bidi-font-family:«Times New Roman»">  травы

<span Courier New";mso-bidi-font-family:«Times New Roman»">- tree,tree1 типа longint для задания и модификации  

<span Courier New";mso-bidi-font-family:«Times New Roman»">  количества травы

<span Courier New";mso-bidi-font-family:«Times New Roman»">- z типа longint для счетчика времени

<span Courier New";mso-bidi-font-family:«Times New Roman»">- key типа boolean для отслеживания нажатия клавиш

<span Courier New";mso-bidi-font-family:«Times New Roman»">- s,ss типа string размером в семнадцать символов для вывода 

<span Courier New";mso-bidi-font-family:«Times New Roman»">  на экран в графическом режиме

<span Courier New";mso-bidi-font-family:«Times New Roman»">- pal типа FillPatternTypeстандартная переменная библиотеки 

<span Courier New"; mso-bidi-font-family:«Times New Roman»"> GRAPH

<span Courier New";mso-bidi-font-family:«Times New Roman»"> для хранениятипа и цвета заливки графических фигур 

<span Courier New";mso-bidi-font-family:«Times New Roman»">  объектов

<span Courier New";mso-bidi-font-family:«Times New Roman»">- tg массив объемом 4400 точек типа tosob для хранения 

<span Courier New";mso-bidi-font-family:«Times New Roman»"> травоядных

<span Courier New";mso-bidi-font-family:«Times New Roman»">- hr массив объемом 1350 точек типа tosob для хранения 

<span Courier New";mso-bidi-font-family:«Times New Roman»">  хищников

<span Courier New";mso-bidi-font-family:«Times New Roman»">                           -6-

<span Courier New"; mso-bidi-font-family:«Times New Roman»">

<span Courier New"; mso-bidi-font-family:«Times New Roman»">2.3 ОПИСАНИЕ БИБЛИОТЕКИ FAUNA1

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">     В данной библиотеке описано два типаданных Tposition и Tosob. Тип Tposition имеет два параметра:

<span Courier New";mso-bidi-font-family:«Times New Roman»">     x   — расположение по координате Х экрана

<span Courier New";mso-bidi-font-family:«Times New Roman»">     y   — расположение по координате Y экрана

<span Courier New";mso-bidi-font-family:«Times New Roman»">Задействованыфункции:

<span Courier New";mso-bidi-font-family:«Times New Roman»">     getx- получение координаты Х

<span Courier New";mso-bidi-font-family:«Times New Roman»">     gety- получение координаты Y

<span Courier New";mso-bidi-font-family:«Times New Roman»">А такжепроцедура инициализации объекта init    

<span Courier New";mso-bidi-font-family:«Times New Roman»">Тип Tosob имеет четыре параметра:     

<span Courier New";mso-bidi-font-family:«Times New Roman»">  x   — расположение по координате Х экрана

<span Courier New";mso-bidi-font-family:«Times New Roman»">  y   — расположение по координате Y экрана

<span Courier New";mso-bidi-font-family:«Times New Roman»">  age- возраст точки

<span Courier New";mso-bidi-font-family:«Times New Roman»">  col- цвет вывода на экран

<span Courier New";mso-bidi-font-family:«Times New Roman»">Задействованыфункции:

<span Courier New";mso-bidi-font-family:«Times New Roman»">  daizwet- получение цвета точки

<span Courier New";mso-bidi-font-family:«Times New Roman»">  daiage- получение параметра age

<span Courier New";mso-bidi-font-family:«Times New Roman»">  vidnoli- получение факта отображения на экране

<span Courier New";mso-bidi-font-family:«Times New Roman»">процедуры:

<span Courier New";mso-bidi-font-family:«Times New Roman»">  blind- гашение точки

<span Courier New";mso-bidi-font-family:«Times New Roman»">  show  — отображение точки

<span Courier New";mso-bidi-font-family:«Times New Roman»">  init  — создание объекта Tosob

<span Courier New";mso-bidi-font-family:«Times New Roman»">  done  — уничтожение объекта Tosob

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">                           -7-

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">              2.4  ОПИСАНИЕ БИБЛИОТЕКИ MYCRT

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">     В данную библиотеку включены функции ипроцедуры предназначенные для работы в текстовом режиме.

<span Courier New";mso-bidi-font-family:«Times New Roman»">Процедуры:

<span Courier New";mso-bidi-font-family:«Times New Roman»"> 

<span Courier New"; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">fo<span Courier New";mso-bidi-font-family:«Times New Roman»">n<span Courier New"; mso-bidi-font-family:«Times New Roman»">       — задание цвета фона экрана

<span Courier New";mso-bidi-font-family:«Times New Roman»">  txt        — задание цвета выводимых символов

<span Courier New";mso-bidi-font-family:«Times New Roman»">  ramka     — вывод прямоугольника символами 

<span Courier New";mso-bidi-font-family:«Times New Roman»">              186,187,188,200,201,205

<span Courier New";mso-bidi-font-family:«Times New Roman»">  colorwind- вывод окна с рамкой

<span Courier New";mso-bidi-font-family:«Times New Roman»">Функции:

<span Courier New";mso-bidi-font-family:«Times New Roman»">  colword- преобразование чисел от одного до пятнадцати в 

<span Courier New";mso-bidi-font-family:«Times New Roman»">            строку с наименованием цвета

<span Courier New";mso-bidi-font-family:«Times New Roman»">  mes     — преобразование чисел от нуля до тристашестидесяти 

<span Courier New";mso-bidi-font-family:«Times New Roman»">            пяти в строку с названием месяца

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">                           -8-

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">              2.4  ОПИСАНИЕ ОСНОВНОГО ТЕЛА ПРОГРАММЫ

<span Courier New";mso-bidi-font-family:«Times New Roman»">    

<span Courier New";mso-bidi-font-family:«Times New Roman»">     В основном модуле программы включеныпроцедуры:

<span Courier New";mso-bidi-font-family:«Times New Roman»">     ini    — вывод на экран массивов hr и tr со стартовыми 

<span Courier New";mso-bidi-font-family:«Times New Roman»">              параметрами

<span Courier New";mso-bidi-font-family:«Times New Roman»">     tnew   — движение точки принадлежащей массиву tr с

<span Courier New";mso-bidi-font-family:«Times New Roman»">              проверкой возраста

<span Courier New";mso-bidi-font-family:«Times New Roman»">     hnew   — движение точки принадлежащей массиву hr с

<span Courier New";mso-bidi-font-family:«Times New Roman»">              проверкой возраста

<span Courier New"; mso-bidi-font-family:«Times New Roman»">    trod

<span Courier New";mso-bidi-font-family:«Times New Roman»">    — создание новых точек массива tr

<span Courier New";mso-bidi-font-family:«Times New Roman»">     hrod   — создание новых точек массива hr

<span Courier New";mso-bidi-font-family:«Times New Roman»">     dead   — процесс поглощения точки массива tr точкой

<span Courier New";mso-bidi-font-family:«Times New Roman»">              массива hr

<span Courier New";mso-bidi-font-family:«Times New Roman»">     havka  — процесс уничтожения точек массива trв

<span Courier New";mso-bidi-font-family:«Times New Roman»">              зависимости от значения переменнойtt

<span Courier New";mso-bidi-font-family:«Times New Roman»">     tmor   — процесс уничтожения случайногоколичества 

<span Courier New";mso-bidi-font-family:«Times New Roman»">              точек массива tr

<span Courier New";mso-bidi-font-family:«Times New Roman»">     hmor   — процесс уничтожения случайного количества

<span Courier New";mso-bidi-font-family:«Times New Roman»">              точек массива hr

<span Courier New";mso-bidi-font-family:«Times New Roman»">     zasux  — подсчет переменной tree

<span Courier New";mso-bidi-font-family:«Times New Roman»">     quit   — выход из программы    

<span Courier New";mso-bidi-font-family:«Times New Roman»">     herb   — организация ввода стартовых значенийпеременных 

<span Courier New";mso-bidi-font-family:«Times New Roman»">              для массива tr

<span Courier New";mso-bidi-font-family:«Times New Roman»">     beast  — организация ввода стартовых значенийпеременных

<span Courier New";mso-bidi-font-family:«Times New Roman»">              для массива hr

<span Courier New"; mso-bidi-font-family:«Times New Roman»">    env

<span Courier New";mso-bidi-font-family:«Times New Roman»">    — организация ввода значений переменных для

<span Courier New";mso-bidi-font-family:«Times New Roman»">              задания переменных tree, tr, kata, q

<span Courier New"; mso-bidi-font-family:«Times New Roman»">    info

<span Courier New";mso-bidi-font-family:«Times New Roman»">   — организация информационного окна

<span Courier New";mso-bidi-font-family:«Times New Roman»">     gmenu  — прорисовка основного меню

<span Courier New";mso-bidi-font-family:«Times New Roman»">     omenu  — прорисовка меню Option

<span Courier New";mso-bidi-font-family:«Times New Roman»">     start  — запуск графического режима и запускосновного

<span Courier New";mso-bidi-font-family:«Times New Roman»">              цикла

<span Courier New";mso-bidi-font-family:«Times New Roman»">     komenu — организация меню Option

<span Courier New";mso-bidi-font-family:«Times New Roman»">     gkmenu- организация основного меню

<span Courier New";mso-bidi-font-family:«Times New Roman»">    

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">                           -9-

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">                    3.  ЗАКЛЮЧЕНИЕ

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">     Данная программа представляет достаточногрубую модель жизнедеятельности и взаимодействия живых организмов. Однако, дажетакое моделирование позволяет проследить основные моменты цикла жизнипопуляции. При возможном добавлении некоторых дополнительных факторов,моделирование может более приблизиться к реальной ситуации. Такими факторамимогут являться:

<span Courier New";mso-bidi-font-family:«Times New Roman»">  — Сезонные изменения климата

<span Courier New";mso-bidi-font-family:«Times New Roman»">  — «Технология» охоты

<span Courier New";mso-bidi-font-family:«Times New Roman»">  — Окружающая флора и фауна

<span Courier New";mso-bidi-font-family:«Times New Roman»">  — Влияние жизнедеятельности человека

<span Courier New";mso-bidi-font-family:«Times New Roman»">  — Взаимодействие особей внутри популяции

<span Courier New";mso-bidi-font-family:«Times New Roman»">Даннаяпрограмма может служить в качестве учебного пособия по программированию наязыке

<span Courier New"; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">Pascal<span Courier New"; mso-bidi-font-family:«Times New Roman»;mso-ansi-language:EN-US">.<span Courier New"; mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">                           -10-

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»;text-transform: uppercase">                       Приложение 1.

<span Courier New";mso-bidi-font-family:«Times New Roman»;text-transform: uppercase">

<span Courier New";mso-bidi-font-family:«Times New Roman»;text-transform: uppercase">

<span Courier New";mso-bidi-font-family:«Times New Roman»;text-transform: uppercase">                     ОсновнаяпрограммА

<span Courier New";mso-bidi-font-family:«Times New Roman»">

<span Courier New";mso-bidi-font-family:«Times New Roman»">programfauna;

<span Courier New";mso-bidi-font-family:«Times New Roman»">usesmycrt,dos,graph,fauna1,tpcrt;

<span Courier New";mso-bidi-font-family:«Times New Roman»"> var  

<span Courier New";mso-bidi-font-family:«Times New Roman»">    q,x,y,x1,y1,gd,gm,t,i,j,k,AT,at1,ct1,ctp:integer;{общие}

<span Courier New";mso-bidi-font-family:«Times New Roman»">    g,v,m,w:integer;{}

<span Courier New";mso-bidi-font-family:«Times New Roman»">    ct,ch:shortint;{цвет}

<span Courier New";mso-bidi-font-family:«Times New Roman»">   tmin,tmax,hmin,hmax,tp,hp:integer;{детородность}

<span Courier New";mso-bidi-font-family:«Times New Roman»">    tt:integer;{трупы и съеденые травоядные за1 год}

<span Courier New";mso-bidi-font-family:«Times New Roman»">    kata,ht:integer;

<span Courier New";mso-bidi-font-family:«Times New Roman»">    ttt,tr:real;

<span Courier New";mso-bidi-font-family:«Times New Roman»">    z,tree,TREE1:longint;

<span Courier New";mso-bidi-font-family:«Times New Roman»">    key:boolean;

<span Courier New";mso-bidi-font-family:«Times New Roman»">    s,ss:string[17];

<span Courier New";mso-bidi-font-family:«Times New Roman»">    tg:array[1..4400] of tosob;      {green-травоядных}

<span Courier New";mso-bidi-font-family:«Times New Roman»">    hr:array[1..1350] of tosob;      {red-хищников}

<span Courier New";mso-bidi-font-family:«Times New Roman»">    pal:FillPatternType;

<span Courier New";mso-bidi-font-family:«Times New Roman»">{***********************************************************}

<span Courier New";mso-bidi-font-family:«Times New Roman»">procedureini;

<span Courier New";mso-bidi-font-family:«Times New Roman»">begin

<span Courier New";mso-bidi-font-family:«Times New Roman»"> for i:=1 to g do

<span Courier New";mso-bidi-font-family:«Times New Roman»"> begin

<span Courier New";mso-bidi-font-family:«Times New Roman»">  at:=RANDOM(v)+1;

<span Courier New";mso-bidi-font-family:«Times New Roman»"> tg[i].init((random(630)+5),(random(462)+18),at,ct);

<span Courier New";mso-bidi-font-family:«Times New Roman»">  tg[i].show;

<span Courier New";mso-bidi-font-family:«Times New Roman»"> end;

<span Courier New";mso-bidi-font-family:«Times New Roman»"> for i:=1 to m do

<span Courier New";mso-bidi-font-family:«Times New Roman»"> begin

<span Courier New";mso-bidi-font-family:«Times New Roman»">  at:=random(w)+1;

<span Courier New";mso-bidi-font-family:«Times New Roman»"> HR[i].init((random(630)+5),(random(462)+18),at,ch);

<span Courier New";mso-bidi-font-family:«Times New Roman»">  hr[i].show;

<span Courier New";mso-bidi-font-family:«Times New Roman»"> end;

<span Courier New";mso-bidi-font-family:«Times New Roman»">end;

<span Courier New";mso-bidi-font-family:«Times New Roman»">{***********************************************************}

<span Courier New";mso-bidi-font-family:«Times New Roman»">proceduretnew;

<span Courier New";mso-bidi-font-family:«Times New Roman»">begin<

еще рефераты
Еще работы по программированию, базе данных