Rechercher la plus grande valeur dans un tableau récursivement

Version imprimable

Bonjour

Je ne sais pas pourquoi la fonction retourne toujours la valeur 21! :aie:
t : tableau de n cases.
voici le code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 function det_max ( t : tab; n, x : byte ): byte; var max : byte; begin if x = n then max := t[n] else begin if t[x] < max then max := det_max(t, n, x+1 ) else max := t[x]; end; end;

14/12/2012, 16h09
Cortomatt

Bonjour.

Il manque un

Code:

Result:=max;

Cdlt.

Pourquoi on vous apprend encore à programmer en recursif !

Pardon, pourquoi on vous apprend à saturer la pile inutilement ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
procedure getMax(aArray: array of integer; var aIndex, aValue: integer);
var X: integer;
begin
  aIndex := low(aArray);
  aValue := aArray[aIndex];
  for X := aIndex+1 to high(aArray) do
    if aArray[X] > V then
    begin
      aValue := aArray[X];
      aIndex := X;
    end;
end;

21/12/2012, 00h08
abdou monta

c'est un exercice :)
merci :)

La récursivité n'est pas nocive mais il ne faut pas en abuser mais elle est pertinente pour les algo qui sont récursifs par nature. En l'espèce, l'emploi de la récursivité ici est sans doute abusif, Pascal n'est pas Lisp.

Turbo Pascal permet de limiter l'impact la casse avec les procédures imbriquées, on évite le passage du tableau dans la partie récursive.

Ton algorithme me semble bizarre, l'emploi de la variable locale max est cavalier car elle n'est pas initialisée
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 function det_max ( t : tab): byte; procedure internal_det_max(x: byte): byte; var TempRes : Byte; begin if x = High(t) then begin (* garantit la fin de la récursion *) internal_det_max := t[n]; end else begin TempRes := internal_det_max(x+1); if t[x] < TempRes then internal_det_max := TempRes else internal_det_max := t[x]; end; end; begin det_max := internal_det_max(Low(t)); end;
Cela est à tester en TurboPascal (pas de Result)
@+