Les methodes de recherche .pdf


Aperçu du fichier PDF les-methodes-de-recherche.pdf - page 5/5

Page 1 2 3 4 5



Aperçu du document


Niveau Scolaire : 4ème Sciences Expérimentales

préparé par Khaoula ABAIDI

procedure tri(var t : tab ; n : integer);
var ppm, i : integer ;
procedure permut(var x , y : integer);
var aux : integer ;
begin
aux := x ; x := y ; y := aux ;
end ;
function premposmin(t : tab ; n , m : integer) : integer ;
var posmin, j : integer ;
begin
posmin := m ;
for j:= m+1 to n do
if t[posmin]>t[j] then posmin := j;
premposmin := posmin ;
end ;
begin
for i := 1 to n-1 do
begin
ppm := premposmin(t,n,i);
if t[ppm] <> t[i]) then permut(t[ppm],t[i]);
end;
end;
function rechercheDichotomique(x,n:integer ; t : tab) : boolean ;
var debut, fin , moitier : integer ; b : boolean;
begin
debut := 1 ; fin := n ; b := false ;
repeat
begin
moitier := (debut + fin) div 2 ;
if (x = T[moitier]) then b := true
else if x < T[moitier] then fin := moitier - 1
else debut := moitier + 1 ;
end ;
until (b) or (debut > fin) ;
rechercheDichotomique := b ;
end;
begin
saisieTaille(taille); remplissageTableau(tr,taille); affichageTableau(tr,taille);
tri(tr,n); {La recherche dichotomique est appliquée sur un tableau trié}
affichageTableau(tr,taille); write('Element a chercher '); readln (p);
res := rechercheDichotomique(p,taille,tr) ;
write('Est-ce que l''element ',p,' est existant dans le tableau Tr? ', res);
end.

Les méthodes de recherche

5


Ce fichier a été mis en ligne par un utilisateur du site. Identifiant unique du document: 00584907.
⚠️  Signaler un contenu illicite
Pour plus d'informations sur notre politique de lutte contre la diffusion illicite de contenus protégés par droit d'auteur, consultez notre page dédiée.