Đang chuẩn bị nút TẢI XUỐNG, xin hãy chờ
Tải xuống
Tham khảo tài liệu 'lập trình nâng cao trên ngôn ngữ pascal part 3', tài liệu phổ thông, tin học phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | 50 Chương 2. Giao tiếp file CopySubFile FromFilel ToFile Reel Remainl end procedure MergeFile var FromFilel FromFile2 ToFile text var NumSub Longlnt trộn FrornFile 1 với FromFile2 vào ToFile. Sau khí trộn xong sô đoạn của ToFile dược trả VC NumSub I var Remainl Remains boolean Reel Rec2 BankRec begin Rewrite ToFile Reset FromFilel Reset FromFile2 ReadRec FromFilel Reel ReadRec FromFile2 Rec2 Remainl true Remains true NumSub 0 while Remainl and Remains do begin trộn các đoạn của FromFile l và FromFile2 vào ToFile cho đến khí hết một file I MergeSubFile FromFilel FromFileS ToFile Reel RecS Remainl Remains Inc NumSub end while Remainl do begin I chép nốt các đoạn của FromFilel sang ToFile nếu còn CopySubFile FromFilel ToFile Reel Remainl Inc NumSub end while Remain2 do begin chép not các đoạn của FromFile2 sang ToFilc nếu còn CopySubFile FromFrleS ToFile Rec2 Remains Inc NumSub end Close ToFile Close FromFilel Close FromF le2 end procedure Mergesort var f text sắp xếp file f nhờ trộn file var NumSub . Longlnt f1 f2 text begin đãng ký các file nháp Assign fl Tempi Assign f2 Temps bắt đáu trộn repeat SplitFile f fl fS MergeFile f1 fs f NumSub until NumSub 1 Chương 2. Giao liếp file 51 xóa các file ũhápỉ Erase fl Erase f2 end Begin Writef Ten file can sap xep 1 Readin name Assign f name Writein Bat dau sap xep . Mergesort f Write Da sap xep xong An phim Enter de ket thuc . Readin End. Chương irình trên có thổ dùng để sắp xếp file định kiổu có thành phần thuộc kiểu BankRec trong đó chỉ cần thay các thủ tục ReadKec writeRec hằng các thủ tục chuẩn Read Write. Để minh họa thuật toán này bạn có thể cho chương trình trên chạy thư với một file và ghi nhận các kết quả trung gian sau mỗi lần chia trộn. Chẳng hạn file được thử f là file văn bản dược chuyển lừ file BANK.DAT ban đầu có nội dung theo thứ tự để gọn chỉ viết các giá trị khóa của các thành phần của file trong đó các đoạn được thế hiện bằng những nhóm gạch dưới f 15941 2741 6916 1904B 27425 24246 11871 29B56 21688 10789
