Discussion :

[adel_info]

le premier pas dans l'exemple du tri shell dans le livre bac info
pour n = 15 , le premier pas doit etre egale à 13 .
je vous demande bien de refaire L'exemple du livre et j'attend vos réponses.

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
16
17
18
19
20
21
22
23
24
 
 
procedure trishell (var t:tab; n:integer ) ;
 var    p,i,j,v: integer;
 begin    
     p:=0;
     while p<= n do    
     p:= 3*p+1;
     while p <> 0 do
      begin
          p:=p div 3;
          for i:= p to n do
           begin
                v:=t[i];
                j:=i;
                while (j > p-1) and (t[j-p] > v ) do
                 begin
                      t[j]:=t[j-p];
                      j:=j-p;
                 end;
                t[j]:=v;
           end;
      end;
 end;

[droggo]

Noe,

Et si tu nous postais le code en question ?

Sûr que je vais acheter ce livre juste pour voir (quel qu'en soit le prix).

[ALT]

Oui, avec l'énoncé complet (& en français correct), en plus, afin qu'on comprenne ce que tu as écrit.

[adel_info]

voici le code
le premier pas dans l'exemple du tri shell dans le livre bac info
pour n = 15 , le premier pas doit etre egale à 13 .
je vous demande bien de refaire L'exemple du livre et j'attend vos réponses.

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
16
17
18
19
20
21
22
23
24
 
 
procedure trishell (var t:tab; n:integer ) ;
 var    p,i,j,v: integer;
 begin    
     p:=0;
     while p<= n do    
     p:= 3*p+1;
     while p <> 0 do
      begin
          p:=p div 3;
          for i:= p to n do
           begin
                v:=t[i];
                j:=i;
                while (j > p-1) and (t[j-p] > v ) do
                 begin
                      t[j]:=t[j-p];
                      j:=j-p;
                 end;
                t[j]:=v;
           end;
      end;
 end;

[ALT]

Il y a sûrement quelques explications à ajouter : par exemple c'est quoi le type tab ? C'est quoi l'autre paramètre de la fonction ?
Etc.

Je répète : peux-tu nous donner les détails ainsi que ce que tu souhaites savoir, ce que tu voudrais qu'on essaye, qu'on t'explique...
Car tu t'es contenté de placer un bout de code sans autre précision, ce qui ne nous éclaire pas énormément.

[adel_info]

tab est un tableau d'entiers
et je vous demande de calculer le premier pas à utiliser dans le tri avec un tableau de 15 entiers
moi j'ai trouvé que le premier pas = 13 mais mon prof m'a dis que le premier pas = 4
ET MOI je veux savoir la bonne réponse en utilisant ce code avec un tableau de 15 entiers
j'explique un peux le fonctionnement

Code :

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

1
2
3
 
     while p<= n do    
       p:= 3*p+1;

avec la boucle while on a sorti avec p = 40
PUIS on execute l'instruction suivante

Code :

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

1
2
 
 p:=p div 3;

p devient égale à 13
ET on execute la boucle pour de 13 à 15
DONC le premier pas d'aprés mon raisonnement est égale à 13
moi je veux connaitre est ce que mon raisonnement est juste.
SVP repondez moi