Nenhuma resposta neste tópico

[Programer]

como fazer uma arvore utilizando a estrutura abaixo (criarArvore ,inserir na arvore e imprimir

Pno = ^Tno ;

Tno = record
valor : String ;
filhos : array[1..2] of Pno ;
end;

TArvore = record
raiz : Pno ;
end;

e nao utilizando esta
TINfo = string;
PNo = ^TNo;
TNo = record
info : TINfo;
esq, dir : PNo;