Бинарное дерева поиска

[lebrosha]

Есть бинарное дерево поиска с ифнормацией об автомобилях. В качестве ключа используется номер машины. Нужно вывести весь список авто по возрастанию номеров.
Подскажите как делать! Заранее спасибо.
P.S. ЯП - Pascal

[lebrosha]

ну что никто не подскажет??

[Sparky]

А дерево как строится? при помощи алгоритма включения?

[lebrosha]

Вот так строится:

procedure InsertNode(var root:PTree; info:TTree);
var
  p:PTree;
begin
  If root=NIL then
  begin
    new(root);
    root^.number:=info.number;
    root^.rout:=info.rout;
    root^.output:=info.output;
    root^.repair:=info.repair;
    root^.surname:=info.surname;
    root^.left:=NIL;
    root^.right:=NIL;
  end
  Else
  If info.number>root^.number then
    InsertNode(root^.left,info)
  Else
  If info.number<root^.number then
    InsertNode(root^.right,info);
end;

[lebrosha]

в запись info данные попадают из текстового файла

[Chudo4258]

TYPE 
     U = ^BinTree;
     BinTree = Record
         N:integer; //номер машины
         M:string;  // марка
         L,R : U;
END;

PROCEDURE Ins(Var Tree : U; X : integer; Y:string);      //вставляет элемент в дерево
Begin
   If Tree = Nil
   Then Begin 
	    New(Tree);
	    Tree^.L := Nil;
	    Tree^.R := Nil;
	    Tree^.N:= X;
	    Tree^.M:= Y;
	End
   Else If x < Tree^.N
	Then Ins(Tree^.L, x , y)
	Else Ins(Tree^.R, x, y)
END;

PROCEDURE InsDer(var T:U); //построение дерева
var i,n:integer;
    x:integer;
    y:string;
Begin
  Write('kol-vo el-tov v dereve: ');
  readln(n);
  for i:=1 to n do
  begin
    Write('N: '); Readln(x);
    Write('M: '); Readln(y);
    //x:=-10+Random(21); write(x:5,'   ');
    Ins(T,x,y);
  end;
END;

PROCEDURE PrintTree(T:U);
Begin
 if T<>nil then
             begin
              PrintTree(T^.L);
              Write(T^.N); Writeln('   ', T^.M);
              PrintTree(T^.R);
             end;
END;

var D:U;
begin
 D:=nil;
 InsDer(D);
 PrintTree(D);
readln
end;

[Sparky]

ну да это называется алгоритм поиска с включением. После его выполнения данные и так являются отсортированными, теперь ваша задача только их вывести. Для этого нужно воспользоваться обратным обходом дерева. Смысл такой:
procedure obxod(root:Ptree);
begin
if root<>nil then
begin
obxod(root^.left);
write(root^.inf);
obxod(root^.rigth);
end;
end;

[lebrosha]

спасибо, щас попробую