3.3.3. Описание информации

Входные данные:

Kol - количество критериев отбора;

Num - номер элемента.

Выходные данные:

Не имеет.

3.3.4. Используемые подпрограммы

Данная подпрограмма elem не использует других подпрограмм, кроме стандартных функций и процедур библиотеки языка программирования Borland Pascal версии 7.0 фирмы Borland International.

3.3.5. Описание логики

Описание блок-схемы подпрограммы ELEM

1. i:=0;

2. otb[Num,i]:=random(ran[1,i]-ran[0,i])+ran[0,i]; i:=i+1;

3. Если i<Kol, то переход к п. 2;

4. Конец.

Блок-схема подпрограммы приведена на рис. 3.

3.4. Описание подпрограммы HELP

3.4.1. Вводная часть

Синтаксис:

procedure help;

Подпрограмма используется в программе ELITE.PAS. Подпрограмма написана на языке программирования Borland Pascal версии 7.0 фирмы Borland International на ПЭВМ IBM PC AT 486DX/50.

3.4.2. Функциональное назначение

Подпрограмма HELP используется для вывода сообщения об авторах программы.

3.4.3. Описание информации

Входные данные:

Не имеет.

Входные данные:

Выводит сообщение об авторах программы.

3.4.4. Используемые подпрограммы

Данная подпрограмма paret не использует других подпрограмм, кроме стандартных функций и процедур библиотеки языка программирования Borland Pascal версии 7.0 фирмы Borland International.

3.4.5. Описание логики

Описание блок-схемы подпрограммы HELP

1. Вывод “Эволюция элитных групп”;

2. Вывод “ Создана студентами гр. 6-19-2”;

3. Конец.

Блок-схема подпрограммы приведена на рис. 4.

3.5. Описание подпрограммы SORT

3.5.1. Вводная часть

Синтаксис:

procedure sort;

Подпрограмма используется в программе ELITE.PAS. Подпрограмма написана на языке программирования Borland Pascal версии 7.0 фирмы Borland International на ПЭВМ IBM PC AT 486DX/50.

3.5.2. Функциональное назначение

Подпрограмма SORT предназначена для сортировки элементов в элитной группе по возрастанию их качеств. В своей основе имеет сортировку методом обмена.

3.5.3. Описание информации

Входные данные:

Неотсортированный массив otb.

Выходные данные:

Отсортированный массив otb.

3.5.4. Используемые подпрограммы

Данная программа , кроме стандартных подпрограмм библиотеки языка программирования Borland PASCAL версии 7.0 фирмы Borland International, использует следующие подпрограммы:

paret - для попарного сравнения элементов массива.

3.5.5. Описание логики

Описание блок-схемы подпрограммы SORT;

1. i:=0;

2. k:=i;

3. j:=i+1;

4. Если paret(M,K,j)=0, то переход к п. 5, иначе к п. 6;

5. k:=j;

6. l:=0; j:=j+1;

7. pr:=otb[i,l]; otb[i,l]:=otb[k,l]; otb[k,l]:=pr; l:=l+1;

8. Если l<M, то переход к п. 7;

9. Если ,j<N, то переход к п. 4;

10. Если i<N, то переход к п. 2;

11. Конец.

Блок-схема подпрограммы приведена на рис. 5.

3.6. Описание подпрограммы PRETENDENT

3.6.1. Вводная часть

Синтаксис:

procedure pretendent(Kol:word);

Подпрограмма используется в программе ELITE.PAS. Подпрограмма написана на языке программирования Borland Pascal версии 7.0 фирмы Borland International на ПЭВМ IBM PC AT 486DX/50.

3.6.2. Функциональное назначение

Подпрограмма PRETENDENT реализует алгоритм “претендент-рекомендатель”.

3.6.3. Описание информации

Входные данные:

Kol - количество критериев отбора.

Выходные данные:

Не имеет.

3.6.4. Используемые подпрограммы

