Recherche du max d'un tableau récursivement

Aujourd'hui j'ai passé un devoir d'algorithme.
SVP je veux une solution de cet exercice :
Rechercher le maximum d'un tableau contenant n entiers mais avec un algorithme récursif.
Voici ce que j'ai essayé pour la fonction Max :

Code:

---

1 2 3 4 5 6 7

function Max(t : tab , var n : integer ) : integer; begin if n = 1 then Max := t[n] else if t[n] =< t[n-1] then Max := Max(t , n-1); end;

---

Ca tourne pas.
SVP montrez-moi ma faute...

Bonjour,

logiquement, ce code fonctionne :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

max := MOINS_INFINI;   function recherche_max(t : tableau; n : integer; var max : integer) : integer; begin if n > 1 then begin if t[n] > max then max := t[n]; recherche_max(t, n - 1, max); end; result := max; end;

---

Bon courage !

Cordialement,
Sidahmed.

bonjour
voila j'ai une solution à te proposer j'avais un code comme ça en java et il fallait juste transformer en code Pascal
la fonction high renvoie la taille du tableau passé en paramettre

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

function recherche_max(t : tableau; pos : integer) : integer; var mxi:integer; begin if (pos =High(t)-1) then recherche_max:=t[pos] else if(pos<=High(t)) then begin mxi:=recherche_max(t,pos+1); if (t[pos] < mxi) then recherche_max:=mxi else recherche_max:=t[pos]; end else recherche_max:=0; end;

---

C'est le meme principe que avec uen boucle sauf bien sur que la c'est recursif
donc pour commencer tu initialise pos a zero dans ton programme principal
voila a plus
Ps:sidahmed je vais jeter un coup d'oeil sur le code que tu propose mais a vue d'oeil il compilera pas

Citation:

---

Envoyé par sidahmed

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

max := MOINS_INFINI; function recherche_max(t : tableau; n : integer; var max : integer) : integer; begin if n > 1 then begin if t[n] > max then max := t[n]; recherche_max(t, n - 1, max); end; result := max; end;

---

---

@+

Bonjour,

Citation:

---

Envoyé par krachik

Ps:sidahmed je vais jeter un coup d'oeil sur le code que tu propose mais a vue d'oeil il compilera pas
@+

---

Ah bon ! Ça fonctionne parfaitement sous Delphi.

Cordialement,
Sidahmed.

Autan pour moi je viens de tester sous Turbo Pascal 7.0 et comme j'avais dit il y a une erreur et il faut que cette fonction soit affecté a cette ligne la,
c'est la différence en TP et Delphi et sous TP7

Code:

---

result := max;

---

le result aussi n'existe pas,
Désolé encore autant pour moi vu qu'on a pas les meme compilateur
@+

dans le programme

Code:

---

1 2 3 4 5 6 7 8

function Max(t : tab , var n : integer ) : integer; begin if n = 1 then Max := t[n] else if t[n] =< t[n-1] then Max := Max(t , n-1); end;

---

il manque le traitement du cas n>1 et t[n] > t[n-1] :
qui est le max dans ce cas ? :

L'idée c'est que le max de t[1] à t[n] est le max entre
1) t[n]
2) le max de t[1] à t[n-1]

d'où le programme :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

function Max(t : tab , var n : integer ) : integer; var M:integer; begin if n = 1 then Max := t[n] else begin M:=max(t,n-1); if M< t[n] then max:=t[n] else max:= M; end; end;

---

bonjour
dans cas il faut enlever le var dans l'entete de la fonction et changer le "," en ";"

Citation:

---

Envoyé par PierreVeuillez

Code:

---

1 2 3 4 5 6 7 8 9 10 11

function Max(t : tab , var n : integer ) : integer; var M:integer; begin if n = 1 then Max := t[n] else begin M:=max(t,n-1); if M< t[n] then max:=t[n] else max:= M; end; end;

---

---

et ensuite ne pas oublier d'initialiser n dans le code principale à la taille du tableau utilisé
@+

je suis vraiment :D d'inscrire dans ce forum et je vous remercie :king:
vous êtes vraimebt tres gentil :mrgreen: