Discussion :

[nadirmabed]

Bonjour

J'ai créé un programme : tableau décroissant en Free Pascal. Ça ne marche pas, pourquoi ?
Regardez ici

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
 
 
program decroisant;
Type
  TA = Array[0..9999999] of Integer;
var i,posmaxi,j,temp,n:integer;
t:TA;
 
 
 
begin
 
 
begin
for i:=0 to n-2 do
posmaxi:=i;
begin
for j:=i-1 to n-1 do
if t[j]>t[posmaxi] then
posmaxi:=j;
end;
temp:=t[posmaxi];
t[posmaxi]:=t[i];
t[i]:=temp;
end;
end.

Regardez la photo :

[bataff]

Bonjour,

Rapidement, sans essayer de comprendre le programme et en me mettant à la place de l'ordinateur qui va exécuter pas à pas toutes les instructions, ce dernier devra lire la valeur d'un tableau avec un indice négatif (=> t[-1]). Il arrêtera le programme à ce moment-là .

Cordialement.

[nadirmabed]

Bonjour,

Rapidement, sans essayer de comprendre le programme et en me mettant à la place de l'ordinateur qui va exécuter pas à pas toutes les instructions, ce dernier devra lire la valeur d'un tableau avec un indice négatif (=> t[-1]). Il arrêtera le programme à ce moment-là .

Cordialement.

Que dois-je faire : i-1 entre parenthèses ?

[bataff]

Entre parenthèses ?

Non, la syntaxe t[...] est correcte. Il faut faire en sorte que ce qui est entre les crochets ne soit jamais négatif.

Plus précisément (lignes 18 et 19) :

...
for j:=i-1 to n-1 do
if t[j]>t[posmaxi] then
...

Au début, on a i=0 donc j=i-1=-1 et donc t[j]=t[-1] => impossible. C'est là où l'ordinateur s'arrête.

[ThWilliam]

Bonsoir,

Méthode pour un tri décroissant (tableau débutant à l'indice 0):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
for I := Length(Tableau) - 2 downto 0 do
  begin
     for J:= 0 to I do
     begin
        if Tableau[J + 1] > Tableau[J] then
        begin
           Temp := Tableau[J + 1];
           Tableau[J + 1] := Tableau[J];
           Tableau[J] := Temp;
        end;
     end;
   end;

Pour un tri croissant, il suffit de remplacer : if Tableau[J + 1] < Tableau[J] then...

Cordialement
Thierry

[nadirmabed]

Entre parenthèses ?

Non, la syntaxe t[...] est correcte. Il faut faire en sorte que ce qui est entre les crochets ne soit jamais négatif.

Plus précisément (lignes 18 et 19) :

Au début, on a i=0 donc j=i-1=-1 et donc t[j]=t[-1] => impossible. C'est là où l'ordinateur s'arrête.

regarde ça

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
 
 
program decroisant;
procedure decroisan(var s: string);
 
Type
  TA = Array[0..9999999] of Integer;
var i,posmaxi,j,temp,n:integer;
t:TA;
 
 
 
begin
 
 
begin
for i:=1 to ( n-2) do
posmaxi:=i;
begin
for j:=(i-1) to( n-1) do
if t[j]>t[posmaxi] then
posmaxi:=j;
end;
temp:=t[posmaxi];
t[posmaxi]:=t[i];
t[i]:=temp;
end;
begin
write('t[i]');
readln(t[i]);
end;
end;
 
 
var
  s1: string;
   begin
  s1 := '5 44 22 66 99 5 4  66 66 55'; // ou ReadLn(s1);
  decroisan(s1);
  WriteLn(s1);
  ReadLn;
end.

[bataff]

Non, mettre des parenthèses à i-1 (ligne 20 du nouveau listing) ne servira à rien. (i-1) ou i-1 : cela n'a aucune importance ici.

Vous n'avez pas compris le sens de mon dernier message