Algo.tn

function recherche1(T:tab;n:integer;v:integer):boolean;
var i:integer; trouve:boolean;
begin
    i:=0; trouve:=false;
    repeat
        i:=i+1;
        if t[i]=v then trouve:=true;
    until (trouve) or (i=n);
recherche:=trouve;
end;

function recherche2(T:tab;n:integer;v:integer):boolean;
var i:integer;
begin
    i:=0;
    repeat
        i:=i+1;
    until (T[i]=v)or (i=n);
if (T[i]=v)then rechercher:=true
            else rechercher:=false;
end;

function recherche_dicho(T:tab;n:integer;v:integer):boolean;
var a,b,m:integer;trouve:boolean;
begin
a:= 1 ; b:= n; trouve:=false;
    repeat
        m:=(a+b) div 2;
        si T[m]=v then trouve:=true else
        if T[m]>v then b:=m-1 else a:=m+1;
    until (trouve)or (a>b);
recherche_dicho:=trouve;
end;