Árvore binária
Publicado por Alex Inocencio Santos (última atualização em 12/09/2014)
[ Hits: 4.953 ]
Download Arvore_binaria_pesquisa.zip
Código de uma árvore binária de pesquisa.
program Arv; uses crt,ABP; var item :integer; op:char; arvore:TipoArvore; p:apontador; BEGIN repeat gotoxy(30,4); textcolor(10); writeln('|----------Menu----------|'); gotoxy(30,5); writeln('|1-Iniciar arvore |'); gotoxy(30,6); writeln('|2-Inserir numerero |'); gotoxy(30,7); writeln('|3-Retirar numero |'); gotoxy(30,8); writeln('|4-pre-ordem |'); gotoxy(30,9); writeln('|5-pos-ordem |'); gotoxy(30,10); writeln('|6-In-ordem |'); gotoxy(30,11); writeln('|7-Sair |'); gotoxy(30,12); writeln('|------------------------|'); gotoxy(30,14); writeln('O que deseja realizar?'); op:=Readkey; clrscr; case op of '1':Begin Inicia(arvore); writeln('Arvore Iniciada com sucesso'); readkey; clrscr; end; '2':Begin writeln('digie um numero: '); readln(item); Insere(item,p); writeln('item inserido com sucesso'); readkey; end; '3':begin writeln('Digite o numero q deseja retirar'); readln(item); retira(item,p); readkey; end; '4':begin write('pre-ordem: '); preordem(p); end; '5':begin write('Pos-ordem: '); posordem(p); end; '6':begin write('In-ordem: '); inordem(p); end; end; until op='7'; END.
Ordenando um vetor sem utilização de variáveis de contagem ou auxiliar
Script em Pascal/Kylix para controle de Locadoras sem salvar arquivos em disco
Nenhum comentário foi encontrado.
Passkeys: A Evolução da Autenticação Digital
Instalação de distro Linux em computadores, netbooks, etc, em rede com o Clonezilla
Título: Descobrindo o IP externo da VPN no Linux
Armazenando a senha de sua carteira Bitcoin de forma segura no Linux
Enviar mensagem ao usuário trabalhando com as opções do php.ini
Instalando Brave Browser no Linux Mint 22
vídeo pra quem quer saber como funciona Proteção de Memória:
Encontre seus arquivos facilmente com o Drill
Mouse Logitech MX Ergo Advanced Wireless Trackball no Linux
Compartilhamento de Rede com samba em modo Público/Anônimo de forma simples, rápido e fácil
O que esta havendo com o mercado de ti? (9)
Não consigo cadastrar nenhuma conta online (5)
Hotspot Mikrotik nao carrega pagina de login. (0)