Árvore binária
Publicado por Alex Inocencio Santos (última atualização em 12/09/2014)
[ Hits: 5.145 ]
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
Nenhum comentário foi encontrado.
IA local no bolso, novo visual no Raspberry Pi OS e mais destaques do software livre
Kernel turbinado, compatibilidade em alta e debate sobre sustentabilidade: o dia no mundo Linux
Kernel turbinado e GNOME 49 dominam o giro do dia no mundo Linux
Novidades Linux: Kernel 6.17, distros em ebulição e segurança em foco
Kernel ganha novos linters Rust e distros avançam com recursos de IA
Adicionando o repositório backports no Debian 13 Trixie
Como definir um IP estático no Linux Debian
Orientação para instalar o Warsaw - módulo de proteção do Banco do Bra... (10)
Como vencer a procrastinação? (4)
O que você está ouvindo agora? [2] (223)
Alguém que utilize o Warsaw do BB no Ubuntu 24.04 [RESOLVIDO] (7)