Discussion :

[proff]

Je viens de trouver l'énoncé suivant :

Soit un tableau t1 de n caractères (A..Z). On désire trier en suivant la methode suivante :

• 1. Chercher le plus petit élément de T1
• 2. a) Mettre cet élément dans un tableau T2
  b) Remplacer cet élément par '*' dans T1
• 3. Répéter les étapes 1 et 2 jusqu'à ce que le tableau soit trié

Malheureusement, je n'ai pas pas trouvé une bonne solution pour cet énoncé.
Ce que j'ai fait : j'ai trié t1, mis ses valeurs triées dans t2 et les ai remplacées par * dans t1.
Bref pas de solution adéquate
Merci de votre aide

[M.Dlb]

L'algo est pourtant clair. Il faut trouver le plus petit élément de t1, puis l'insérer (ajouter à la fin) dans t2.Il faut répéter ça, jusqu'à qu'il n'y ait que des * dans t1. Pour la première boucle, la valeur trouvée dans t1 sera la plus petite du tableau, et on l'insère à la première place de t2. Au second tour de boucle, on trouve la deuxième plus petit valeur de t1 (puisque la première n'existe plus, car remplacée par *) et on l'insère à la deuxième place de t2, etc...

[proff]

le probleme c'est qu'on va parcourir le tableau t1 une autre fois et on trouvera l'etoile '*' et et l'ord(*) est inférieur à l'ord('a') par exemple
donc on aura un probleme , la plus petite valeur sera '*'

[Alcatîz]

Bonjour !

le probleme c'est qu'on va parcourir le tableau t1 une autre fois et on trouvera l'etoile '*' et et l'ord(*) est inférieur à l'ord('a') par exemple
donc on aura un probleme , la plus petite valeur sera '*'

Il suffit simplement d'ignorer cet élément.

[proff]

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
25
26
27
28
29
 
program tri;
uses wincrt;
type tab= array [1..20] of char;
var t,t2:tab;
i,k,n,min:integer;
 
begin
readln(n);
for i:=1 to no do
readln(t[i]);
 
{recherche du min et remplissage qu t2}
k:=0;
for i := 1 to (n-1) do
  begin
    min := i;
    for j := (i+1) to n do
      if (ord(t[j] < ord(t[min])) and (t[j] <> '*')
         then
           min := j;
    k := k+1;
    t2[k] := t[min];
    t[min] := '*';
  end;
 
for i:=1 to n do
writeln(t2[i]);
end.

[Alcatîz]

Il me semble qu'à la fin de ta boucle c'est t[min] que tu dois copier :

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
var t, t2 : array [1..20] of char;
 
{recherche du min et remplissage qu t2}
k:=0;
for i := 1 to (n-1) do
  begin
    min := i;
    for j := (i+1) to n do
      if (ord(t[j] < ord(t[min])) and (t[j] <> '*')
         then
           min := j;
    k := k+1;
    t2[k] := t[min];
    t[min] := '*';
  end;