BUSCA BINÁRIA

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

function A (n:integer):integer;
var
  aux,c:integer;
begin
                             //?????
  aux:=1;
  for c:=2 to n do
    begin      
 aux:=aux*c;
    end;
      A:=aux;
end;
function B (n:integer):integer;
begin
  if (n>0) then B:=n*B(n-1)
 else
    B:=1;
end;
function buscabin (x:integer;ini,fim:integer):integer;
var
  meio:integer;
begin
  meio:=(ini+fim) div 2;
    if (fim>=ini) then
    buscabin:=0;
      if (vet[meio]=x) then
 buscabin:=meio else
        if (vet[meio]>x) then
 buscabin:=buscabin(x,ini,meio-1) else
        buscabin:=buscabin(x,meio+1,fim);
end;