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

???? ????????? ??????? ??????????? ??????? ?????? ?? ??????? ??? ?? ????????. ???????? ?? ????????? - ???????.

????? ???????. ????: ?????????????? - ?????????. ???? ???? ????????? ??????? ????? ?????????????? ? ????????? ???????? ??????? ??????. ???????? ?? ????????? - ??????????????.

?????? ??????. ???? "??????? ??????". ???? ???? ????????? ??????? ????? ??????? ??????? ??????. ??? ?????? ???????? ?????? ??????? ("?????????? ?????"), ??? ??????? ????????????? ??????????????? ????????? ????? ??????? ?????? ?????? ("?????????? ?????"). ???????? ?? ????????? - ?????????? ?????.

?????? ??????. ???? "?????? ??????". ???? ???? ????????? ??????? ????? ??????? ?????? ??????. ??????-???? ??????? ?? ????? ??????? ??????? ?????? ????? ?? ?????????. ???????? ?? ????????? - ?????????? ?????.

?????. ????. ?????? ????? ????????? ???????? ? ????????? ????.

?????. ????. ?????? ????? ????????? ???????? ? ????????? ????.

?????. ????. ?????? ????? ????????? ?????? ?????? ?????? ????? ??? ?????????????? ????????? ??????? ??????. ???????? ?? ????????? - 6.

?????. Screen Saver. ?????? ????? ????????? ?????? ????? ???????? ???????????? Screen Saver-?. ????? ??????????? ? ???????. ???????? ?? ????????? - 5 ?????.

?????. ????????? ?????. ?????? ????? ????????? ????????? ????????? ????? ? ????? ? ????? (Shadow.dsk).

?????. ?????? ????? ???????????? ????? ?? ?????????. ???????? ?????????

?????????? ????????? ??????? ?? ?????? ???????: 1. DESCRIPT.PAS - ???????? ???? ?????????? ?????????? ?????????. ??????????? ???????? ?? ????????. 2. IOMENU.PAS - ?????? ??? ????????? ????. ?????? - ???? ??????, ?????? ??????????. 3. IOCRT.PAS - ?????? ???????? ??????? ??????. ????? - ???? ??????. 4. INOUT.PAS - ?????? ?????-??????. ????? - ?????? ??????????. 5. SERVICE.PAS - ?????? ????????? ???????? ?????????. ????? - ?????? ??????????. 6. VHCOUNT.PAS - ?????? ??????? ??????. ????? - ????? ????. 7. SOLUTION.PAS - ?????? ?????? ?????????? ????????. ?????? - ????? ????, ?????? ??????????. 8. VENGRSOL.PAS - ?????? ??????? ?????? ?????????? ???????. ????? - ?????? ??????????. 9. SHADOW.PAS - ?????? ?????? ?????????? ??????????. ????? - ?????? ??????????.

?????????, ??????? ???????????? ??? ??????? ?????? ??????? ?????. ????? ???? ????????, ??? ????? ?????????? ?????????? ?????? ? ?????? ?????????????? ?????????? OverDrive ? ?????????????? ?????? ??????? ? ?????????? StudyMode ? ????????? ?????? ???????. ????????? ?????????? ????????? ? ?????????? ?????????? ??????? ????.

?????? INOUT.PAS

Procedure MatrIn(var a : workmatr ; var sz : byte ; msize, diag : boolean); ????????? ????? ????????? ??????? ???????. ???????????? ?????????: var a : workmatr - ????????? ?? ??????? (??????? ?????????? ??????????). var sz : byte - ??????? ??????????? ?????? (??????? ?????????? ??????????). msize : boolean - ??????????? ????????? ???????? ??????? (True - ????? ???? ????????). diag : boolean - ??????????? ??????? ????????? (False - ???? ?? ??????? ????????? ????????).

