Program Testa_Rotinas_de_Arvore_Generica;

{$I ArvGen.Pas}

Var
  Arvore_Generica : Ptr_ArvGen_Nodo;
Begin
  ArvGen_Inicializa (Arvore_Generica);
  ArvGen_Insere_Filho(Arvore_Generica,1);   {Raiz}
  ArvGen_Insere_Filho(Arvore_Generica,10);  {Filhos do Raiz}
  ArvGen_Insere_Filho(Arvore_Generica^.Filho,100); {Netos da Raiz}
  ArvGen_Insere_Filho(Arvore_Generica^.Filho,101);
  ArvGen_Insere_Filho(Arvore_Generica^.Filho,102);
  ArvGen_Insere_Filho(Arvore_Generica,11);
  ArvGen_Insere_Filho(Arvore_Generica,12);
  ArvGen_Insere_Filho(Arvore_Generica,13);
  ArvGen_Insere_Filho(Arvore_Generica,14);
  ArvGen_Insere_Filho(Arvore_Generica^.Filho,140); {Netos da Raiz}
  ArvGen_Insere_Filho(Arvore_Generica^.Filho,141);
  ArvGen_Insere_Filho(Arvore_Generica^.Filho,142);
  writeln('Arvore Generica:');
  ArvGen_Exibe_Prefixado(Arvore_Generica);
  writeln('Tecle ENTER para continuar...');
  readln;

  writeln;
  writeln('Procurando Nodo: 13');
  if ArvGen_Pesquisa_Nodo(Arvore_Generica,13) <> Nil
  then writeln ('Achou o nodo com valor 13')
  else writeln ('Nao achou o nodo com valor 13');
  writeln;
  writeln('Procurando Nodo: 18');
  if ArvGen_Pesquisa_Nodo(Arvore_Generica,18) <> Nil
  then writeln ('Achou o nodo com valor 18')
  else writeln ('Nao achou o nodo com valor 18');
  writeln('Tecle ENTER para continuar...');
  readln;

  writeln;
  writeln('Salva Arvore...');
  ArvGen_Salva(Arvore_Generica);
  ArvGen_Apaga(Arvore_Generica);
  writeln('Arvore Generica:');
  if Arvore_Generica = NIL
  then writeln('VAZIA')
  else ArvGen_Exibe_Prefixado(Arvore_Generica);
  writeln('Tecle ENTER para continuar...');
  readln;

  writeln;
  writeln('Le Arvore...');
  Arvgen_Le(Arvore_Generica);
  writeln('Arvore Generica:');
  if Arvore_Generica = NIL
  then writeln('VAZIA')
  else ArvGen_Exibe_Prefixado(Arvore_Generica);
  writeln('Tecle ENTER para continuar...');
  readln;

  writeln('Removendo o nodo com o valor 13...');
  ArvGen_Remove_Dado(Arvore_Generica,13);
  writeln('Arvore Generica:');
  if Arvore_Generica = NIL
  then writeln('VAZIA')
  else ArvGen_Exibe_Prefixado(Arvore_Generica);
  writeln('Tecle ENTER para continuar...');
  readln;

  writeln('Removendo o nodo com o valor 14...');
  ArvGen_Remove_Dado(Arvore_Generica,14);
  writeln('Arvore Generica:');
  if Arvore_Generica = NIL
  then writeln('VAZIA')
  else ArvGen_Exibe_Prefixado(Arvore_Generica);
  writeln('Tecle ENTER para continuar...');
  readln;

  writeln('Removendo o nodo com o valor 10...');
  ArvGen_Remove_Dado(Arvore_Generica,10);
  writeln('Arvore Generica:');
  if Arvore_Generica = NIL
  then writeln('VAZIA')
  else ArvGen_Exibe_Prefixado(Arvore_Generica);
  writeln('Tecle ENTER para continuar...');
  readln;

  writeln('Removendo o nodo com o valor 1...');
  ArvGen_Remove_Dado(Arvore_Generica,1);
  writeln('Arvore Generica:');
  if Arvore_Generica = NIL
  then writeln('VAZIA')
  else ArvGen_Exibe_Prefixado(Arvore_Generica);
  writeln('Tecle ENTER para continuar...');
  readln;

End.