Árvore binária
Publicado por Alex Inocencio Santos (última atualização em 12/09/2014)
[ Hits: 4.954 ]
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.
Horas por extenso: convertendo as horas em um TDateTime para texto corrido.
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
Instalar sem formatar, pergunta meio boba. (4)
Não consigo cadastrar nenhuma conta online (7)
O que esta havendo com o mercado de ti? (9)