Procedure Inp (x, y, l : byte ; gg : char ; var qq : char ; var a : real ; var s : string ; st_r : boolean; scroll : boolean ; attrib : byte); ????????? ????? ?????? ? ?????????? ???????????. ???????????? ?????????: x, y : byte - ?????????? ?????? ?????? ?????. l : byte - ?????? ?????? ?????. gg : char - ????????? ????????? ?????? ?? ?????? ??????????????. var qq : char - ????????? ????????? ?????? ??? ??????????????. var a : real - ???????????? real-?????. var s : string - ???????????? ??????. st_r : boolean - ????????????? ????? real / string (True - ???? real-?????). scroll : boolean - ??????????? ?????????? ?????? ?????? (True - ????????? ???????). attrib : byte - ??????? ???????? ?????????.

Procedure M_Size (var qq : char); ????????? ????????? ??????? ???????. ???????????? ?????????: var qq : char - ????????? ????????? ?????? ??? ??????????????.

Procedure New_Task (var b : workmatr); ????????? ????????? ????? ??????. ???????????? ?????????: var b : workmatr - ????????? ?? ??????? (??????? ?????????? ??????????).

Procedure Matr_Rnd (var a : workmatr); ????????? ????????? ????????? ???????. ???????????? ?????????: var a : workmatr - ????????? ?? ??????? (??????? ?????????? ??????????).

Procedure ShowSolve (Solve : vertex); ????????? ?????? ?????????? ??????????? ???????. ???????????? ?????????: Solve : vertex - ??????, ?????????? ??? ????????? ?????????? ???????.

Function ChooseFile (Title : string ; var qq : char) : string; ??????? ????? ????? ?????. ???????????? ?????????: Title : string - ????????? ????. var qq : char - ????????? ????????? ?????? ??? ??????????????. ChooseFile : string - ??????, ?????????? ??? ?????.

Procedure FileOpen (var b : workmatr ; var NN : byte); ????????? ?????? ? ????? ??????? ??????. ???????????? ?????????: var b : workmatr - ????????? ?? ??????? (??????? ?????????? ??????????). var NN : byte - ??????? ??????????? ?????? (??????? ?????????? ??????????).

Procedure FileSave (var b : workmatr ; var NN : byte); ????????? ?????? ?? ???? ??????? ??????. ???????????? ?????????: var b : workmatr - ????????? ?? ??????? (??????? ?????????? ??????????). var NN : byte - ??????? ??????????? ?????? (??????? ?????????? ??????????).

Procedure InpWidht; ????????? ??????? ?????? ?????? ????? ??? ?????????????? ????????? ??????? ??????.

Procedure InpSaver; ????????? ??????? ??????? ???????? ???????????? Screen saver-?.

Function ChooseVertex (var N : Point ; var Count : integer ; var Act : char) : Point; ????????? ?????? ??????? ??? ????????? ??? ????????? ?????? ???????. ???????????? ?????????: var N : Point - ????????? ?? ?????? ?????? ??????. var Count : integer - ????? ?????????? ???????? ??????. var Act : char - ??? ???????, ???????????? ????????, ???????????? ??? ????????. ChooseVertex : Point - ????????? ?? ???????, ??? ??????? ??????????? ????????.

?????? SERVICE.PAS

Function GetKey : char; ???????, ????????? ????????????? ??????? Readkey (????? ????????? ??????? ?? ????????? ?????????? ??????????).

Procedure Knock; ?????????, ???????????? ??????.

Procedure Clock_on; ????????? ????????? ??????????? ??????? ?????????.

Procedure Clock_off; ????????? ?????????? ??????????? ??????? ?????????.

Procedure SaveIt; ????????? ?????????? ??????? ????????? ????????? ? ????? shadow.dsk.

Procedure RestoreIt; ????????? ?????????????? ????????? ?????????. ??? ?????????? ????? shadow.dsk ?????? ????????? ?? ?????????.

Function Stop : boolean; ????????? ????????? ??????? Escape ? ??????? ??????.

Procedure GetDaTi (var Time : Stime); ????????? ?????? ??????? ? ???? ?? ?????????? ?????? ?????????. ???????????? ?????????: var Time : Stime - ??????? ????? ? ???? ?? ?????????? ???????.

Procedure TIME (var Time1, Time2