假设二叉树采用链接方式存储，编写一个对二叉树进行中序遍历的递归和非递归程序

这是我做的。
中序遍历：
var root,i,t,tl,tr,n:byte;
depth,l,r:array[1..100]of byte;
procedure b(p:byte);
begin
if p=0 then exit;
b(l[p]);
writeln(p,' ');
b(r[p]);
end;
begin
readln(n);
for i:=1 to n do begin
readln(t,l[t],r[t]);
if l[t]>0 then inc(depth[l[t]]);
if r[t]>0 then inc(depth[r[t]]);
end;
for i:=1 to n do if depth[i]=0 then begin
root:=i;
break;
end;
b(root);
end.
后序遍历：
var root,i,t,tl,tr,n:byte;
depth,l,r:array[1..100]of byte;
procedure c(p:byte);
begin
if p=0 then exit;
c(l[p]);
c(r[p]);
writeln(p,' ');
end;
begin
readln(n);
for i:=1 to n do begin
readln(t,l[t],r[t]);
if l[t]>0 then inc(depth[l[t]]);
if r[t]>0 then inc(depth[r[t]]);
end;
for i:=1 to n do if depth[i]=0 then begin
root:=i;
break;
end;