Busca Binária
Publicado por joao felipe 18/02/2003
[ Hits: 7.738 ]
Homepage: www.motokando.com
Este script faz uma busca binária em um vetor (array), está simples e fácil de ser entendido, lembramos que o vetor deve estar ordenado para que seja possível fazer uma busca binária, para isso vc pode usar meu script de "ordenacao por selecao", qualquer bug encontrado por favor me avise no felipejfs@bol.com.br pois uso este script aqui em um site. Espero que lhe seja util este script. falou.
#!/bin/perl #para uma busca binaria é necessario que o vetor esteja ordenado!!!! @vetor=(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,17,18,19,20); $x=3; #$x será o elemento à procurar. $inicio=0; $fim=@vetor; # $fim recebe o tamanho de @vetor. $meio=int(($inicio+$fim)/2); print "Procurando $x em ". "@vetor". "\n"; while (($x != @vetor[$meio]) && ($inicio!=$fim) && ($inicio<$fim)) { if ($x > @vetor[$meio]) {$inicio=$meio+1} else {$fim=$meio-1} $meio=int(($inicio+$fim)/2); } if ($x == @vetor[$meio]){print "$x encontrado em @". "vetor[". $meio. "]\n";} else {print "$x nao encontrado!! \n";}
Validador de cartão de débido e crédito em Perl
Conexão com Banco de Dados Postgres
Streaming Kiss FM (SP 102,1) Player em perl com interface grafica (Tk)
Orientação a Objetos - Criando e usando uma classe em Perl
Instalar e Configurar o Slackware Linux em 2025
Como configurar os repositórios do apt no Debian 12 em 2025
Passkeys: A Evolução da Autenticação Digital
Instalação de distro Linux em computadores, netbooks, etc, em rede com o Clonezilla
Como colorir os logs do terminal com ccze
Instalação Microsoft Edge no Linux Mint 22
Como configurar posicionamento e movimento de janelas no Lubuntu (Openbox) com atalhos de teclado
Máquinas Virtuais com IP estático acessando Internet no Virtualbox
Criar entrada no GRUB para uma ISO Linux (7)
Open Suse não abre wi-fi automaticamente (3)
Ruído no Microfone (ALC287 - AMD Ryzen 5 7535HS) no Debian 12.9 (15)