Рис. 10. Блок-схема подпрограммы DELEGATION

		Рис. 13. (продолжение)

ЗАКЛЮЧЕНИЕ

В данной работе была построена чрезвычайно упрощенная модель эволюции элитной группы. Однако несмотря на всю её простоту, можно проследитьЮ что элитные группы не всегда прогрессируют. Причины этого – правила выбытия элементов из элитной группы и вхождение в неё.

Результаты решения данной задачи имеют аналоги в общественных процессах. Пока что это есть наипростейшая модель, но даже её анализ показывает, что возможно построение элитных групп, не подверженных деградации.

СПИСОК ЛИТЕРАТУРЫ

1. Ф.И. Перегудов, Ф.П. Тарасенко "Введение в системный анализ", -М.: Высшая Школа. 1989.

2. А.Н. Ефимов "Элитные группы, их возникновение и эволюция", Знание-сила. 1988. №1, С. 56-64.

3. А.Н. Ефимов, В.М. Кутеев "Исследование и моделирование некоторых свойств элитных групп", Изв. АН СССР. Техническая кибернетика. 1980. №3, С. 177-185.

4. А.Н. Ефимов, В.М. Кутеев "Ранговые процедуры управления эволюцией элитных групп", Изв. АН СССР. Техническая кибернетика. 1980. №6, С. 3-12.

5. В.Н. Кучуганов, В.П. Соболева "Методические указания по оформлению курсовых и дипломных работ для студентов спец. 22.04 "Программное обеспечение вычислительной техники и автоматизированных систем", -Ижевск: ИжГТУ. 1992.

6. С. В. Почерняев "Методические указания к выполнению курсовой работы по курсу "Системное программное обеспечение"", -Ижевск: ИжГТУ. 1993.

ПРИЛОЖЕНИЕ 1. ТЕКСТ ПРОГРАММЫ

{$N+,E-}

uses crt,elitem,win;

type tbyte=longint;

const Number=200;

M=19;

cK=400;

t:tbyte=0;

flag:byte=0;

dl:tbyte=2;

z:word=1;

var otb:array [0 2*Number+cK,0 M] of tbyte;

ran:array [0 2,0 M] of tbyte;

i,k,j,l,f,n,p:word;

nm:byte;

c:char;b:boolean;

function Paret(Kol:byte;x,y:word):shortint;

{Kol - количество критериев выбора}

var i,j:tbyte; a,b:boolean; k:word;