Данная программа , кроме стандартных подпрограмм библиотеки языка программирования Borland PASCAL версии 7.0 фирмы Borland International, использует следующие подпрограммы:

paret - для попарного сравнения элементов массива;

elem - для моделирования нового элемента.

3.6.5. Описание логики

Описание блок-схемы подпрограммы PRETENDENT

1. j:=0; num:=random(N+1);

2. Если not(k=0 or j>3*N), то переход к п. 9;

3. Если Num=Num1, то переход к п. 6;

4. num1:=random(N+1);

5. переход к п. 3;

6. elem(Kol,Num); k:=paret(Kol,Num,Num1);

7. j:=j+1;

8. переход к п. 2;

9. Конец.

Блок-схема подпрограммы приведена на рис. 6.

3.7. Описание подпрограммы PROPOLKA

3.7.1. Вводная часть

Синтаксис:

procedure propolka(Num,Kol,typ:word);

Подпрограмма используется в программе ELITE.PAS. Подпрограмма написана на языке программирования Borland Pascal версии 7.0 фирмы Borland International на ПЭВМ IBM PC AT 486DX/50.

3.7.2. Функциональное назначение

Подпрограмма PROPOLKA реализует алгоритмы “прополка” и “сбор урожая”.

3.7.3. Описание информации

Входные данные:

Num - количество изымаемых за один шаг элементов;

Kol - количество критериев отбора;

typ - тип используемого в данный момент алгоритма(0 - “прополка”, 1 - “сбор урожая”).

Выходные данные:

Не имеет.

3.7.4. Используемые подпрограммы

Данная программа , кроме стандартных подпрограмм библиотеки языка программирования Borland PASCAL версии 7.0 фирмы Borland International, использует следующие подпрограммы:

sort - для сортировки элитной группы;

elem - для моделирования нового элемента.

3.7.5. Описание логики

Описание блок-схемы подпрограммы PROPOLKA

1. Если Num>N, то переход к п. 2, иначе к п. 3;

2. num:=n-1; переход к п. 4;

3. num:=num-1;

4. Вызов подпрограммы SORT;

5. Если typ=0, то переход к п. 6, иначе к п. 7;

6. m:=0; j:=num; переход к п. 8;

7. m:=N-Num; j:=N;

8. i:=m;

9. Вызов подпрограммы ELEM(Kol, i); i:=i+1;

10. Если i>j, то переход к п. 9;

11. Конец.

Блок-схема подпрограммы приведена на рис. 7.

3.8. Описание подпрограммы DELEGATION

3.8.1. Вводная часть

Синтаксис:

procedure delegation(Num,Kol,Kk:word);

Подпрограмма используется в программе ELITE.PAS. Подпрограмма написана на языке программирования Borland Pascal версии 7.0 фирмы Borland International на ПЭВМ IBM PC AT 486DX/50.

3.8.2. Функциональное назначение

Подпрограмма DELEGATION реализует алгоритм “делегирование”.

3.8.3. Описание информации

Входные данные:

Kol - количество критериев отбора;

Num - номер изымаевого элемента;

Kk - размер делегирующей выборки.

Выходные данные:

Не имеет.

3.8.4. Используемые подпрограммы

Данная программа , кроме стандартных подпрограмм библиотеки языка программирования Borland PASCAL версии 7.0 фирмы Borland International, использует следующие подпрограммы:

paret - для попарного сравнения элементов элитной группы;

elem - для моделирования нового элемента.

3.8.5. Описание логики

Описание блок-схемы подпрограммы DELEGATION

1. i:=0;

2. Вызов подпрограммы ELEM(Kk,i+N); i:=i+1;

3. Если i<Kol, то переход к п. 2;

4. mx:=0;

5. i:=1;

6. Если paret(Kk,i+N,mx+n)=0, то переход к п. 7, иначе к п. 8;

7. mx:=i;

8. Если i<kol, то переход к п. 6;

9. i:=0;

10. otb[Num,i]:=otb[mx,i]; i:=i+1;

11. Если i<Kk, то переход к п. 10;