Задача о коммивояжере

: Stime); ????????? ??????? ??????? ?????? ?????????. ???????????? ?????????: 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 = recordgor, ver : Solu ;end ;??????, ?????????? ??????? ????????????? ???????Lab = array [ 1..Nmax ] of boolean ;?????? ?????Point = ^Vertex ;????????? ?? ???????Vertex = recordHi, 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 ;??????, ?????????? ????????? ?????????? ??????? ?????????? 1. ????????? ?.?. "?????? ?????????? ???", ??????, "?????? ?????" - 1981. 2. ???????? ?. "?????? ????????? ? ?????????????? ????????????????", ??????, "???" - 1981. 3. ???? ?. "???????? ? ???????????? ????????", ??????, "???" - 1985. 4. ??????? ?.?., ?????? ?.?. "?????????????????? ??????? ? ????????????", ??????, "?????????" - 1980. 5. ???????? ?.?. "?????????? ?????????", ?????, "?????? ?????" -1992. 6. ?????? "PC Magazine" (?3 - 1994), ???. 45 - 48.