Discussion :

[momo1367]

Bonjour
J'ai fait un code mais je fais appel à une fonction max puis, après, je supprime toutes les occurences. Est-ce que c'est possible de le faire sans faire appel à cette fonction ? Pour ma part, j'ai essayé mais pas réussi. Voilà mon 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
16
 
procedure maxdelite(var t:tableau; var long:integer);
var IndLect,IndEc,c:integer;
begin
c:=Max(t,long);
IndEc:=1;
for IndLect:=1 to long do 
                        begin
                          if t[IndLect]<>c then
                                begin
                                  t[IndEc]:=t[IndLect];
                                  inc(IndEc);
                                end;
                        end;                     
   long:= IndEc-1;                    
end;

[krachik]

Bonjour
Ton code est bien simple et bien plus propre comme ça
Reste plus qu'a bien l'indenter de façon reguliere et ça passe

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
 
 
procedure maxdelite(var t:tableau; var long:integer);
var IndLect,IndEc,c:integer;
begin
    c:=Max(t,long);
    IndEc:=1;
    for IndLect:=1 to long do 
    begin
        if t[IndLect]<>c then
        begin
            t[IndEc]:=t[IndLect];
            inc(IndEc);
        end;
    end;                     
    long:= IndEc-1;                    
end;

N'oublies pas qu'il s'agit juste d'une illusion parce que tel que ça se presente ton tableau n'est pas dynamique et c'est bien comme tu le fais en conservant le nombre d'éléments dont on doit tenir compte avec ton decalage.

Est-ce que c'est possible de le faire sans faire appel à cette fonction ?

Tu parles de ta procedure ? si c'est le cas la tienne n'est qu'une choisi parmi d'autres.Il n'existe pas en Pascal une fonction toute faite qui permette de faire ça( supprimer le max d'une liste ).Sinon tu peux toujours implementer a travers une unité un tableau dynamique et reecrire les procedures/fonctions qui vont avec.

Cordialement

[momo1367]

bonjour
merci pour votre reponce