Discussion :

[amin89]

salut à tous , est ce que vous pouvez m'aide sur cette question ?
Donner l'organigrame et le programme PASCAL qui permet de trier un vecteur à 10 éléments par ordre croissant.
MERCI

[PRomu@ld]

est ce que vous pouvez m'aide sur cette question ?

Oui, sans doute.

[amin89]

slt,merci mais j'ai pas trouvé la solution de ma question

[Caro-Line]

PRomu@ld a répondu à l'unique question qu'il y avait dans ton message.
Ce qu'il voulait souligner par là c'est que tu n'as pas posé de question précise.

Donner un énoncé n'est pas poser une question.

Si tu souhaites que l'on t'aide, il faut nous montrer ce que tu as déjà fait et sur quel point précis tu bloques.
Personne ne fera le travail à ta place.

[amin89]

voila ce que j'ai trouvé comme solution du programme pascal qui permet de trier un vecteur de 10 élément par ordre croissant:

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 tri(var t: vecteur; n : integer);
var
  i,z,e: integer;
begin
  repeat
    e:= 0;
    n:= 10;
    for i := 0 to n do
      if t[i]>t[i+1] then
        begin
          z:=t[i];
          t[i]:=t[i+1];
          t[i+1]:=t[i];
          e:= 1;
        end;
  until e = 0;
end;

est ce que ça est juste et pour l'organigramme svp aide moi
MERCI

[Alcatîz]

Bonjour et bienvenue,

Le code ne fait manifestement pas ce qui est attendu.
Avant d'en arriver au code, tu dois travailler sur papier. Exécute ton code sur une feuille de papier, tu trouveras tout de suite ce qui ne va pas.

Quelques remarques : tout d'abord, si tu as déclaré un vecteur [1..10], le compilateur n'acceptera pas la référence à t[0]. Par contre, si tu as déclaré le vecteur [0..10], il contient 11 éléments, pas 10.

Ensuite, ta procédure n'a besoin que d'un seul paramètre : le vecteur. Le second paramètre, n, ne sert à rien du tout. Si n doit représenter le nombre d'éléments du vecteur, déclare-le comme constante au début du programme :

Code :

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

1
2
Const
  n = 10;   (* Nombre d'éléments du tableau *)

Dans ta boucle, si un élément est supérieur à son suivant, tu les permutes. Pour cela, tu sauves l'élément dans la variable z, tu écrases l'élément par le suivant mais, après cela, il faut aller écraser l'élément suivant avec l'élément sauvé dans z !
Autrement dit :

Code :

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

1
2
3
z:=t[i];
t[i]:=t[i+1];
t[i+1]:=z;   (* <----- *)

Bon courage pour la suite.