Discussion :

[weld sad9ia]

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 :

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

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

[sidahmed]

Bonjour,

logiquement, ce code fonctionne :

Code pascal :

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

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.

[krachik]

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 :

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
 
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

Code :

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

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;

@+

[sidahmed]

Bonjour,

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.

[krachik]

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 :

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

result := max;

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

[PierreVeuillez]

dans le programme

Code :

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

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 :

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

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;

[krachik]

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

Code :

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

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

[weld sad9ia]

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