Le Tri d'un tableau

[invite71aa5c98]

on m'a demandé de remplir un tableau avec des entiers telque 2<n<20 et le but, est pour chaque élèment de T on be garde que sa premiére occurence et on remplace les autres par 0.

et puis, on regroupe les élèments restant au debut du tableau

exemple :

1- 10 / 7 / 9 / 7 / 10 / 6 / 7 / 4 / 8 / 8
2- 10 / 7 / 9 / 0 / 0 / 6 / 0 / 4 / 8 / 0
3- 10 / 7 / 9 / 6 / 4 / 8 / 0 / 0 / 0 / 0

en utilisant deus modules!!

j'ai fait la saisie du tableau en utilisant une procedure, mai j'ai pas compris comment faire le Tri.
-----

[invite71aa5c98]

j'ai oublié de dire que je travail sur Turbo pascal. et merci d'avance.

[invite5ee91fe7]

Tu as aussi oublié de dire bonjour.

Bonjour Diabloamg

Donc ton probleme est que tu dois remplir un tableau (de quelle longueur ?) avec des entiers compris entre 2 et 20 exclus. c'est bien ca ?

L'exemple, on te l'a fourni ou c'est toi qui l'a fait ?

[invite5ee91fe7]

J'ai oublié de te demander si on t'avait imposé un algorithme de tri ?

[A voir en vidéo sur Futura]

[invite71aa5c98]

J'ai oublié de te demander si on t'avait imposé un algorithme de tri ?

bonjour, je suis desolé,
un tableau contenant 20 case remplis d'entier ne depassant pas 20, et c'est pas obligatoire l'algorithme

[invite5ee91fe7]

et c'est pas obligatoire l'algorithme

Si, c'est obligatoire l'algorithme de tri... si tu veux trier.

Pour faire ton choix, va voir ce lien :
http://lwh.free.fr/pages/algo/tri/tri.htm

Sinon, quel est exactement l'enoncé de ce que l'on t'a demandé ? Je ne comprend pas bien l'histoire des deux modules...

[invite71aa5c98]

bon, je voulais savoir que doit-je ecrire sur pascal pour continuer mon travail?

et merci

[invite5ee91fe7]

Bon. J'imagine que pour les deux modules, l'un remplace les doublons d'occurence et l'autre fait le tri ? c'est ca ?

[invite71aa5c98]

Bon. J'imagine que pour les deux modules, l'un remplace les doublons d'occurence et l'autre fait le tri ? c'est ca ?

oui normalement, mais tu peux utiliser les module ou tu veux! moi j'ai fais les module pour la saisie et l'affichage.

[JPL]

bon, je voulais savoir que doit-je ecrire sur pascal pour continuer mon travail?

Euh, demandes-tu par la qu'on fasse l'exercice à ta place ? Ce n'est pas le genre de la maison. Jusqu'à présent tu n'as pas démontré que tu avais fait un travail personnel. C'est pourtant la condition impérative pour qu'on t'aide.

Ce n'est pas une exigence personnelle : c'est un message en tant que modérateur. Ce travail minimum qui est demandé est la politique adopté ici face aux demandes d'aide pour un exercice.

[invite71aa5c98]

Euh, demandes-tu par la qu'on fasse l'exercice à ta place ? Ce n'est pas le genre de la maison. Jusqu'à présent tu n'as pas démontré que tu avais fait un travail personnel. C'est pourtant la condition impérative pour qu'on t'aide.

Ce n'est pas une exigence personnelle : c'est un message en tant que modérateur. Ce travail minimum qui est demandé est la politique adopté ici face aux demandes d'aide pour un exercice.

et ben, voici mon travail!! j'ai pa trouvé la faute!


program marouen;
uses wincrt;
type Tab=array[1..50] of integer;
var n,temp,i : integer;
T : tab;

procedure saisie(var T:tab; var n : integer);
var i : integer;
begin
repeat
write('donnez n : ');
readln(n);
until (n in [1..50]);

for i:=1 to n do
begin
write('T[',i,'] : ');
readln(T[i]);
end;
end;

procedure aff(M: tab; c: integer);
var l: integer;
begin
for l:=1 to c do
writeln('T[',l,'] =',M[l])
end;


procedure occ(var T:tab);
var e,f : integer;
begin
for e:=1 to n do
for f:=e+1 to n do
begin
if T[f] = T[e] then
T[f]:=0;
end;
end;



begin
saisie(t,n);
writeln('-------------');
occ(t);
aff(t,n);

writeln('-------------');
begin
for i:=1 to n do
begin
if (T[i+1]=0) then
begin
temp:=T[i+1];
T[i+1]:=T[i+2];
T[i+2]:=temp ;
end;
end;
end;


aff(t,n);
end.

[invite6de5f0ac]

Bonjour,

Simple suggestion (je n'ai pas regardé en détail). Dans ton tri, tu fais un "for i := 1 to n" et tu testes dans la boucle T[i+1] et T[i+2]... il n'y aurait pas un dépassement d'indices?

-- françois

[zoup1]

Effectivement, il y a un problème dans ton tri (même si ce que l'on te demande n'est pas a proprement parlé un tri).
je pense que le plus simple c'est :
lorsque tu parcours ton tableau et que tu tombes sur un 0, il faut que tu recopies le reste du tableau en le décalant d'un indice et que tu rajoutes un 0 à la fin.
Puis tu poursuis...