Реферат: Программа эмуляции развития популяций животных
<span Courier New"; mso-bidi-font-family:«Times New Roman»"> Институт Переподготовки Кадров
<span Courier New"; mso-bidi-font-family:«Times New Roman»"> Уральского Государственного Технического Университета
<span Courier New"; mso-bidi-font-family:«Times New Roman»">
<span Courier New"; mso-bidi-font-family:«Times New Roman»">
<span Courier New"; mso-bidi-font-family:«Times New Roman»"> Кафедра микропроцессорной техники
<span Courier New"; mso-bidi-font-family:«Times New Roman»">
<span Courier New"; mso-bidi-font-family:«Times New Roman»">
<span Courier New"; mso-bidi-font-family:«Times New Roman»">
<span Courier New"; mso-bidi-font-family:«Times New Roman»">
<span Courier New"; mso-bidi-font-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<