Árvore binária
Publicado por Alex Inocencio Santos (última atualização em 12/09/2014)
[ Hits: 5.112 ]
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.
Servidor de Backup com Ubuntu Server 24.04 LTS, RAID e Duplicati (Dell PowerEdge T420)
Visualizar câmeras IP ONVIF no Linux sem necessidade de instalar aplicativos
Atualizar Debian Online de uma Versão para outra
Proteja seu Linux Mint com o Timeshift: Restaure o sistema mesmo que ele não inicie!
Instalando Google Chrome no Debian 13
meus dois pen drives não são mais reconhecidos pelo meu PC apos tentar... (2)
Salvar estado da VM no virt-manager (0)
Configuração/... de Apache Hop (1)
Alguém pode me recomendar um editor de textos? [RESOLVIDO] (6)