Código de uma árvore binária de pesquisa.

• Download Arvore_binaria_pesquisa.zip
• Enviar nova versão

Esconder código-fonte

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.

Script em Pascal/Kylix para controle de Locadoras sem salvar arquivos em disco

Orientação a Objetos

Horas por extenso: convertendo as horas em um TDateTime para texto corrido.

Ordenando um vetor sem utilização de variáveis de contagem ou auxiliar

Tocador de Vídeo no Lazarus(Player de Vídeo)

Nenhum comentário foi encontrado.