インストールして入力する方法については、すでに非常に多くの時間だけ, 大規模なツリーを参照, しかし、唯一のいくつかの方法に従ってインストールする方法を発見しましたが、コード入力し、特定の承認豊富なツリーが表示されません…
インストールしてツリーを参照するには、いくつかの方法があります。, あなたがオンラインで相談することができます. この記事では、彼のことをいいます 1 分数.

ここでコードがインストールされています, インポート, 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 🙂
続きを読む: 二分探索木上のいくつかの操作