Discussion :

[waelboumaiza]

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Program tri_insertion;
uses wincrt {By Boumaiza Wael _ Boumaiza_S@t};
type
vect=array[1..100] of integer;
var
n:integer;
t:vect;
 
procedure saisir(var n:integer);
begin
repeat
write('Saisir la taille du tableau: ');
readln(n);
until n in [5..25];
end;
 
procedure remplir(var t:vect;n:integer);
var
i:integer;
begin
for i:=1 to n do
begin
write('T[',i,']: ');
readln(t[i]);
end;
end;
 
procedure trier(var t:vect; n:integer;
var
i,j,x,pos:integer;
begin
for i:=1 to n do
begin
pos:=i-1;
while (t[pos]>t[i]) and (pos>=1) do
pos:=pos-1;
pos:=pos+1;
x:=t[i];
for j:=i-1 downto pos do
t[j+1]:=t[j];
t[pos]:=x;
end;
end;
 
procedure afficher(t:vect;n:integer);
var
i:integer;
begin
for i:=1 to n do
write(t[i]:5);
end;
 
begin
saisir(n);
remplir(t,n);
trier(t,n);
afficher(t,n);
writeln;
writeln('{By Wael Boumaiza _ Boumaiza_S@t}');
end.

[krachik]

Bonjour

ça serait sympa de ta part de nous dire exactement le probleme que tu rencontre pour nous eviter d'epulcher tout le code ,Et le sujet du Post pas tres indicatif et informatif
-indentes ton code
-commentes ton code
remarque:il y a pas que les procedures en Pascal les Fontions aussi existe notemment mieux adapté pour faire une saisie (à mon goût)
@+

[droggo]

Dio,

Le temps de retrouver ma boule de cristal...

Franchement, comme l'a déjà écrit krachik, tu ne penses pas qu'un petit effort de ta part nous aiderait à t'aider ?

Juste en jetant un très rapide coup d'oeil, je vois au moins quelque chose qui est incohérent :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
...
type
vect=array[1..100] of integer;
 
procedure saisir(var n:integer);
begin
repeat
write('Saisir la taille du tableau: ');
readln(n);
until n in [5..25];
end;

pourquoi un tableau de taille 100, si le programme limite de fait la taille utile à 25 ?

[darrylsite]

Je ne vois pas d' erreur dans ton programme. Juste que tu as oublié de fermer la parenthese de la fonction :

Code :

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

1
2
 
procedure trier(var t:vect; n:integer;

Aussi, il faut mettre un readln à la fin pour que tu ait le temps de voir le resultat de ton travail.
Je l' ai essayé et ça fait bien le tri. Je n' ai pas pris le temps de voir le code en profondeur alors je ne peux pas te dire plus.

[bh.medali]

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Program tri_insertion;
uses wincrt {By Boumaiza Wael _ Boumaiza_S@t};
type
vect=array[1..100] of integer;
var
n:integer;
t:vect;
 
procedure saisir(var n:integer);
begin
repeat
write('Saisir la taille du tableau: ');
readln(n);
until n in [5..25];
end;
 
procedure remplir(var t:vect;n:integer);
var
i:integer;
begin
for i:=1 to n do
begin
write('T[',i,']: ');
readln(t[i]);
end;
end;
 
procedure trier(var t:vect; n:integer;
var
i,j,x,pos:integer;
begin
for i:=1 to n do
begin
pos:=i-1;
while (t[pos]>t[i]) and (pos>=1) do
pos:=pos-1;
pos:=pos+1;
x:=t[i];
for j:=i-1 downto pos do
t[j+1]:=t[j];
t[pos]:=x;
end;
end;
 
procedure afficher(t:vect;n:integer);
var
i:integer;
begin
for i:=1 to n do
write(t[i]:5);
end;
 
begin
saisir(n);
remplir(t,n);
trier(t,n);
afficher(t,n);
writeln;
writeln('{By Wael Boumaiza _ Boumaiza_S@t}');
end.

tu doit expliquer quel est ton problème pour que les différent(e)s membres, ou qqc un autre, peuvent t'aider. ok

[droggo]

Gie,

Je ne vois pas d' erreur dans ton programme. Juste que tu as oublié de fermer la parenthese de la fonction

C'EST une erreur.

Mais elle a dû être signalée par le compilateur, et aurait dû être corrigée avant de venir poser une question ici.
N'est-ce pas, waelboumaiza ?

[InYourFace]

Bonjour à tout le monde
vous etes sûr que ce code fonctionnne normalement?
parce que

Code :

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

1
2
3
4
5
6
7
8
9
type
vect=array[1..100] of integer;
...............
for i:=1 to n do
begin
pos:=i-1;
while (t[pos]>t[i]) and (pos>=1) do
.........

Il devait y avoir un probleme à ces ligne le tableau commencant à 1 et pour pos:=i-1(pour i=1 pos sera egal a 0 et t[pos] generera un debordement du tableau) Enfin si je suis la logique du code


Cordialement
InYourFace

[darrylsite]

Bonjour à tout le monde
vous etes sûr que ce code fonctionnne normalement?
parce que

Code :

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

1
2
3
4
5
6
7
8
9
type
vect=array[1..100] of integer;
...............
for i:=1 to n do
begin
pos:=i-1;
while (t[pos]>t[i]) and (pos>=1) do
.........

Il devait y avoir un probleme à ces ligne le tableau commencant à 1 et pour pos:=i-1(pour i=1 pos sera egal a 0 et t[pos] generera un debordement du tableau) Enfin si je suis la logique du code


Cordialement
InYourFace

Tu as bien raison. Il y' a bien un probleme au niveau des indices.
Mais sous turbo pascal, quand l'option de controle des debordements n' est pas activée, ces genres d' erreurs passent inaperçus.
Mais je crois que l' indice i devrais commencer à 2 qu' à 1.
Enfin c' est son algo.

[waelboumaiza]

Merci pour tout...