Fonction Rech_Seq (X, N :entier ; T : Tab) : Booléen

Var i : Entier

B : Booléen

Début

i <-- 0

Répéter

i <-- i +1

Si X = T[i] Alors

B <-- Vrai

Sinon

B <-- Faux

Fin Si

Jusqu’à (B = Vrai) OU (i = N)

Rech_Seq <-- B

Fin

Fonction Rech_Dic (X, N :entier ; T : Tab) : Booléen

Var D, F : Entier

B : Booléen

Début

D <-- 1

F <-- N

Répéter

M <-- (D + F) DIV 2

Si X = T[M] alors

B <-- Vrai

Sinon

Si X < T[M] Alors

F <-- M - 1

B <-- Faux

Sinon

D <-- M + 1

B <-- Faux

Fin Si

Jusqu’à (B = Vrai) OU (D > F)

Rech_Dic <-- B

Fin