TAILIEUCHUNG - bài giảng các chuyên đề phần 2

Tham khảo tài liệu 'bài giảng các chuyên đề phần 2', công nghệ thông tin, cơ sở dữ liệu phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | Bài toán liệt kê 24 4 6 1 2 3 1 3 2 1 4 1 2 3 1 2 4 2 3 4 4 1- 3- 2- 4- 1 Cost 6 Kỹ thuật nhánh cận dùng cho bài toán người du lịch program TravellingSalesman const max 20 maxC 20 100 1 Í J var C array of Integer Ma trận chi phí X BestWay array 1 of Integer X để thử các khả năng Bestway để ghi nhận nghiệm T array 1 of Integer Ti để lưu chi phí đi từ Xi đến X Free array of Boolean Free để đánh dấu Free True nếu chưa đi qua tp i m n Integer MinSpending Integer Chi phí hành trình tối ưu procedure Enter var i j k Integer begin ReadLn n m for i 1 to n do Khởi tạo bảng chi phí ban đầu for j 1 to n do if i j then C i j 0 else C i j maxC for k 1 to m do begin ReadLn i j C i j C j i C i j Chi phí như nhau trên 2 chiều end end procedure Init Khởi tạo begin FillChar Free n Free 1 False X 1 1 T 1 0 MinSpending maxC end True Các thành phố là chưa đi qua ngoại trừ thành phố 1 Xuất phát từ thành phố 1 Chi phí tại thành phố xuất phát là 0 procedure Try i Integer Thử các cách chọn xi var j Integer begin for j 2 to n do if Free j then begin X i j T i T i if T i MinSpending then if i n then Nếu chưa đến được xn begin Thử các thành phố từ 2 đến n Nếu gặp thành phố chưa đi qua Thử đi 1 C x i - 1 j Chi phí Chi phí bước trước chi phí đường đi trực tiếp Hiển nhiên nếu có điều này thì C x i - 1 j x rồi Lê Minh Hoàng Bài toán liệt kê 25 Free j False Đánh dấu thành phố vừa thử Try i 1 Tìm các khả năng chọn x i Free j True Bỏ đánh dấu end else if T n C x n 1 MinSpending then Từ Xn quay lại 1 vẫn tốn chi phí ít hơn trước begin Cập nhật BestConfig BestWay X MinSpending T n C x n 1 end end end procedure PrintResult var i Integer begin if MinSpending maxC then WriteLn NO SOLUTION else for i 1 to n do Write BestWay i - WriteLn 1 WriteLn Cost MinSpending end begin Assign Input Reset Input Assign Output Rewrite Output Enter Init Try 2 PrintResult Close Input Close Output end. Trên đây là một giải pháp nhánh .

TỪ KHÓA LIÊN QUAN
TAILIEUCHUNG - Chia sẻ tài liệu không giới hạn
Địa chỉ : 444 Hoang Hoa Tham, Hanoi, Viet Nam
Website : tailieuchung.com
Email : tailieuchung20@gmail.com
Tailieuchung.com là thư viện tài liệu trực tuyến, nơi chia sẽ trao đổi hàng triệu tài liệu như luận văn đồ án, sách, giáo trình, đề thi.
Chúng tôi không chịu trách nhiệm liên quan đến các vấn đề bản quyền nội dung tài liệu được thành viên tự nguyện đăng tải lên, nếu phát hiện thấy tài liệu xấu hoặc tài liệu có bản quyền xin hãy email cho chúng tôi.
Đã phát hiện trình chặn quảng cáo AdBlock
Trang web này phụ thuộc vào doanh thu từ số lần hiển thị quảng cáo để tồn tại. Vui lòng tắt trình chặn quảng cáo của bạn hoặc tạm dừng tính năng chặn quảng cáo cho trang web này.