有自己很多的时间来学习如何安装和进入, 一般树的批准, 然而，只有找到一种方法来安装一些方法，而没有看到在代码和浏览大量工厂的具体…
有几种方法来安装和浏览树, 您可以在线咨询. 本文只提到他 1 分数.

这里安装了代码, 进口, 和一般的工厂预先核准为了, 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 🙂
阅读更多: 在二分搜索树的一些操作