[Cây] Cây Tổng Quát

Trang chủ » Duyệt Cây Tổng Quát » [Cây] Cây Tổng Quát

Có thể bạn quan tâm

Bỏ qua nội dung
Tìm kiếm cho: Tìm
Date: 25/10/2013Author: nguyenvanquan7826 1 Bình luận

Đã rất nhiều lần mình tìm hiểu cách cài đặt và nhập, duyệt của cây tổng quát, tuy nhiên thì chỉ tìm được cách cài đặt theo một số phương pháp chứ chưa thấy code nhập và duyệt cây tổng quát cụ thể… Có nhiều cách cài và duyệt cây, các bạn có thể tham khảo trên mạng. Bài này mình chỉ đề cập đến 1 phần nhỏ.

cây tổng quát

Dưới đây là code cài đặt, nhập, và duyệt cây tổng quát theo thứ tự trước, các phép toán khác các bạn tự phát triển hoặc trong một ngày đẹp trời nào đó mình lại viết tiếp 😀

PROGRAM CAY_TONG_QUAT; uses crt; const n = 12; type item = char; {Kieu phan tu} pointer = ^node; node = record info : item; numChild : integer; {so con cua 1 nut} child : array[1..n] of pointer; end; var T : pointer; procedure inputTree(var T: pointer); {nhap vao cay} var i: integer; p: pointer; begin if T = nil then begin new(T); write('Nhap nut goc: '); readln(T^.info); end; p:= T; write('Nhap so con cua node ', p^.info, ' : '); readln(p^.numChild); for i:=1 to p^.numChild do begin new (p^.child[i]); write('Nhap nut con thu ', i, ' : '); readln(p^.child[i]^.info); end; for i:= 1 to p^.numChild do inputTree(p^.child[i]); end; procedure duyetTruoc(T: pointer); var i: integer; begin if T <> nil then begin write(T^.info, ' '); for i:=1 to T^.numChild do duyetTruoc(T^.child[i]); end; end; BEGIN clrscr; inputTree(T); duyettruoc(T); readln; END.

Code cũng dễ hiểu nên mình không chú thích gì thêm 🙂 Đọc thêm: Một số phép toán trên cây nhị phân tìm kiếm

Chia sẻ bài viết:

  • Facebook
  • X
  • LinkedIn
  • Email
  • Pinterest
  • Tumblr
  • Reddit
  • In
Thích Đang tải...

Điều hướng bài viết

Bài viết trước: [Thuật toán] Thuật toán minmax (cắt tỉa anpha-beta) Bài đăng tiếp theo: [Ubuntu] Tối ưu hóa ubuntu

1 bình luận về “[Cây] Cây tổng quát”

Thêm bình luận

  1. Pingback: [Thuật toán] Thuật toán minmax (cắt tỉa anpha-beta) | Không có gì quý hơn độc lập tự do

Bình luận về bài viết này Hủy trả lời

Δ

  • Bình luận
  • Đăng lại
  • Theo dõi Đã theo dõi
    • Hãy sống theo cách của bạn
      • Đã có 45 người theo dõi Theo dõi ngay
    • Đã có tài khoản WordPress.com? Đăng nhập.
    • Hãy sống theo cách của bạn
    • Theo dõi Đã theo dõi
    • Đăng ký
    • Đăng nhập
    • URL rút gọn
    • Báo cáo nội dung
    • Xem toàn bộ bài viết
    • Quản lý theo dõi
    • Ẩn menu
%d

Từ khóa » Duyệt Cây Tổng Quát