Процедура расчета времени работы алгоритма. Передаваемые параметры:

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 ;	Запись, содержащая параметры последнего решения

Литература