[Turbo Pascal] Récurcivité dans un tableau

the_tunisian Messages postés 10 Statut Membre -  
 dourayed -
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
Configuration: Windows XP
Firefox 2.0.0.6

1 réponse

  1. dourayed
     
    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

Discussions similaires

Tableau (croisé dynamique?) à 3 entrées
ClementH3o -
ClementH3o -

10 réponses