Giáo trình Turbo Pascal 7.0 - Lý thuyết, bài tập và lời giải part 5

Tham khảo tài liệu 'giáo trình turbo pascal - lý thuyết, bài tập và lời giải part 5', công nghệ thông tin, kỹ thuật lập trình phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | TS Bùi Thế Tâm 80 Giáo trình Turbo Pascal đang ớ một đinh nào đó nêu X trùng vói khoá của đinh thì lìm kiếm thành công và p là đinh can tìm ncu X nhó hơn khoá của dính thì p chạy xuống dinh con trái nêu X lớn hơn khoá cùa dinh thì p chạy xuống dỉnh con phai. Nêu tìm kiêm không thành cóng thì p NIL. Nếu tìm kiốrn thành cóng thì p chứa dịa chỉ cùa đinh có khoa là X. Loại bỏ một đỉnh khỏi cây. Chức nũng 2. Xoá nhàm loại bo khói cây một dinh có khoá X cho trước khoá X nhập từ bàn phím . Trước tiên chương trình tìm kiếm đinh có giá trị khoá bàng X. Thủ tục Xoa p làm nhiệm vụ loại bò khói cày một dinh do cơn trơ p l ò lới. Thuật toán loại bó một đỉnh. Nếu dính cấn loại bỏ là ỉá thì ta chi căn cat lá đó đi. Nếu đinh cần loại bó có một trong hai cây con là cây trông ta chi cần treo cây con khác trông vào vị trí cùa đinh bị loại. Nếu cá hai cây con của đinh cần loại bơ dều khác trống thì ta thav khoá của đinh cán loại bó bới khoá cùa đinh ngoài cùng bên phâi cùa cây cơn trái chính là dinh có khoá lớn nhất cùa cây con trái rồi loại bó dính ngoài cùng bên phái của cây con trái. Sau khi loai bó đính theo cách như vậy thì cây vần là cày lìm kiêm nhị phàn. uses art type nodePtr node node record key integer left right NodePtr end var root tk nodePtr x chon i n integer a array of integer f text procedure Chen x integer var p q nodePtr begin new q q .key x qA . lef t Nil qA . right ml if root NIL then root q else begin p root wh i 1 e pON IL do begin if x p .key then begin if p .left nil then p else begin q p nil end end else begin if x then begin if p .nghtOnil then p pA. right else begin q p nil end end else p nil end end end end procedure TimKiem x integer var p nodePtr var found boolean begin p root found. false while pOnil and not found do if x then found true else if x then p else p p .right end procedure InRong TS. Bùi Thế Tâm 81 Giáo trình Turbo Pascal const max 50 var truoc cuoi dem t integer p q nodePtr h

Không thể tạo bản xem trước, hãy bấm tải xuống
TÀI LIỆU MỚI ĐĂNG
152    42    1    29-03-2024
Đã 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.