Реферат: Задача о коммивояжере
Процедура расчета времени работы алгоритма. Передаваемые параметры:
var Time1 : Stime - время начала работы алгоритма.
var Time2 : Stime - время работы алгоритма.
Function ProcExit : word;
Процедура подтверждения выхода из программы.
Модуль DESCRIPT.PAS
Переменные, управляющие работой интерфейса и настройкой решения.
| M : Pmenu ; | Указатель на основное меню программы |
| Sel : Word ; | Текущий выбранный пункт меню |
| ch, sk, gg, qq : char ; | Переменные для работы с клавиатурой |
| MethodH, MethodV, Tip, Direc : word ; | Переменные определяющие режим решения |
| TimeSScr : Longint ; | Время задержки срабатывания Screen Saver-а |
| w : boolean ; | Временная булевская переменная |
| SScrAct, | Активность Screen Saver-а |
| ClockAct, | Активность часов |
| SoundAct, | Активность звука |
| SoluAct : boolean ; | Активность решения |
| TimeN, TimeE : Stime ; | Время начала и завершения решения |
| TempStr : string ; | Временная string-переменная |
| TempReal : real ; | Временная real-переменная |
| Len, | Длина элемента матрицы |
| Step : byte ; | Интервал вывода элементов матрицы |
Типы, используемые при работе алгоритма решения.
| WorkMatr = array [ 1 .. Nmax+1, 1..Nmax+1 ] of real ; | Тип рабочей матрицы |
| Solu = array [ 1..Nmax ] of byte ; | Вектор решения |
| Labels = record gor, ver : Solu ; end ; | Запись, содержащая вектора фиксированных городов |
| Lab = array [ 1..Nmax ] of boolean ; | Массив меток |
| Point = ^Vertex ; | Указатель на вершину |
| Vertex = record Hi, Lo : real ; Go : Solu ; Res : Solu ; Attr : Char ; Prev, Next : Point ; end ; | Запись, содержащая все свойства единичной вершины |
Переменные, используемые при работе алгоритма решения.
| b, c : workmatr ; | Исходная матрица задачи и матрица, используемая алгоритмом венгерского метода |
| x : Solu ; | Вектор решения |
| i, j, | Индексные переменные |
| NN : byte ; | Текущая размерность задачи |
| MaxR, MinR : real ; | Переменные, определяющие диапазон генерации матрицы |
| LastSolve : Vertex ; | Запись, содержащая параметры последнего решения |
Литература
К-во Просмотров: 667
Бесплатно скачать Реферат: Задача о коммивояжере