Arvore binaria pascal

[Grande Mestre 0]

como imprimir os dados desta arvore binaria que tem como filhos um array de duas e nao direito e esquerdo type Pno = ^Tno ; Tno = record valor : String ; filhos : array[1..2] of Pno ; end; TArvore = record raiz : Pno ; end;//============================================================================== procedure criarArvore (Var arvo : Tarvore) ; begin arvo.raiz := nil ; end;//============================================================================== function noVazio (no : Pno) : boolean ; begin result := (no = nil) ; end;//============================================================================== function arvoreVazia(arvo : Tarvore) : boolean ; begin result := noVazio(arvo.raiz); end;//============================================================================== procedure inserirNo (var no:Pno; valor : String) ; begin if (novazio(no)) then begin new(no) ; no^.valor := valor ; no^.filhos[1] := nil; no^.filhos[2] := nil ; end else begin if valor < no^.valor then inserirNo(no^.filhos[1],valor) else inserirNo(no^.filhos[2],valor); end; end;//============================================================================== procedure inserirArvore (var arvo : Tarvore; valor : String); begin inserirNO (arvo.raiz,valor) ; end;/////////////////////////////programa principalvararvo : Tarvore ;no : Pno ;valor : String ;begin criarArvore(arvo) ; inserirArvore(arvo,'7'); inserirArvore(arvo,'3'); inserirArvore(arvo,'5'); mostrar(no,valor) ; readln ;

[Pantoja 5]

como nao sei usar ponteiro ai terei que deixar para os Grandes Mestres do iMasters.

[Kandrade 7]

Voce pode fazer uma varredura da árvore como numa busca em profundidade.

http://pt.wikipedia.org/wiki/Busca_em_profundidade

 

Ou como uma busca em largura.

http://pt.wikipedia.org/wiki/Busca_em_largura

 

Veja isso também:

http://pt.wikipedia.org/wiki/Árvore_de_busca_binária