Määritys - menetelmä - toteutus (jatkuu)
Seuraavassa vielä peräkkäis- ja puolitushaun toteutukset Pascal-kielen tapaisella ohjelmointi-kielellä:
function seqsearch(A[1..n], x);
begin
for i := 1 to n do
if x = A[i] then return ”Löytyi” else
if x < A[i] then return ”Ei löytynyt”;
return ”Ei löytynyt”
end {seqsearch};
function binsearch(A[1..n], x);
begin
m := én/2ù;
if x = A[m] then return ”Löytyi”;
if n = 1 then return ”Ei löytynyt”;
if x < A[m] then
binsearch(A[1..m], x)
else
binsearch(A[m+1..n], x)
end {binsearch}.