[Turbo Pascal] Récurcivité dans un tableau

Fermé
the_tunisian Messages postés 10 Date d'inscription vendredi 30 novembre 2007 Statut Membre Dernière intervention 20 décembre 2007 - 30 nov. 2007 à 12:12
 dourayed - 5 mars 2008 à 13:21
Bonjour,
je cherche une fonction recursive (en turbo pascal) qui permet de determiner la valeur la plus proche de m dans un tableau t de n entiers
A voir également:

1 réponse

il faut trier le tableau d'un ordre croissant avant de faire ca
function recurcive(t:tab;n,m:integer):integer;
var
i:integer;
begin
if t[1]>m then
recurcivité:=t[1];
else
i:=1;
repeat
if t[i+1]>m then
récurcivité:=t[i+1];
else
i:=i+1;
end;
until i>n;
end;
end;
0