probleme en algo

Question

Bonjour,
je cherhe un algo pour:
un algo qui permet de faire une recherche recursive du maximum d'un tableau d'entier

zavenger · Answer

salut

max = premire valeur du tableau
si nombre de valeur du tableau > 1 alors
 indice = 2
 tant que indice <= indice de fin de tableau
  si max < valeur tableau (indice) alors 
   max = valeur tableau (indice)
   fin si
  indice = indice + 1
  fin tant que
fin si

byakhlefncr · Answer

Salut,


Procedure Defiler(Var T : Tableau;  Pos, Taille : Integer);
Var iCpt : Integer;
Begin
   For iCpt := Taille downto Pos do
   Begin
      T[iCpt+1] := T[iCpt];
   End;
End;

Procedure INSERT(Var T : Tableau; Pos, Valeur : Integer; Var Taille : Integer);
Begin
    If Valeur >= T[Pos] Then
    Begin
       Defiler(T, Pos, Taille);
       T[Pos+1] := Valeur;
       Taille := Taille + 1;
    End
    Else
    if Taille = 1 then
    Begin
       Defiler(T, 1, Taille);
       T[1] := Valeur;
       Taille := Taille + 1;
    End
    else
    Begin
       INSERT(T, Pos-1, Valeur, Taille);
    End;
End;



Bonne chance

Probleme en algo

2 réponses

Discussions similaires

Newsletters