高分悬赏二叉树的建树中序遍历

[yangming_ok]

[yangming_ok]

我要源代码,gz

[qsyang]

使用递归算法，框架如下：
void order(Binarytree *p)
{ if (p)
{ if(p->lchild) order(p->lchild);
print(p);
if(p->rchild) order(p->rchild);
}
}
内容自己完善吧

[gzmhero]

type
PMyTreeNode=^TMyTreeNode;
TMyTreeNode=record
lChild:Pointer;
rChild:Pointer;
value:integer;
end;

procedure order(p:PMyTreeNode);
begin
if (p<>nil) then
begin
if(p^.lchild<>nil) then
order(PMyTreeNode(p^.lchild));

// 处理遍历的p^.value值;
if(p^.rchild<>nil) then
order(PMyTreeNode(p^.rchild));
end;
end;

[yangming_ok]

gzmhero(hihihi)　,怎么建树了？

[lzhlu]

有一个例子：
{$APPTYPE CONSOLE}
program BinTree;

type
PNode = ^TNode;
TNode = record
Data: string;
Left, Right: PNode;
end;

procedure MidOrder(Tree: PNode);
begin
if Tree = nil then Exit;
MidOrder(Tree^.Left);
WriteLn(Tree^.Data);
MidOrder(Tree^.Right);
end;

var
Tree: PNode;

begin
//
//...
//建立二叉树 ......
//...
//
MidOrder(Tree);
end.

[qiandeng]

帮你提前

[zy61]

建树是建树，中序遍历是中序遍历，什么是建树中序遍历，小人愚昧，还望大侠指点一二

[yangming_ok]

就是每输入一个Edit1.Text的值，依次建一棵二叉数,后遍历

[hsq]

你是要Delphi源代码吗

[sundayboys]

找本数据结构书看看，上边都有。

[7680]

是啊，先看看数据结构啊