x
dans un tableau
d'entiers positifs t
de taille n
: La valeur trouvée est retournée,
sauf en cas d'échec, où la valeur -1
est retournée.
function recherche (var x : integer, var n : integer, var t : array of integer) : integer; var i : integer; begin i := 0; while i < n do if t[i] = x then break else i := i+1; if i < n then recherche := t[i] else recherche := -1 end; |