bài tập về Cấu trúc dữ liệu và giải thuật

[caungoc_9x]

anh chị nào giúp e với.bọn e fải làm Cài đặt giải thuật duyệt cây (trước ,sau,giữa). bọn e fải làm duyệt cây sau. Pác nào giúp e với. e xyn cảm ơn rất rấ ấ ất nhiều !!!

[tuananhth2cpy]

hjx cai mon nay kho phet ma .ca mon dien tu so cai phan dai so booble gi do cung kho lam ai biet bao mjnh voi

[nhanphuan]

uses crt;
type nodePtr= ^node;
node= record
key: integer;
left,right: NodePtr
end;
var root,tk: nodePtr; x,chon,i,n: integer;
a: array[1..100] of integer; f: text;
procedure Chen(x: integer);
var p,q: nodePtr;
begin new(q); q^.key:=x; q^.left:=Nil; q^.right:=nil;
if root=NIL then root:=q else
begin p:=root;
while p<>NIL do
begin if x < p^.key then begin if p^.left <> nil then p:=p^.left
else begin p^.left:=q; p:=nil end
end
else begin if x>p^.key then begin
if p^.right<>nil then p:=p^.right
else begin p^.right:= q; p:=nil end
end
else p:=nil;
end
end;
end;
end;
procedure TimKiem(x: integer; var p: nodePtr);
var found: boolean;
begin p:= root; found:= false;
while(p<>nil) and (not found) do
if p^.key=x then found:= true
else if x < p^.key then p:= p^.left else p:= p^.right;

end;
procedure InRong;
const max =50;
var truoc,cuoi,dem: integer; p,q: nodePtr;
h: array[1..max] of nodePtr;
begin h[1]:=root; truoc:=1; cuoi:=1; dem:=1;
while (dem>0) do
begin q:=h[truoc]; write(q^.key,' : '); p:= q^.left;
if p<>nil then begin write(p^.key,' - '); inc(cuoi);
h[cuoi]:=p; inc(dem);
end else write('NIL - ');
p:= q^.right;
if p<>nil then begin writeln(p^.key);
inc(cuoi); h[cuoi]:=P; inc(dem);
end else writeln('NIL');
h[truoc]:=nil; inc(truoc); dec(dem);
end;
end;
procedure Xoa(var p: nodePtr);
var q,q1: nodePtr;
begin
if p^.right=NIL then begin q:=p; p:=p^.left end
else if p^.left=NIL then begin q:=p; p:=p^.right end
else begin q:= p^.left;
if q^.right=nil then begin p^.key:=q^.key;
p^.left:=q^.left
end
else begin
repeat q1:=q; q:=q^.right until q^.right=nil;
p^.key:=q^.key; q1^.right:= q^.left;
end
end;
dispose(q);
end;
procedure PreOrder(p: nodePtr);
begin if p<> nil then
begin writeln(p^.key); PreOrder(p^.left); PreOrder(p^.right) end;
end;
procedure InOrder(p: nodePtr);
begin if p<> nil then
begin InOrder(p^.left);writeln(p^.key); InOrder(p^.right) end;
end;
procedure PostOrder(p: nodePtr);
begin if p<> nil then
begin PostOrder(p^.left); PostOrder(p^.right); writeln(p^.key) end;
end;
begin root:=nil; clrscr;
repeat
writeln('1.Chen 2.Xoa 3.TimKiem 4.InRong 5.PreOder ');
write('6.InOrder 7.PostOrder 8.NhapTep 9.Exit. Chon:');
readln(chon);
case chon of
1: begin write('Nhap khoa moi: '); readln(x); Chen(x);
end;
2: begin write('Nhap khoa can xoa: '); readln(x);
TimKiem(x,tk);
if tk<>nil then Xoa(tk)
else writeln('Khong tim thay gia tri khoa');
end;
3: begin write('Nhap khoa can tim : '); readln(x);
TimKiem(x,tk);
if tk<>NIL then writeln('Da tim thay dinh co khoa : ',tk^.key)
else writeln('Khong tim thay dinh co khoa nay');
end;
4: InRong;
5: begin writeln('Danh sach PreOrder: '); PreOrder(Root) end;
6: begin writeln('Danh sach InOrder: '); InOrder(Root) end;
7: begin writeln('Danh sach PostOrder: '); PostOrder(Root) end;
8: begin assign(f,'Cay.dat'); reset(f); readln(f,n);
for i:=1 to n do begin read(f,a[i]); Chen(a[i]) end;
close(f); write('Da nhap xong cay tu tep...'); readln;
end;
end
until chon=9;
end.



Chi tiết xem tại : http://dhti.tk/showthread.php?p=205#post205