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.

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

Executa comandos Linux

Arvore Binaria de Pesquisa

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

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

Nenhum comentário foi encontrado.