Discussion :

[abdou monta]

Bonjour

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[Cortomatt]

Bonjour.

Il manque un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Result:=max;

Cdlt.

[Dr.Who]

Pourquoi on vous apprend encore à programmer en recursif !

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[abdou monta]

c'est un exercice
merci

[e-ric]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)
@+